Войти Регистрация Спроси ai-bota

Написать программу для подсчета количества слов максимальной длины в тексте. текст вводится с клавиатуры. признак окончания текста точка. написать на паскале с использованием циклов

Ответ:

Дарчик1

06.10.2020 22:09

Program textFind;
uses StrUtils;
var text,buffer : String;
var tpos,lastpos,counter,biggest : Integer;
begin
tpos := 0;
text := '';
while(tpos = 0) do begin
readln(buffer);
text += buffer;
tpos := pos('.',buffer)
end;
lastpos := 1;
tpos := PosEx(' ',text,lastpos);
if tpos = 0 then
tpos := PosEx('.',text,lastpos);
biggest := tpos-1; lastpos := tpos+1;
while(not (tpos = 0)) do begin
tpos := PosEx(' ',text,lastpos);
if tpos = 0 then
tpos := PosEx('.',text,lastpos);
if (tpos-lastpos) > biggest then
biggest := tpos-lastpos;
lastpos := tpos+1;
end;
lastpos := 1; counter := 0;
tpos := PosEx(' ',text,lastpos);
if tpos = 0 then
tpos := PosEx('.',text,lastpos);
while(not (tpos = 0)) do begin
if (tpos-lastpos) = biggest then
counter += 1;
lastpos := tpos + 1;
tpos := PosEx(' ',text,lastpos);
if tpos = 0 then
tpos := PosEx('.',text,lastpos);
end;
writeln(counter);
end.

0,0(0 оценок)

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

Shmanin32

13.10.2022 16:37

Начало | a:=14,b:=9,c:=6 | (a-b) c a:=c-b a:=b-c | | | a | Конец с информатикой.Очень нужно! Нужно вычислить переменную по блок схеме. Очень вас Начало | a:=14,b:=9,c:=6...

СнежанаВолк

11.05.2020 14:50

Текст подготовлен для передачи по сети и содержит 206 символов. Каждый символ кодируется двумя байтами и во избежание искажений передается трижды. Время передачи...

malvinka011

06.03.2023 12:25

Иерархическая база данных – это бд, в которой существует возможность устанавливать дополнительно к вертикальным иерархическим связям горизонтальные связи бд, в...

Ivanprofi22

20.08.2022 19:34

Запишите наименьшее основание системы счисления, в которой могут быть записаны следующие числа: 101,122,1004,4456...

FleachBeast

23.04.2022 13:56

Найдите ошибку, (phyton 3) import math c; x; y; z; m; s; f; e; t = map(int, a = math.ceil((e + 1) * f / s) * m + t if c x: n = math.ceil((c - x) / z) else: n =...

БогданКК

10.12.2020 13:03

Строго на pythonзапишите оператор для вывода значений целых переменных a=5 и b=3 в следующем формате: 5+3=? в ответе не используйте пробелы. ответ: 2. запишите...

viktoriasvoya

02.02.2021 00:46

1. как называется документ, включающий текст, рисунки, звук и видео, где каждый элемент может быть гиперссылкой? 2. как называется команда разметки языка html?...

Настя456456

04.03.2023 05:22

Амаленькому коле не нравится, когда числа в массиве не отсортированы по возрастанию (если быть точным, по неубыванию, но коля таких слов не знает). вот кто придумал...

Magic0825

25.02.2022 05:55

Амаленькому коле не нравится, когда числа в массиве не отсортированы по возрастанию (если быть точным, по неубыванию, но коля таких слов не знает). вот кто придумал...

happymenfeed

14.09.2020 23:44

Решить по информатике. на плоскости изображен прямоугольник, внутри которого находятся пересекающиеся квадрат и круг. 7000 точек находятся внутри прямоугольника....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку