Фев
17

Массивы

Программа показывает как работают массивы. Очень простенькая программа.
Зато очень доступно все изложено.
[sourcecode language=»pascal»]
Uses crt;
Var Name : Array [1..5] Of
String;
Number, Loop : Byte;
Begin
ClrScr;
Name [1] := ‘Ernie';
Name [2] := ‘Sid';
Name [3] := ‘Effie';
Name [4] := ‘Dilbert';
Name [5] := ‘Dogbert';
For Loop := 1 To 5 Do
WriteLn (‘Name ‘, Loop, ‘ = ‘, Name [Loop]);
WriteLn;
Write (‘OK, tell me which name Im gonna print (Gimme a value of 1-5): ‘);
ReadLn (Number);
WriteLn (‘Ok, name number ‘, Number, ‘ is ‘, Name [Number]);
End.
[/sourcecode]



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.