|
|
|
|
Пример:
Дан массив слов. Составить программу, которая вводит исходный массив, затем вводит поочередно различные слова и проверяет, имеются ли такие слова в исходном массиве. Работа программы завершается после ввода слова 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.