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

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

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

Сообщение Crime » Чт май 13, 2010 2:20 pm

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 9:03 pm
Откуда: Москва
Контактная информация:

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

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

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

Ответить