0 / 0 / 0
Регистрация: 15.04.2010
Сообщений: 15
1

Найти длину самого короткого и самого длинного слова

15.04.2010, 17:40. Показов 4324. Ответов 3
Метки нет (Все метки)

пожалуйста помогите решать эту программу мне надо блок схема и программа. Дана строка, содержащая текст. найти длину самого короткого слова и самого длинного слова.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.04.2010, 17:40
Ответы с готовыми решениями:

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

Найти длину самого короткого слова и самого длинного слова
Дана строка, содержащая текст. Найти длину самого короткого слова и самого длинного слова. Как...

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

Найти длину самого короткого слова.
1. Найти длину самого короткого слова. 2. Среди слов данного предложения найдите такое, которое...

3
3306 / 1368 / 110
Регистрация: 28.04.2009
Сообщений: 4,822
15.04.2010, 17:57 2
https://www.cyberforum.ru/pasc... post415605
блок-схема к ней.
Миниатюры
Найти длину самого короткого и самого длинного слова  
1
Retired
7725 / 2557 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
15.04.2010, 17:58 3
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
uses
  crt;
const
  dividers = [' ',',','.',';',':','-','=','+'];{äîïèñàòü íóæíûå}
var
  s,temp: string;
  i,lmin,lmax: integer;
begin
  ClrScr;
  ReadLn(s);
  temp:='';
  lmax := 0;
  lmin := Length(s);
  for i := 1 to Length(s) do
  begin
    if not (s[i] in dividers) then
      temp := temp + s[i];
    if ((s[i] in dividers) or (i = Length(s))) and (temp <> '') then
    begin
      if Length(temp) < lmin then
        lmin := Length(temp)
      else
        if Length(temp) > lmax then
          lmax := Length(temp);
      temp := '';
    end
  end;
  WriteLn('Äëèíà ñàìîãî êîðîòêîãî: ', lmin, ' Äëèíà ñàìîãî äëèííîãî: ', lmax);
  ReadLn;
end.
1
3306 / 1368 / 110
Регистрация: 28.04.2009
Сообщений: 4,822
15.04.2010, 18:02 4
к программе Inadequate,
Миниатюры
Найти длину самого короткого и самого длинного слова  
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.04.2010, 18:02
Помогаю со студенческими работами здесь

Найти длину самого короткого слова
Дан текст. Найти длину самого короткого слова.

Найти длину самого короткого слова
Дано натуральное число n, символы s1..sn. Группы символов, разделенные пробелами(одним или...

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

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


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

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

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