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

UptoLike

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

Рубрика:

160

ArrayTString = array [1..MaxNumberStrings] of TString;

{Массив строк}

{Процедура ReadString.

Ввод строк в массив str. N – количество реально введенных строк.}

procedure ReadStrings(var str: ArrayTString;

var N: Integer );

var

s : TString; {Строка для ввода}

begin

clrscr; {Очистка экрана}

{Вывод приглашения к вводу}

textcolor(LightGray); {Установка цвета для выводимого

на экран текста}

writeln;

writeln('Введите не более ', MaxNumberStrings,

' строк.');

writeln('Конец ввода – пустая строка:');

{Ввод строк}

n:=0; {Вначале введенных строк нет}

repeat

{Вывод номера вводимой строки}

textcolor(DarkGray); {Установка темно-серого цвета}

write(n+1,'> '); {Вывод номера – темно-серым цветом}

{Ввод строки}

textcolor(LightGray); {Установка серого цвета}

readln(s); {Ввод строки – серым цветом}

if s <> '' then {Если введена непустая строка}

begin

inc(n); {То вписываем ее в массив SS}