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

Влад3105 11 сент. 2021 г., 20:36:46

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.

Artempopov02 30 янв. 2021 г., 06:44:54 | 10 - 11 классы

Нужно написать прогу в Pascal ABC?

Нужно написать прогу в Pascal ABC.

В заданном тексте заменить все слова A1 на слова A2 (слова в тексте разделены пробелами слова A1 и A2 вводятся с клавиатуры).

Златёнок 1 авг. 2021 г., 12:00:08 | 5 - 9 классы

Написать программу к следующей задаче : Вводится с клавиатуры число, которое обозначает количество суток?

Написать программу к следующей задаче : Вводится с клавиатуры число, которое обозначает количество суток.

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

(вывод сделать с комментариями, чтобы было понятно что вы выводите) В паскаль.

Maxmud3 19 мар. 2021 г., 18:59:22 | 5 - 9 классы

С какой программой можно написать такой текст?

С какой программой можно написать такой текст.

Green1862 24 авг. 2021 г., 08:47:20 | 5 - 9 классы

Напишите программы в Паскале :1) цикл с предусловием?

Напишите программы в Паскале :

1) цикл с предусловием.

Написать программу,

вычисления у = х2 при х = 2, 4, 6, 8, 10 ;

2) цикл с постусловием.

Написать программу, в которой требуется вводить с

клавиатуры числа и подсчитывать их сумму, до первого введенного отрицательного

числа ;

3) цикл параметром.

Написать программу, которая находит сумму чисел от 1 до 20.

Ayqun023 10 авг. 2021 г., 20:20:15 | 10 - 11 классы

Задача : с клавиатуры вводится число от 1 до 1000?

Задача : с клавиатуры вводится число от 1 до 1000.

Программа должна вывести его прописью.

(Написать программу на Паскале).

Myatapomyata 15 авг. 2021 г., 01:08:26 | 5 - 9 классы

Написать программу для вычисления суммы чисел от 1 до 100 с использованием 3 видов цикла?

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

(Паскаль).

Totoroy 5 нояб. 2021 г., 22:29:04 | 5 - 9 классы

Написать текст программы_____________________?

Написать текст программы

_____________________.

Милланна 30 окт. 2021 г., 08:15:36 | 5 - 9 классы

Программа на Паскаль1?

Программа на Паскаль

1.

Написать программу на Паскале нахождения периметра треугольника, данные вводить с клавиатуры.

2. Написать программу на Паскале вычисления значения выражения у = 15х2 + 8х - 9 3.

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

(х ^ (2 ) + 5 при х>3

х - 8 при х≤3).

ВВВВДДДД 11 дек. 2021 г., 03:13:22 | 5 - 9 классы

Помогите, пожалуйста, написать программу на языке паскаль " Напишите программу поиска максимального из четырех чисел с использованием подпрограммы поиска большего из двух?

Помогите, пожалуйста, написать программу на языке паскаль " Напишите программу поиска максимального из четырех чисел с использованием подпрограммы поиска большего из двух.

".

VinamanzheVAM 28 нояб. 2021 г., 11:35:09 | 5 - 9 классы

Составте программу в паскале нахождения максимального из чисел a, b, c, d?

Составте программу в паскале нахождения максимального из чисел a, b, c, d.

Ввод должен быть с клавиатуры.