составить программу поиска заданного с клавиатуры слова в заданном текстовом файле на языке Паскаль

Question

user_3231338 · Accepted Answer

Решение на Pascal ABC
var f1: text;
i: integer;
stroka, slovo: string;
begin
Assign(f1, 'input.txt'); 
Reset(f1); 
write ('slovo=');
readln (slovo);
i:=0;
while not Eof(f1) do 
begin 
readln (f1, stroka); 
if slovo in stroka then inc(i); 
end; 
Close(f1); 
if i <> 0 then writeln ('Слово есть в файле')
else writeln ('Слово отсутствует, в файле');
end.

iurii_moiseev_149 · Answer

Если файл состоит из слов, расположенных в столбик то примерно так
readln(slovo);
while not eof(f) do
begin
readln(f,s);
if s=slovo then...
---
end;

sergei_krotov_785 · Answer

блин, в учебниках по Си, это стандартные учебные программы - они там приводятся и подрлбно разбираются

Составить программу поиска заданного с клавиатуры слова в заданном текстовом файле на языке Паскаль