Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Дарья Прохорова
1 / 1 / 0
Регистрация: 03.12.2009
Сообщений: 81
1

Строковые функции

25.03.2010, 00:09. Просмотров 642. Ответов 1
Метки нет (Все метки)

дана строка. определить в строке самое длинное слово. если их несколько, вывести все имеющиеся
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.03.2010, 00:09
Ответы с готовыми решениями:

Строковые процедуры и функции
Помогите Пожалуйста уже всю голову сломал в поиске решения((( Задача такова:ввести в переменную...

написать програмку (строковые функции)
Привет всем! Нужно написать программу: в строке введённой с клавиатуры подсчитать кол-во знаков...

Строковые переменные
Пожалуйста сделайте кто нибуть прогу, буду очень благодарен. Дан текст. Найти самую длинную группу...

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

Строковые переменные
Составить программу, удаляющую каждую нечетную букву слова.

1
Жека-старший
Студент
497 / 343 / 162
Регистрация: 15.03.2010
Сообщений: 601
25.03.2010, 06:57 2
Лучший ответ Сообщение было отмечено Дарья Прохорова как решение

Решение

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
var txt:string;sl:array[1..50] of string; ksl,i,j,max,mm:byte;
function f_bukva(sim:char):boolean;
begin
   if sim in ['а'..'я','ё','А'..'Я','Ё'] then f_bukva:=true
   else f_bukva:=false;
end;
procedure pr_slova(text:string;var ksl:byte;var sl:array[1..50] of string);
var i:byte;
begin
  ksl:=0;
  for i:=1 to length(text) do
  if f_bukva(text[i])  then begin
                              inc(ksl);
                              sl[ksl]:='';
                              while f_bukva(text[i])and(i<=length(text)) do
                              begin
                                sl[ksl]:=sl[ksl]+text[i];
                                inc(i);
                              end;
                            end;
end;
begin
   writeln('Введите текст');
   readln(txt);
   pr_slova(txt,ksl,sl);
   max:=length(sl[1]);
   for i:=2 to ksl do
   if length(sl[i])>max then max:=length(sl[i]);
   writeln('Список');
   for i:=1 to ksl do
   if length(sl[i])=max then writeln(sl[i],';');
end.
вроде так...
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.03.2010, 06:57

Строковые переменные
помогите с задачей,ПЛЗ. просто тупо непонемаю ее,пож. Дан текст. Найти самую длинную группу цифр,...

Строковые переменные
Ввести текст, состоящий не менее чем из 13 слов, разделенных между собой точками. В данном тексте...

Строковые переменные
Составить программу, удаляющую каждую нечетную букву слова.


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

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

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