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

[Chopper]

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

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

Сообщение отредактировано: volvo - 12.01.2005 10: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 11:24