7. С помощью текстового редактора создать файл, содержащий текст, длина которого не превышает 1000 символов (длина строки текста не должна превышать 70 символов). Имя файла должно иметь расширение DAT. Написать программу, которая:
1. выводит текст на экран дисплея;
2. определяет слова, начинающиеся и оканчивающиеся на одну и ту же букву;
Для второй задачи уже есть топик...
Полная версия: Задачи на строки
И что тут сложного? вот и первая и вторая сразу.
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.
Код
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.
Я уже всё решал: http://forum.pascal.net.ru/index.php...indpost&p=33420 
xds
Та тема закрыта в связи с неверным оформлением, а у Chopper остались вопросы...
Та тема закрыта в связи с неверным оформлением, а у Chopper остались вопросы...
Oleg_Z, текст представляет собой нечто большее, чем список слов - по одному в строке...
Chopper
Вопрос: "File not found" на Reset(f)... ;)
Ответ:
Вопрос: "File not found" на Reset(f)... ;)
Ответ:
Цитата
C помощью текстового редактора создать файл (с именем input.dat, в текущей директории - прим. xds), содержащий текст, длина которого не превышает 1000 символов (длина строки текста не должна превышать 70 символов).
Цитата
Oleg_Z, текст представляет собой нечто большее, чем список слов - по одному в строке...
дошло ну не важно - разбить сктроку на слова - это тут обсуждалось мно раз
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.