Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 10.04.2014
Сообщений: 10
1

Выяснить, какое слово встречается раньше в строке с наименьшим или наибольшим количеством символов

10.04.2014, 20:11. Показов 1542. Ответов 1
Метки нет (Все метки)

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

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

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.04.2014, 20:11
Ответы с готовыми решениями:

Выяснить, какое число встречается раньше — положительное или отрицательное
Составить программу на паскале, содержащую 4 подпрограммы. Дан одномерный массив, выполнить след....

Выяснить, какое число встречается раньше – положительное или отрицательное
Здравствуйте. Помогите з кодом пожалуйста. using System; using...

Выяснить, какое число встречается раньше - положительное или отрицательное
Дана последовательность целых чисел a1,a2,.....,an.Выяснить, какое число встречается раньше -...

Выяснить, какое число встречается раньше — положительное или отрицательное
Дана последовательность целых чисел a1, a2, ..., an. Выяснить, какое число встречается раньше -...

1
Фрилансер
3413 / 2810 / 3000
Регистрация: 08.02.2012
Сообщений: 8,156
Записей в блоге: 1
12.04.2014, 11:02 2
Лучший ответ Сообщение было отмечено Кристина97 как решение

Решение

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
Var s,st,maxs,mins:string;
    k,maxk,mink:byte;
Begin
    write('Строка: ');readln(s);
    s:=s+' ';
    mins:=s;maxs:='';
    While Pos(' ',s)>0 do
    Begin
      st:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if st<>'' then inc(k);
      if Length(st)>Length(maxs) then 
      Begin
        maxs:=st;
        maxk:=k;
      End;
      if (Length(st)<Length(mins))and(st<>'') then 
      Begin
        mins:=st;
        mink:=k;
      End;
    End;
    writeln('Max слово = ',maxs);
    writeln('Min слово = ',mins);
    if maxk<mink then writeln('Слово с наибольшим количество символов встречается раньше')
     else writeln('Слово с наименьшим количество символов встречается раньше');
    readln;
End.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.04.2014, 11:02

Выяснить, какое число встречается раньше – положительное или отрицательное
Дана последовательность целых чисел a1, a2, ..., an. Выяснить, какое число встречается раньше –...

Выяснить, какое число встречается раньше — положительное или отрицательное
Помогите пожалуйста. 1. Дана последовательность чисел а1,а2, ... , а(n) (а в степени n)....

Выяснить, какое число встречается раньше — положительное или отрицательное
Здравствуйте,помогите пожалуйста написать код к задаче: Дана последовательность целых чисел a1,...

Выяснить, какое число встречается раньше — положительное или отрицательное
13.Дана последовательность целых чисел а1 а2,..., аn . Выяснить, какое число встречается раньше -...

Выяснить какое число встречается раньше-положительное или отрицательное
Нужен исходник программы,через обькт Memo.Дана последовательность целых чисел a1,...,a10 Выяснить...

Выяснить, какое число встречается раньше — положительное или отрицательное
Собственно сама задача: Дана последовательность целых чисел a1, a2, ..., an. Выяснить, какое...


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

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

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