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

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

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

> String.
Santrex
сообщение 17.12.2004 19:30
Сообщение #1


Новичок
*

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

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


Народ.Помогите прогрмисту 1 курса.Вот проги не получаються sad.gif а сдать их надо уже через 2 дня.Помогите чем можете и чем скорей тем лучше.Заранее спасибо.
А вот и условие прог: :p2:
1)Задана строка символов.Напечать повторяющийся символ.

2)Задан текс.Выполнить Сортировку по алфавиту слов,имеющих четное количесто букв.

3)Задан текст.Удалить одинаковые слова.
:p2: В этих прогах нам запрещенно использовать Функции,Процедуры и Фаелы.
Я надеюсь вы сможете помочь мне написать хотяб пару прог.

Сообщение отредактировано: Santrex - 17.12.2004 20:25
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Santrex
сообщение 18.12.2004 15:25
Сообщение #2


Новичок
*

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

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


Это я делал раньше прогу на сортировку.
Раншь вроде сортировала.Но токо все слова, а не с четным колличесвтом букв.
Я потом пробывал переделать и запарол ее.Тперь она вроде не сортирует совсем.Посмотрите что там можно сделать.И можно ли переделать структуру
Program Zadanie2;
USES CRT;
VAR
A : ARRAY [1..10] OF string;
B : ARRAY [1..10] OF INTEGER;
I,N,k,l : INTEGER;
s : string;
BEGIN
CLRSCR;
WRITE ('N=');
READLN (N);
WRITELN ('Введите список слов после кадого Enter:');
FOR I:=1 TO N DO
READLN (A[I]);
WRITELN;
FOR I:=1 TO N DO
B[I]:=LENGTH(A[I]);
FOR I:=1 TO N DO
WRITELN ('В слове',A[ I ],' -',B[ I ],'количесвто символов');
k:=0;
for i:=1 to n do begin
k:=k+1;
end;
writeln;
writeln;
writeln ('ђҐ§г«мв в:');
writeln ('Слова с четным koli4estvom bykv = ',k);

if k mod 2 <> 0 then
while (l<=(n-1)) do begin
for n:=1 to (n-1) do begin
if (a[n] > a[n+1]) then begin
s:=a[n];
a[n]:=a[n+1];
a[n+1]:=s
end;
end;
writeln ('Отсортированный список:');

for l:=1 to n do
write (a[l],' ');
REPEAT UNTIL KEYPRESSED
end;
END.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Santrex   String.   17.12.2004 19:30
Digitalator   Эхх, что за програмистов растят в теперяшних вуз...   17.12.2004 19:53
volvo   Santrex Прекращаем дублировать темы: Чья это тема...   17.12.2004 19:58
Santrex   В этих прогах нельзя:пользоваться фаелами,функциям...   17.12.2004 20:13
Digitalator   А к чему такие жесткие ограничения? Это препод так...   17.12.2004 20:18
Santrex   Такие жоские условия поставил нам препод.Он сказал...   17.12.2004 20:31
Altair   текст задан в виде строки :) Ты это хотел от него...   17.12.2004 20:34
Digitalator   Обойдемся без иронии - условие недостаточное. Из ...   17.12.2004 20:46
Santrex   Так: Слова могут состоять как из за главных букв т...   17.12.2004 20:50
Altair   Digitalator, мне кажется, что из каких символов м...   17.12.2004 20:52
Santrex   Все правильно.Ты верно думаешь.   17.12.2004 20:55
Digitalator   Задачи бывают разые, вот у нас на первом курсе ка...   17.12.2004 22:26
Santrex   Народ пока мы будем тут спорить проги испоряться.М...   17.12.2004 23:23
Digitalator   Мало-мальский код увидишь во втором посту. А вообщ...   17.12.2004 23:29
Santrex   Тоесть я надеюсь вы сможете написать код в эти вы...   17.12.2004 23:36
Digitalator   Я могу написать обе проги за 3 мин и отладить еще ...   17.12.2004 23:40
Santrex   Спасибо я скажу полюбому.Но ты говоришь возьми хор...   17.12.2004 23:49
Digitalator   Не, я фильм несмотрю.... всякая лажа по телеку иде...   17.12.2004 23:55
Santrex   Ладно.Тоды : 1)Как выделить повторяющиеся символы ...   18.12.2004 0:14
Digitalator   1. Я же написал решение сразу же (смотри второе по...   18.12.2004 0:28
Santrex   Да между словаи пробел.   18.12.2004 0:33
Digitalator   3. здесь нужно сравнивать каждое слово с каждым и ...   18.12.2004 0:38
Digitalator   Если между словами всегда один пробел, то разбтват...   18.12.2004 0:46
Santrex   Я пробывал делать как ты сказал но у меня не получ...   18.12.2004 13:29
volvo   Santrex А можно посмотреть, КАК ты их делал? Раз ...   18.12.2004 14:53
Santrex   Это я делал раньше прогу на сортировку. Раншь врод...   18.12.2004 15:25
volvo   Santrex Теперь она сортирует по возрастанию все с...   18.12.2004 15:55
Santrex   Спасибо.Прога пашет отлично.Но ты можешь обыяснить...   18.12.2004 16:40
volvo   Santrex Не Bute, а Byte... Это маленькие числа (0...   18.12.2004 16:54
Digitalator   volvo, как всегда дал челу прогу, но вот как она р...   18.12.2004 17:20
Santrex   Почему теперь понял.Но еще надо те 2 проги.   18.12.2004 18:19
Digitalator   Если понял, то сам напишешь. Если не напишешь - зн...   18.12.2004 18:26
Santrex   Я сказал что я понял смысл этой проги.И вообще я ч...   18.12.2004 18:33
Digitalator   "Мы" - это кто? Я никому проги ТУТ не пи...   18.12.2004 18:38
Santrex   Ну тогда подожду.Что ж мне еще делать.   18.12.2004 18:41
volvo   Santrex По образу и подобию моей первой программы...   19.12.2004 12:40
Santrex   Большое спасибо тебе Volvo.Очень признателен за со...   19.12.2004 21:16
Сталкер   Для чего нужно T: string в последнем коде?   9.05.2007 21:14
samec   Для чего нужно T: string в последнем коде? ...   10.05.2007 5:38


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

 



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