Регистрация
ТвояЗайка111
22.07.2020 01:56
Информатика
Есть ответ 👍

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

236
443
Посмотреть ответы 2

Ответы на вопрос:

Queen102938
Queen102938
4,6(97 оценок)
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.тут получится сухая блок-схема, но вотьне люблю их
2РАД11
2РАД11
4,4(78 оценок)

var

n, r: integer;

begin

write('n = ');

readln(n);

writeln;

while (n > 0) and (r < > 2) do

begin

r : = n mod 10; { < == последняя цифра числа }

n : = n div 10 { < == удаляем последнюю цифру }

end;

writeln(r = 2); { < -- выводим значение выражения (r=2) }

readln

end.

Популярно: Информатика