В заданной строке текста выведите самое длинное слово

20.12.2008, 20:46. Показов 918. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

!!!!В заданной строке текста выведите самое длинное слово. Учтите, что таких слов может быть несколько. Удвойте эти слова.!!!!!
а то программа которую я составил не совсем правильно работает если можете просто исправьте ошибки заранее спасибо

Pascal

uses crt;
type
mas=array [1..1000] of integer;
var
s:string;
c,b:mas;
y,r,f,i,q,j,k,max,n:longint;
begin
clrscr;
writeln('введите строку');
readln(s);
j:=1;
k:=0;
n:=0;
for i:=1 to length(s) do begin
if s[i]<>' ' then k:=k+1
else begin
b[j]:=k;
c[j]:=i;
j:=j+1;
n:=n+1;
k:=0;
end;
end;
max:=b[1];
for j:=1 to n do
if max<b[j]
then
begin
q:=c[j-1]+1;
max:=b[j];
end
else if max=b[j] then
r:=c[j-1]+1;
writeln('наиболь шее сдово в введенной строке');
for i:=q to q+max do
write(s[i]);
for i:=r to r+max do
write(s[i]);
readkey;
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

20.12.2008, 20:46

Ответы с готовыми решениями:

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

Найти самое длинное и самое короткое слово в строке и поменять их местами
Дано предложение. Найти самое длинное и самое короткое слова и поменять их местами. Удалить слова...

Найти самое короткое и самое длинное слово в строке и их позиции
Тема: Разработка алгоритмов и программ обработки строк. Использование множеств с целью решения...

В каждой строке строке файла найти самое длинное слово и дописать его в конец строки
Ввести строки с клавиатуры. Создать файл определить количество строк файла в каждой строке строке...

	20.12.2008, 20:46

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

20.12.2008, 20:46

Помогаю со студенческими работами здесь

Вывести самое длинное слово в строке.
Тема:строки. Задание: вывести самое длинное слово помогите пожалуйста!!!

Найти самое длинное слово, начинающееся с заданной буквы
Составить программы на языке Turbo Pascal по темам: 1) Строки; 2) Множества; 3) Записи;...

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

В строке заменить самое длинное на четвёртое слово
В строке В заменить самое длинное слово на четвёртое слово этойже строки. вывести на экран все...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх