В строке слова разделены пробелами. Удалить каждое нечётное слово. (Pascal)

Ответить
Crime
Сообщения: 1
Зарегистрирован: 13 май 2010, 14:11

В строке слова разделены пробелами. Удалить каждое нечётное слово. (Pascal)

Сообщение Crime » 13 май 2010, 14:20

1) В строке слова разделены пробелами. Удалить каждое нечётное слово. Напечатать полученную строку.
2)Дана последовательность слов. Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству: в слове нет повторяющихся букв.

Можете помочь решить эти две задачи через "Файл"? :)

есть мысли по поводу 1 задачи, но только не получается(((
1) program z_2;
var f,g:text;
s:string;
i:integer;
begin
assign(f,'C:\b.in');
assign(g,'C:\b.out');
reset(f); rewrite(g);
while not eof(f) do begin
while not eoln(f) do begin
readln(f,s);
i:=1;
while i mod 2<>0 do delete(s,i,length(s));
i:=i+1;
end;
end;
close(f); close(g);
end.

Хыиуду
Сообщения: 2388
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

Re: В строке слова разделены пробелами. Удалить каждое нечётное слово. (Pascal)

Сообщение Хыиуду » 17 май 2010, 13:09

Разбиение строки на слова - в разделе "алгоритмы".
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.

Ответить