Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
23 / 23 / 12
Регистрация: 29.11.2009
Сообщений: 210
1

Дано предложение. Вывести все его слова в порядке уменьшения их длин

18.04.2010, 20:12. Просмотров 832. Ответов 0
Метки нет (Все метки)

Дано предложение. Вывести все его слова в порядке уменьшения их длин
Есть програмка на Паскале но не знаю как переделать!!!
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
33
34
35
36
37
38
39
uses crt;
type slov = array [1..10] of string;
var p,b   : string;
    s     : slov;
    i,j,l : integer;
    q     : boolean;
procedure maxdl( ii,jj : integer;ss : slov; var ll : integer );
var t:integer;m:string;
begin
  m:=ss[ii];
  ll:=ii;   
  for t:=ii+1 to jj do
  if length(m)<length(ss[t]) then
  begin
    m:=ss[t];
    ll:=t;
  end;
end;
begin
  clrscr;
  write('text p=');readln(p);
  j:=1;
  for i:=1 to length(p) do
  begin
    b:=p[i];
    if b=' ' then j:=j+1
             else s[j]:=s[j]+b;
  end;
  b:='';
  for i:=1 to j do
     begin
       maxdl(i,j,s,l); 
       b:=s[i];        
       s[i]:=s[l];
       s[l]:=b;
     end;
  for i:=1 to j do write(s[i],' ');
readkey;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.04.2010, 20:12
Ответы с готовыми решениями:

Дано предложение. Напечатать все слова в порядке возрастания их длин
Нужно сделать без &quot;классов&quot;, а я знаю как делать только с классами. Помогите пожалуйста. Дано...

Дано предложение. Напечатать все его слова в порядке неубывания их длин
Задача через строки. Надо сделать через форму с лист боксом и текстбоксом. Дано предложение....

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

Дано предложение. Вывести все слова в предложении в противоположном порядке.
Дано предложение. Вывести все слова в предложении в противоположном порядке. Ответ вывести в новом...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.04.2010, 20:12

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

дано предложение. напечатать его слова в обратном порядке
дано предложение. напечатать его слова в обратном порядке. наприме из предложения &quot;мама мыла раму&quot;...

Дано предложение. Напечатать все его слова, отличные от слова «сон»
Дано предложение. Напечатать все его слова, отличные от слова «сон».

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

Вывести все слова строки в порядке убывания их длин
Дана строка текста, в которой слова разделены пробелами. Необходимо: - определить количество слов...


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

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

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