Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
building
0 / 0 / 0
Регистрация: 10.04.2011
Сообщений: 5
1

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

11.04.2011, 19:55. Просмотров 1105. Ответов 2
Метки нет (Все метки)

Я конечно понимаю, что глупо этого не знать, но помогите с такой программой:

В заданной строке вывести самые короткое и самое длинное слова (учтите что таких слов может быть несколько).
Напишите, если не сложно саму программу. ОООООООООчень нужно
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.04.2011, 19:55
Ответы с готовыми решениями:

В заданной строке текста выведите самое короткое (длинное) слово. Учтите, что таких слов может быть несколько
В заданной строке текста выведите самое короткое (длинное) слово. Учтите, что...

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

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

Найти самое длинное и самое короткое слово в строке
Пишем 5 слов, а далее выводим самое длинное и самое короткое слово в строке....

Вывести на экран самое длинное и самое короткое название города
Даны названия трех городов. Вывести на экран самое длинное и самое короткое...

2
Высокий
245 / 245 / 135
Регистрация: 09.04.2011
Сообщений: 524
11.04.2011, 20:35 2
Лучший ответ Сообщение было отмечено building как решение

Решение

Вот, нашел из личного архива. Но не учитывает, что слов одинаковой длинны может быть несколько, сейчас посижу, дошаманю...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Program lab11;
uses crt;
const rz=[' ',',','.','/','?',';'];
var s,s1:string;
sk,sd:string;
k,d,i,ik,id,j,p:byte;
Procedure Proc(s,s1:string; var sk:string; var sd:string; k,d,i,ik,id,j,p:byte);
begin
write('Введите предложение|--> ');
readln(s);
i:=1;
d:=0;id:=1;
k:=255;ik:=1;
while i<=length(s) do
if not(s[i] in rz) then
begin
s1:='';
j:=i;
p:=0;
while not(s[j] in rz)and(j<=length(s)) do
begin
s1:=s1+s[j];
inc(j);
inc(p);
end;
if length(s1)<k then
begin
sk:=s1;
k:=length(s1);
ik:=i;
end;
if length(s1)>d then
begin
sd:=s1;
d:=length(s1);
id:=i;
end;
i:=i+p;
end
else i:=i+1;
end;
begin clrscr;
proc(s, s1, sk, sd, k,d,i,i,ik,id,j);
writeln;
writeln('|--> ',sk,'  - самое короткое слово');
writeln;
writeln('|--> ',sd,'  - самое длинное слово.');
readkey
end.
0
building
0 / 0 / 0
Регистрация: 10.04.2011
Сообщений: 5
12.04.2011, 16:13  [ТС] 3
спасбо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.04.2011, 16:13

В заданной строке определить самое длинное слово и вывести его
1.У заданной строке определить самое длинное слово и вывести его 2.У...

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

Дан текст. В каждом предложении выписать самое длинное и самое короткое слово
Дан текст. В каждом предложении выписать самое длинное и самое короткое слово.


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru