Задачи на строки Опции

[Chopper]

7. С помощью текстового редактора создать файл, содержащий текст, длина которого не превышает 1000 символов (длина строки текста не должна превышать 70 символов). Имя файла должно иметь расширение DAT. Написать программу, которая:
1. выводит текст на экран дисплея;
2. определяет слова, начинающиеся и оканчивающиеся на одну и ту же букву;

Для второй задачи уже есть топик...

Сообщение отредактировано: volvo - 12.01.2005 14:16

[Altair]

И что тут сложного? вот и первая и вторая сразу.

Код

var
fn:string;
f:text;
begin
writeln('enter file name'); readln(fn);
assign(f,fn); {$I-}reset(f);{$I+}
If IORESULT<>0 then begin writeln('Error!'); halt end;
while not eof(f) do
begin
 readln(f,fn);
 writeln(fn);
 If fn[length(fn)]=fn[1] then writeln('Начинается и заканчивается на одну букву')
end;
close(f)
end.

МОжно конечно добавить ограничение на имя файла, что бы оно было обязательно DAT.
или вводить только имя, а расширение приписывать самому.
так:

Код

var
fn:string;
f:text;
begin
writeln('enter file name'); readln(fn);
If pos('.',fn)=0 then fn:=fn+'.dat';
assign(f,fn); {$I-}reset(f);{$I+}
If IORESULT<>0 then begin writeln('Error!'); halt end;
while not eof(f) do
begin
 readln(f,fn);
 writeln(fn);
 If fn[length(fn)]=fn[1] then writeln('Начинается и заканчивается на одну букву')
end;
close(f)
end.

Сообщение отредактировано: Oleg_Z - 12.01.2005 15:24

[xds]

Я уже всё решал: http://forum.pascal.net.ru/index.php...indpost&p=33420

[volvo]

xds
Та тема закрыта в связи с неверным оформлением, а у Chopper остались вопросы...

[xds]

Oleg_Z, текст представляет собой нечто большее, чем список слов - по одному в строке...

[xds]

Chopper
Вопрос: "File not found" на Reset(f)... ;)
Ответ:

C помощью текстового редактора создать файл (с именем input.dat, в текущей директории - прим. xds), содержащий текст, длина которого не превышает 1000 символов (длина строки текста не должна превышать 70 символов).

Сообщение отредактировано: xds - 12.01.2005 16:44

[Altair]

Oleg_Z, текст представляет собой нечто большее, чем список слов - по одному в строке...

дошло

ну не важно - разбить сктроку на слова - это тут обсуждалось мно раз