Developing.ru

[quote="&quot"]Понятно. В паскале таких процедур нет...[/quote]
Это собственно не процедуры, а директивы компилятора, т.с. Predefined keywords - но все-равно оффтоп получается ;-)

Понятно. В паскале таких процедур нет...

Попытаться выполнить
for i:=1 to num do readln(f,s);
Если при выполнении предыдущего блока возникла ошибка, закончить его выполнение и выполнить
s:='Строки с таким номером в файле нет';
После окончания обоих блоков (не важно, произошла ли в первом ошибка, или нет), выполнить
writeln(s);
end;

Вот сейчас не скажу точно, есть ли это в Паскале или нет, в Дельфи точно есть. Это процедуры обработки прерываний. Выглядит это так:
[code]
Попытаться выполнить
for i:=1 to num do readln(f,s);
Если при выполнении предыдущего блока возникла ошибка, закончить его выполнение и выполнить
s:='Строки с таким номером в файле нет';
После окончания обоих блоков (не важно, произошла ли в первом ошибка, или нет), выполнить
writeln(s);
end;
[/code]

[quote="Хыиуду"]try
for i:=1 to num do readln(f,s);
except
s:='Строки с таким номером в файле нет';
finally
writeln(s);
end;[/quote]
[b]Хыиуду[/b], а что это за [b]Try, expect, finally[/b]. Никогда не сталкивался с такими процедурами...

Ну так тогда и надо писать: вывести строку в файле, номер которой задан пользователем.
{открытие файла}
try
for i:=1 to num do readln(f,s);
except
s:='Строки с таким номером в файле нет';
finally
writeln(s);
end;

[quote="Хыиуду"]По-моему, №3 делается так:
readln(s);
writeln(s);
Ошибок тут возникнуть все равно не может. Только непонятно, при чем тут файл.[/quote]

Это как я понимаю вводиться номер строки в файле, а потом эта строка из файла. Ошибка возможна если нет такой строки

[quote] Сообщение от [b]Хыиуду[/b][i]
Только непонятно, при чем тут файл.[/i][/quote]
Обрати внимание, писал в 3 часа ночи, спешил и по-привычке написал [b]var f: fille[/b]. Надеюсь, зная что речь идёт о текстовых файлах, он поймёт, что переменная [b]F[/b] должна иметь тип [b]text[/b]...

По-моему, №3 делается так:
readln(s);
writeln(s);
Ошибок тут возникнуть все равно не может. Только непонятно, при чем тут файл.

uses crt, WinDos;
var info, s: string;
di: TSearchRec;
f: text;
procedure add_information;
begin
s:=di.name;
assign(f,s);
append(f);
writeln(f, info);
close(f);
end;

begin
clrscr;
write('Введите информацию которую нужно добавить: ');
readln(info);
findfirst('*.txt', faAnyfile, di);
if DosError=0 then add_information;
while DosError=0 do begin
findnext(di);
add_information;
end;
end.

uses crt, windos;
var di: TSearchRec;
begin
clrscr;
findfirst('*.txt', faAnyFile, di);
while DosError=0 do begin
writeln(di.name);
findnext(di);
end;
readkey;
end.

uses crt;
var f: file;
i,pos: integer;
s: string;
begin
assign(f, 'stroka.txt'); {$I-}reset(f);{$I+}
if IOResult<>0 then write('Файл не существует.');
write('Введите номер строки: ');
readln(pos);
for i:= 1 to pos do readln(f,s);
while not eoln(f) do begin
read(f,s);
write(s);
end;
readkey;
end.

[quote][i]1. Программа дополняет существующие файлы информацией;[/i][/quote]
Здесь удобнее было бы процедеру, дополняющую соответствующую информацию. [b]info[/b] - переменная типа string, содержащая информацию. S - тоже имеет тип string. Она содержит имя связывымаго на внешнем носителе файла.
[code]
uses crt, WinDos;
var info, s: string;
di: TSearchRec;
f: text;
procedure add_information;
begin
s:=di.name;
assign(f,s);
append(f);
writeln(f, info);
close(f);
end;

begin
clrscr;
write('Введите информацию которую нужно добавить: ');
readln(info);
findfirst('*.txt', faAnyfile, di);
if DosError=0 then add_information;
while DosError=0 do begin
findnext(di);
add_information;
end;
end.
[/code]
[quote][i]2. Выводит на экран существующие файлы;[/i][/quote]
2. Здесь также используется модуль WinCrt.
[code]
uses crt, windos;
var di: TSearchRec;
begin
clrscr;
findfirst('*.txt', faAnyFile, di);
while DosError=0 do begin
writeln(di.name);
findnext(di);
end;
readkey;
end.
[/code]
[quote][i]3. Выводит на экран строку, заданную пользователем (предусмотреть защиту от ошибок);[/i][/quote]
[code]
uses crt;
var f: file;
i,pos: integer;
s: string;
begin
assign(f, 'stroka.txt'); {$I-}reset(f);{$I+}
if IOResult<>0 then write('Файл не существует.');
write('Введите номер строки: ');
readln(pos);
for i:= 1 to pos do readln(f,s);
while not eoln(f) do begin
read(f,s);
write(s);
end;
readkey;
end.
[/code]

Задача программы [Pascal]:
1. Программа дополняет существующие файлы информацией;
2. Выводит на экран существующие файлы;
3. Выводит на экран строку, заданную пользователем (предусмотреть защиту от ошибок);

Буду благодарен за исходный код программы [Pascal].