Определить, сколько раз встречается строка текста в текстовом файле - Turbo Pascal

  1. Задана строка текста. Определить, сколько раз встречается эта строка текста в текстовом файле.


textual

Код:

Uses crt;
Var f:text; s,p:string; k:integer;
Begin
ClrScr; Write('Input string:'); Readln(p); k:=0; {ввод строки}
Assign(f,'C:/f.txt'); Reset(f);                  {открываем файл}
While not EOF(f) do                              {чтение до конца файла}
 Begin
  Readln(f,s);             {читаем строку}
  If s=p then inc(k);      {сравниваем}
 End;
Write('kol-vo:',k);        {выводим кол-во}
Readln;
End.


Похожие ответы
  1. Каждая из трех доярок надоила за год (365 дней) R1, R2,R3 литров молока. Определить, у какой доярки наибольший среднесуточный надой молока и вывести на экран ее номер.

  1. Круг вписан в квадрат со стороной А. Определить, превышает ли площадь круга заданную величину Х и вывести сообщение на экран.

  1. Как мы знаем, Владимир периодически посещает плавательный бассейн. При взгляде сверху бассейн представляет собой прямоугольник размера W × H; его юго-западный угол имеет координаты (0; 0), северо-восточный — (W; H). Владимир находился в точке с координатами (X; Y), когда прозвенел звонок, оповещающий об окончании сеанса. Теперь Владимиру нужно плыть к ближайшему бортику, чтобы выйти из бассейна. Помогите ему определить, в какую сторону следует плыть. Входные данные Первая строка содержит целые числа W и H (1 ≤ W, H ≤ 100) — соответственно длину и ширину бассейна. Первая строка содержит целые числа X и Y (0 ≤ X ≤ W, 0 ≤ Y ≤ H) — координаты точки, в которой находится Владимир. Выходные данные Выведите один из символов 'N' (север), 'E' (восток), 'S' (юг), 'W' (запад), соответствующий направлению до ближайшего бортика. Если подходящих ответов несколько, выведите любой из них.

  1. Дан массив записи, представляющий собой календарь(число,месяц,год). Описать функцию подсчитывающую сколько дней прошло от первого января 2005 года до даты d этого года.

  1. Дан двумерный массив размером МxN заполненный случайным образом. Определите, есть ли в данном массиве столбец, в котором все элементы четны и положительны

  1. Цикл с параметром Выяснить, сколько раз входит в состав натурального числа цифра 3

  1. Добрый вечер! Помогите, пожалуйста, решить задачу: На пути вашего героя встретилась пропасть шириной s метров. До ближайшего моста идти очень и очень долго, поэтому вы решаете перелететь через нее. Для героя единственный способ летать — выпить зелье левитации. Одна выпитая бутылочка зелья позволяет лететь в течении k секунд со скоростью v м/c. К несчастью, самого зелья у героя с собой нет, зато есть рецепт зелья,все необходимые для его изготовления приборы и какие-то ингредиенты. Из рецепта известно, что для приготовления зелья левитации нужно n ингредиентов, причем i-го ингредиента нужно ai штук. У героя же есть bi этого ингредиента. По необходимому и имеющемуся количеству каждого из ингредиентов определите, сможет ли герой сварить достаточно зелья, чтобы перелететь через пропасть, или же придется все-таки идти в обход? Входные данные В первой строчке идет число s — ширина пропасти. Затем на этой же строчке даны числа k и v – сколько секунд и с какой скоростью позволяет лететь одна выпитая бутылочка зелья. Во второй строчке дано число n ≤ 100. Дальше идут n строчек. В каждой из них записаны два числа: ai > 0 — сколько порций i-го ингредиента необходимо для изготовления одной бутылочки и bi ≥ 0 — сколько порций этого ингредиента есть у героя. Выходные данные Если герой сможет перелететь через пропасть, выведите "YES", иначе выведите "NO" (без кавычек). Примеры: Входные данные: 1 1 1 2 1 1 2 2 Выходные данные: YES Входные данные: 1 1 1 2 1 1 2 1 Выходные данные: NOДобавлено через 20 часов 23 минуты Разобрался. Может, кому-то поможет

  1. На каждом следующем дне рождения Винни – Пух съедает столько же пищи, сколько на двух предыдущих. На двух первых днях рождения у Пятачка и Кролика он съел по 100 грамм пищи. Написать программу, определяющую, на каком дне рождения вес съеденной пищи превысит собственный вес Винни – Пуха.

  1. Помогите с решением: На каждом следующем дне рождения Вини Пух съедает столько же пищи, что и на двух предыдущих. На двух первых днях рождения у Пятачка и Кролика он съел по 100 грамм пищи. Сколько килограммов пищи съест Вини Пух на пятнадцатом дне рождения?(нигде не нашел понятного решения)