Уровень: основной текст примеры Глоссарии: ... Глоссарий

СТРОКИ

Пример:

Дан массив слов. Составить программу, которая вводит исходный массив, затем вводит поочередно различные слова и проверяет, имеются ли такие слова в исходном массиве. Работа программы завершается после ввода слова END.

Program FindWord;
 Type Sword = String[15];
 Aword = Array[1..100] of Sword;
 Var  asWord : Aword;
 SW     : Sword;
 ks, k  : Integer;
 pr     : Boolean;
begin
 WriteLn('ВВЕДИ !');
 WriteLn('количество слов в исходном массиве');
 ReadLn(ks);
 for k:=1 to ks do
 begin
 WriteLn(k:4,' слово в массиве слов');
 ReadLn(asWord[K]);
 end;
 for k:=1 to ks do
 WriteLn('  ':5,asWord[k]);
 repeat
 WriteLn;
 WriteLn('ВВЕДИ слово');
 ReadLn(sW);
 WriteLn('  ':5,sW);
 pr:= FALSE;
 k:=1;
 repeat
 if asWord[k] = sW then pr:=TRUE;
 inc(k)
 until pr or (k > ks);
 if pr then WriteLn('-Y')
 else WriteLn('-N')
 until sW = 'END'
end.