Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.58/12: Рейтинг темы: голосов - 12, средняя оценка - 4.58
Macjus
0 / 0 / 0
Регистрация: 28.08.2012
Сообщений: 5
1

Функция поиска самого длинного слова и его длины

28.08.2012, 22:29. Просмотров 2246. Ответов 4
Метки нет (Все метки)

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

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

Сделать большими все буквы в тех словах, длина которых меньше половины длины самого длинного слова
программа с множествами, процедурами и функциями на turbo pascal Работать с...

Сделать большими все буквы в тех словах, длина которых меньше половины длины самого длинного слова строки
на Тurbo Pascal с использованием множеств, процедур и функций

Дана строка, содержащая текст. Найти длину самого короткого слова и самого длинного слова
Добрый день! Помогите пожалуйста, не сильно разбираюсь в строках:( Дана...

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

Дана строка, содержащая текст. Найти длину самого короткого слова и самого длинного слова
Задача 10 класса, так что решение должно быть уровня школьника) Дана строка,...

4
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,717
Записей в блоге: 1
29.08.2012, 08:37 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Var s:string;
Function Max(s:string):string;
Var s1,s2:string;
    i:byte;
Begin
    s:=s+' ';s1:='';
    For i:=1 to Length(s) do
     if not(s[i] in [' ',',','.','-','!','?']) then s1:=s1+s[i]
      else 
       Begin
        if Length(s1)>Length(s2) then s2:=s1;
        s1:='';
       End;
    Max:=s2;
End;  
Begin
    write('Введите строку: ');readln(s);
    writeln('Самое длинное слово: ',Max(s),' его длина ',Length(Max(s)));
    readln;
End.
1
Macjus
0 / 0 / 0
Регистрация: 28.08.2012
Сообщений: 5
29.08.2012, 10:15  [ТС] 3
Спасибо за ответ.

Подобный код я отправил преподавателю.
И получил ответ что задача решена по сути, но не соответствует условиям.

Дело в том, что расчет длины слова происходит в вызывающем коде. (length(Max(s))
А в условиях задачи написано что "самое длинное слово и его длину должна возвращать функция.
То есть функция должна выдвать два результата, а вызывающий код просто показать их.

В том что бы получить от функции два результата и возникла у меня беда.
Сможете помочь?
0
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,717
Записей в блоге: 1
29.08.2012, 10:20 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Var s:string;
    max1:byte;
Function Max(s:string;Var max1:byte):string;
Var s1,s2:string;
    i:byte;
Begin
    s:=s+' ';s1:='';
    For i:=1 to Length(s) do
     if not(s[i] in [' ',',','.','-','!','?']) then s1:=s1+s[i]
      else 
       Begin
        if Length(s1)>Length(s2) then s2:=s1;
        s1:='';
       End;
    max1:=Length(s2);
    Max:=s2;
End;  
Begin
    write('Введите строку: ');readln(s);
    writeln('Самое длинное слово: ',Max(s,max1),' его длина ',max1);
    readln;
End.
1
Macjus
0 / 0 / 0
Регистрация: 28.08.2012
Сообщений: 5
29.08.2012, 11:20  [ТС] 5
Большое спасибо за опреативность!
Все отлично работает!
0
29.08.2012, 11:20
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.08.2012, 11:20

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

Поменять местами названия самого длинного и самого короткого слова
Помогите, наведите хоть на мысль! Задание: Задан список из десяти городов....

Поиск номера самого короткого слова и его длины
Для текста, состоящего из слов, разделенных пробелами, выполнить: поиск...


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

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

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