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

Дана строка слов (слова разделены пробелами). Расположить слова в строке в алфавитном порядке

11.11.2014, 23:19. Показов 2147. Ответов 1
Метки нет (Все метки)

Знаю как в c++. А на паскале не пойму как написать....
C++
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
#include <iostream>
#include <string>
#include <vector>
#include <iterator>
#include <algorithm>
 
std::vector<std::string> strtok(const std::string , const std::string );
 
int main()
{
   std::string s(",Hello  world,!A! B!   ");
   std::string d (" ,.!");
   std::vector<std::string> v;
   
   v = strtok (s, d);
   std::sort(v.begin(), v.end());
   std::copy(v.begin(), v.end(), std::ostream_iterator<std::string>(std::cout, " "));
 
   return 0;
}
 
std::vector<std::string> strtok(const std::string s, const std::string DELIM)
{
   std::vector<std::string> v;
   std::string tmp;
   size_t l, r;
 
   for ( l = s.find_first_not_of(DELIM), r = s.find_first_of(DELIM, l) ; 
      l != std::string::npos ; l = s.find_first_not_of(DELIM, r), r = s.find_first_of(DELIM, l) )
      v.push_back(s.substr(l, r - l));
   return v;
}
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.11.2014, 23:19
Ответы с готовыми решениями:

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

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

Расположить слова в строке в алфавитном порядке
Дана последовательность слов(слова разделены пробелами).Расположить слова в строке в алфавитном...

Дана строка из некоторого количества слов. Слова разделены в строке знаками",","пробел"
Дана строка из некоторого количества слов. Слова разделены в строке знаками&quot;,&quot;,&quot;пробел&quot;.Вставить...

1
Эксперт Pascal/Delphi
2380 / 1292 / 1491
Регистрация: 29.08.2014
Сообщений: 4,626
12.11.2014, 14:33 2
Лучший ответ Сообщение было отмечено Annet96 как решение

Решение

кривовато, но работает
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
  s,s2:string;
  i,j,k:integer;
  s1:array[1..128] of string;{не более 128 слов в строке в TP ограничение на размер строки 255 символов}
begin
  write('Строка:');readln(s);
  i:=1;
  while pos(#32,s)>0 do begin 
  while (length(s)>0) and (s[1]=#32) do delete(s,1,1);
    s1[i]:=copy(s,1,pos(#32,s)-1);
    delete(s,1,pos(#32,s));
    inc(i);
  end;
  s1[i]:=s;
  for j:=1 to i-1 do
    for k:=j to i do
      if s1[j]>s1[k] then begin
        s2:=s1[k];
        s1[k]:=s1[j];
        s1[j]:=s2;
      end;
   for j:=1 to i do writeln(s1[j]);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.11.2014, 14:33

Дана последовательность от 1 до 30 слов. Вывести все слова в алфавитном порядке
Дана последовательность ,содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных...

Дана последовательность от 1 до 30 слов. Вывести все слова в алфавитном порядке
Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных...

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru