Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / SRCH
.PAS unit srch;
interface
procedure openfile (s: string);
procedure getchar (var c: char);
procedure closefile;
implementation
var f:text;
procedure openfile (s:string);
begin
assign (f,s);
reset (f);
end;
procedure getchar (var c:char);
begin
read (f,c);
end;
procedure closefile;
begin
close (f);
end;
end.
interface
procedure openfile (s: string);
procedure getchar (var c: char);
procedure closefile;
implementation
var f:text;
procedure openfile (s:string);
begin
assign (f,s);
reset (f);
end;
procedure getchar (var c:char);
begin
read (f,c);
end;
procedure closefile;
begin
close (f);
end;
end.
Соседние файлы в папке Alex