Основы программирования на языке Turbo Pascal. Беляева И.В. - 161 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

161
str[n] := s;
end;
until (n = MaxNumberStrings) or (s = ''); {Выход из цикла
ввода либо после ввода 10 строк,
либо после ввода пустой строки}
end;
{Процедура PrintStrings.
Выводятся на экран строки из массива str.
N – количество строк в массиве str.}
procedure PrintStrings(const str: ArrayTString;
N: Integer );
var
i: integer;
begin
clrscr; {Очистка экрана}
textcolor(LightBlue); {Цвет вывода – голубой}
writeln;
writeln('Вы ввели ', n, ' строк(у,и). Вот они:');
for i := 1 to n do
begin
{Номер строки выводится голубым цветом}
textcolor(LightBlue);
write(i:2, '> ');
{Сама строка выводится серым цветом}
textcolor(LightGray);
writeln( str[i] );
end;
end;
{Процедура GetAllChars.
Получаем все символы.

Страницы