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

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

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

 
 Ответить  Открыть новую тему 
> решите пожалуйста задачу, последовательность слов
сообщение
Сообщение #1





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

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


Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 символов, между соседними словами – произвольное число пробелов, за последним словом точка. Напечатать эту же последовательность, удалив из всех слов заданный символ.
Это простая задача,но я чё то торможу....заучился...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

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


Показывай, что делал. В faq есть соответствующие материалы. Решалось сто раз похожее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





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

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


Цитата(Michael_Rybak @ 16.12.2007 15:15) *

Показывай, что делал. В faq есть соответствующие материалы. Решалось сто раз похожее.

program z6_2;
uses crt;
type
masslovo = array [1..30] of string[10];
var
txt: masslovo;
i, n: integer;
ans, sim, c: char;
fl: boolean;
begin
repeat
clrscr;
writeln ('NABERITE POSLEDOVATELNOST IS SLOV,');
writeln ('NE PREVISHAUSCHIH 10 SIMVOLOV, I NE BOLEE 30 SLOV.');
n := 1;
repeat
c := readkey;
write ©;
if c = ' '
then
begin
if fl = true
then
begin
inc(n);
fl := false;
end;
end
else
if c <> '.'
then
begin


end;
until c = '.';

writeln;
writeln ('vvedite symbol kotoryi nugno udalit: ');
readln (sim);

i := 1;
while i <= length(txt) do
if txt[i] in [sim]
then delete(txt, i, 1)
else inc(i);
{vyvod}
writeln(' result = ', txt);

write('HOTITE LI VI POVTORIT? (Y/N)');
ans:=readkey;
until UpCase(ans) = 'N';
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 28.09.2020 7:48
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name