Question

Позарез нужна программа в паскале, вот условие: "разработать программу, которая осуществляет в текстовом файле поиск заданных слов. слова последовательно вводятся с клавиатуры. для каждого слова должно определяться количество вхождений и номера строк текста. если указанное слово в файле отсутствует, то программа должна выводить соответствующее сообщение." и если можно, то и блок-схему. заранее !

Answer 1

var
  c: string;
  d: byte;
  b: boolean;

begin
  readln(c);
  foreach a: string in System.IO.File.ReadAllLines('in.txt') do
  begin
    d += 1;
    b := false;
    if (pos(c, a) > 0) then
    begin
      b := true;
      writeln('Вхождение! Строка №', d, '. Количество вхождений: ', (a.Length - a.Replace(c, '').Length)/c.Length);
    end;
  end;
  writeln(not b ? 'There aren`t :(' : '');
end.

Тут получится сухая блок-схема, но длинная... Воть
Не люблю их