Определить n самых длинных слов. Слова вводятся через пробел.(с использованием функции Length)

28.02.2012, 18:59. Показов 754. Ответов 0

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

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

Помогите пожалуйста написать программу. Вот что у меня получилось)))

Pascal

var i,chislo,n,k:integer;
str,stroka,slovo:string;
begin
n:=StrToInt(Edit2.Text);
stroka:=edit1.Text;
chislo:=0;
str:='';
slovo:='';
stroka:=stroka+' ';
k:=0;
while k=n do begin
  for i:=1 to Length(stroka) do
  begin
    if stroka[i]<>' ' then
    begin
    str:=str+stroka[i];
    end else
    begin
      if Length(str)>chislo then
      begin
        chislo:= Length(str);
        slovo:=str;
      end;
    str:='';
    end;
    k:=k+1;
  end;
Memo1.Lines.Add(slovo);
end;
end;
 
end.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

28.02.2012, 18:59

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

Вывести гласные двух самых длинных слов
Здравствуйте уважаемые программисты. Мне была задана задача,я её решил,всё работает правильно но...

Найти количество самых длинных слов в тексте
Найти количество самых длинных слов в тексте (текст взять из текстового файла)

Найти одно из самых длинных слов в текстовом файле
Напишите программу, находящую одно из самых длинных слов в текстовом файле. Под словом понимается...

Найти два самых длинных слова, которые полностью состоят из более коротких слов того же массива
Задача такая. Дан набор слов. Слово это не смысловая единица, а просто набор символов. Если что, их...

	28.02.2012, 18:59

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

28.02.2012, 18:59

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

Строки: найти первое из самых длинных и последнее из самых коротких слов и поменять их местами
Помогите написать прогу) 1. Строка состоит не менее чем из двух слов. Преобразовать её по...

В строку через пробел вводятся слова. Отсортировать введенные слова по алфавиту. Результат вывести в виде столбца.
В строку через пробел вводятся слова. Отсортировать введенные слова по алфавиту. Результат вывести...

Пять самых длинных слов
Дана строка слов разделенных пробелами, запятыми, точками. Сформируйте новую строчку из пяти самых...

Найти 5 самых длинных слов
Как найти 5 самых длинных слов? #include "stdafx.h" #include "windows.h" #include <iostream>...

Найти 50 самых длинных слов в файле
Здравствуйте! Буду благодарна за помощь) Нужно в большом файле с текстом найти 50 самых длинных...

Определение самых длинных слов в строке
Добрый день форумчани:) учусь совершенно не на информатической специальности,а задали сделать 3...

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

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

Наверх