Форум программистов, компьютерный форум CyberForum.ru

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

Восстановить пароль Регистрация
 
Rom@
22 / 31 / 3
Регистрация: 29.11.2009
Сообщений: 210
18.04.2010, 20:12     Дано предложение. Вывести все его слова в порядке уменьшения их длин #1
Дано предложение. Вывести все его слова в порядке уменьшения их длин
Есть програмка на Паскале но не знаю как переделать!!!
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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.04.2010, 20:12     Дано предложение. Вывести все его слова в порядке уменьшения их длин
Посмотрите здесь:

Дано предложение. Вывести все различные слова. C++
Дано предложение. Вывести все различные слова C++
Дано предложение. Вывести все различные слова. C++
Дан текст, вывести на экран слова в порядке уменьшения их длины! C++
Дана строка. Вывести слова в порядке их уменьшения C++
Дано предложение. Напечатать все различные слова C++
C++ Дано предложение. Напечатать все слова в порядке возрастания их длин
Вывести слова сообщения в порядке возрастания их длин C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 03:41. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru