Предмет: Информатика,
автор: ubivator2
функция принимает в качестве параметра имя файла Name
FUNCTION F(NAME:STRING):INTEGER;
Hammerton:
что ты хочешь сделать? этой функцией?
Ответы
Автор ответа:
1
Программа будет работать при условии, что указанный файл с целыми числами существует!Function P(name:string):integer;var f:file of integer;a,min:integer;beginAssign(f, name);Reset(f);Read(f,min);while not eof(f) do begin read(f,a); if abs(a)<abs(min) then min:=a; end;Close(f);P:=min;end;var s:string;beginwriteln('Введите имя файла:');readln(s);writeln('min = ',P(s));end.
Подробнее - на Znanija.com -
Подробнее - на Znanija.com -
Похожие вопросы
Предмет: Українська література,
автор: megayarik77712
Предмет: Химия,
автор: alanwater17
Предмет: Русский язык,
автор: Аноним
Предмет: Литература,
автор: ALinA11147
Предмет: Обществознание,
автор: BOSS09111