Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.12.2008, 13:00   #11
SashaPRO
Пользователь
 
Регистрация: 08.12.2008
Сообщений: 15
По умолчанию

отлично,то что надо..а вот начсет 2 задачи...не могли бы посмотреть..просто там надо на массив строк...т.е.текст..и составить из слов которые разделены 1м пробелом..
SashaPRO вне форума Ответить с цитированием
Старый 09.12.2008, 13:09   #12
SashaPRO
Пользователь
 
Регистрация: 08.12.2008
Сообщений: 15
По умолчанию

спсибо...а не могли бы вы пересмотреть 2ю задачу..просто там на массив строк..текст же..
SashaPRO вне форума Ответить с цитированием
Старый 09.12.2008, 13:16   #13
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
Смех

Спокойно,спокойно щас посмотрю
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Старый 09.12.2008, 13:23   #14
SashaPRO
Пользователь
 
Регистрация: 08.12.2008
Сообщений: 15
По умолчанию

да я прост не знал что тут и на другую страничку мона))))) не заметил внизу переключателя))))) а первую с девочками никак да? она на множества
SashaPRO вне форума Ответить с цитированием
Старый 09.12.2008, 13:47   #15
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Цитата:
2.Задан текст,состоящий из слов, которые разделены одним или несколькими пробелами. Сформировать новый текст, включив в него слова заданного, разделенные только одним пробелом.
Вот текст: abcd acb acb bmnb bnm. Программа выдаст abcd acb acb bnmb. Потому что хоть 2 и 3 слова разделены 2-мя пробелами, но 3 и 4 одним пробнлом поэтому-то и выводим их в результат. Если я неправильно понял, то скажите как надо

Код:
uses crt;
var s,s1:string;
    ch:char;
    flag,next:boolean;
begin
clrscr;
writeln('Input string');
s:='';s1:='';flag:=false;next:=false;
repeat
ch:=readkey;
write(ch);
if (flag) and (ch=' ')then begin
                           flag:=false;
                           if next then s1:=s1+s+' ';
                           s:='';
                           next:=false;
                          end;
if (flag)and(ch<>' ') then begin
                           s1:=s1+s+' ';
                           flag:=false;
                           next:=true;
                           s:=''
                           end;
if ch<>' ' then s:=s+ch
   else if length(s)>0 then flag:=true;
until ch=#13;
if next then s1:=s1+s+' ';
writeln;
writeln('Res:',s1);
readln;
end.
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Старый 09.12.2008, 13:52   #16
SashaPRO
Пользователь
 
Регистрация: 08.12.2008
Сообщений: 15
По умолчанию

ой,вот то что надо,спасибо большое,а с девочками теми никак да? я как то искал на одном сайте,там типа то что много писанины и делать не стали
SashaPRO вне форума Ответить с цитированием
Старый 09.12.2008, 14:16   #17
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Цитата:
1.Заданы имена девочек. Определить, какие из этих имен встречаются во всех классах данной параллели, которые есть только в некоторых классах и какие из этих имен не встречаются ни в одном классе.
Так надо по классам вводить имена?
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Старый 09.12.2008, 14:25   #18
SashaPRO
Пользователь
 
Регистрация: 08.12.2008
Сообщений: 15
По умолчанию

ну я даже не знаю,задача точь в точь как в условии,я думаю что да,типа вводишь класс и тебе все именеа наверн или как то иначе
SashaPRO вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
несколько пробелов заменить одним пробелом Андрю)(@ Помощь студентам 4 10.11.2008 14:56
Найти все слова, отличающиеся от заданного на 1 букву и имеющую ту же длинну. gred Помощь студентам 5 23.05.2008 08:32
Си - Написать функцию, проверяющую наличие в строке заданного слова Cvetok Помощь студентам 1 14.05.2008 05:44
Как вывести текст в окно без компонентов делфи. Только на win api deadh5n1 Помощь студентам 1 08.12.2007 01:41
Вывести на экран те слова, у которых первая буква входит в него 2 раза. GN_ Паскаль, Turbo Pascal, PascalABC.NET 2 31.12.2006 09:14