Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 02.12.2012
Сообщений: 7
1

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

09.12.2012, 21:53. Показов 1770. Ответов 1
Метки нет (Все метки)

В заданном предложении найдите самое короткое и самое длинное слова и укажите позиции, с которых они начинаются.
Нужно написать через массив.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.12.2012, 21:53
Ответы с готовыми решениями:

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

В заданном предложении найти самое короткое и самое длинное слово и УКАЗАТЬ ПОЗИЦИИ, с которых они начинаются
В заданном предложении найти самое короткое и самое длинное слово и указать позиции, с которых они...

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

В заданном предложении поменять местами самое длинное и самое короткое слова
В заданном предложении поменять местами самое длинное и самое короткое слова. Считать, что слова в...

1
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,268
Записей в блоге: 1
10.12.2012, 09:52 2
Лучший ответ Сообщение было отмечено Evelin_18 как решение

Решение

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
Const mn=[' ',',','!','.','?'];
Var s,s1,max,min:string;
    imax,imin,i:byte;
Begin
    write('Введите строку: ');readln(s);
    s:=s+' ';max:='';min:=s;s1:='';
    For i:=1 to Length(s) do
     if not(s[i] in mn) then s1:=s1+s[i] 
      else
      Begin
        if Length(s1)>Length(max) then
        Begin
          max:=s1;
          imax:=i-Length(s1);
        End;
        if Length(s1)<Length(min) then
        Begin
          min:=s1;
          imin:=i-Length(s1);
        End;
        s1:='';
      End;
    writeln('Самое длинное слово = ',max,' начинается с позиции ',imax);
    writeln('Самое короткое слово = ',min,' начинается с позиции ',imin);
    readln;
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.12.2012, 09:52

В заданном предложении поменять местами самое длинное и самое короткое слова
В заданном предложении поменять местами самое длинное и самое короткое слова. Считать, что слова в...

В заданном предложении поменять местами самое длинное и самое короткое слова
В заданном предложении поменять местами самое длинное и самое короткое слова. Считать, что слова в...

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru