IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Строковый тип данных
Lesnik
сообщение 18.12.2006 20:25
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской

Репутация: -  0  +


Вводится строка из слов, разделённых пробелами или запятыми.
Разбить строку на слова и вывести их на экран в алфовитном порядке.

Просмотрел в FAQ методы сортировок и не совсем понял какая нужна. Надо делать без функций и процедур. Программа должна быть без лишних наворотов.

Тому, кто поможет, скажу ОГРОМНОЕ спасибо и буду ставить + в репутацию до конца недели smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
мисс_граффити
сообщение 19.12.2006 1:13
Сообщение #2


просто человек
******

Группа: Модераторы
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


хорошо, следующее задание: сделать, чтобы это работало.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Lesnik
сообщение 19.12.2006 9:33
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской

Репутация: -  0  +


Цитата(мисс_граффити @ 19.12.2006 1:13) *

хорошо, следующее задание: сделать, чтобы это работало.


Код

program COK;
uses crt;
const

   limits = [#0..#32,'.',' '];
type

   TWords = array[1..40] of string;

var
   text : string;
   words : TWords;
   i,back,n : byte;
begin
For i:=1 to 40 do
begin
Read(text);
words[i]:=text;
end;
   i := 1;
   n := 0;
   while(i<=length(text)) do begin
      while(i<=length(text)) and (text[i] in limits) do
       inc(i);
      if i<=length(text) then begin
         back := i;
         while(i<=length(text)) and not(text[i] in limits) do
          inc(i);
         inc(n);
         words[n] := copy(text, back, i-back);
      end;
For i:=1 to 40 do
Writeln(words[i]);

end;
      end.

Запускается, но не выводит. Наверное, неправильно рассавил ввод и вывод.

Сообщение отредактировано: Lesnik - 19.12.2006 9:36
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Malice
сообщение 19.12.2006 10:08
Сообщение #4


Профи
****

Группа: Пользователи
Сообщений: 705
Пол: Мужской

Репутация: -  20  +


Да нет, все должно работать. Может Alt-F5 надо или Readln; в конце программы. Осталось только сортировку, берешь вот отсюда Методы сортировок любую.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Lesnik
сообщение 19.12.2006 11:25
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской

Репутация: -  0  +


Цитата(Malice @ 19.12.2006 10:08) *

Да нет, все должно работать. Может Alt-F5 надо или Readln; в конце программы. Осталось только сортировку, берешь вот отсюда Методы сортировок любую.

Даже с ридлн выкидывает.
При альт+ф5 я вжу просто пустой экран
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Lesnik   Строковый тип данных   18.12.2006 20:25
мисс_граффити   ну, допустим, + ты ставить не сможешь при всем жел...   18.12.2006 22:21
Lesnik   ну, допустим, + ты ставить не сможешь при всем же...   18.12.2006 22:32
мисс_граффити   ну да. вставляй. и допиши ввод строки и вывод масс...   19.12.2006 0:43
Lesnik   ну да. вставляй. и допиши ввод строки и вывод мас...   19.12.2006 0:57
мисс_граффити   хорошо, следующее задание: сделать, чтобы это рабо...   19.12.2006 1:13
Lesnik   хорошо, следующее задание: сделать, чтобы это раб...   19.12.2006 9:33
Malice   Да нет, все должно работать. Может Alt-F5 надо или...   19.12.2006 10:08
Lesnik   Да нет, все должно работать. Может Alt-F5 надо ил...   19.12.2006 11:25
volvo   Правильно... Ты печатаешь 40 строк (большинство из...   19.12.2006 11:40
Lesnik   Для того, чтобы отсортировать слова - просто ПЕ...   19.12.2006 12:12
volvo   Нет... Перед For i:=1 to n do Writeln(word...   19.12.2006 12:14
Lesnik   Такс если я выбрал этот метод сортировки Type a...   19.12.2006 23:10
Lesnik   Вот, что получилось program COK; uses crt; con...   20.12.2006 0:13
Malice   потому что t-byte, а words[i] - string. Сделай t...   20.12.2006 0:15
Lesnik   потому что t-byte, а words[i] - string. Сделай ...   20.12.2006 0:21


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 0:45
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"