Всем доброго времени суток!
Очень нужно решить одну задачку на подпрограммы.
Помогите, пожалуйста, в понедельник ужо надо сдавать, а я в эту тему вообще не въезжаю.
Очень надеюсь на Вашу помощь...
В программе должны быть использованы 2 подпрограммы (на каждое действие), точнее - Функции.
Файл, в котором выполняются действия расположен в директории "D:\File_2.dat", тип данных - Longint.
Нужно вычислить:
1) Номер минимального по модулю элемента;
2) Сумму модулей элементов, расположенных после первого отрицательного элемента.
Полная версия: Подпрограммы.
я тебе написал для первой функции, вторую напишиш по аналогии...
если что спрашивай...
Код
var
min, now:longint;
fi:file of longint; //обрати внимание типизированый файл!если что исправишь...
begin
assign(fi, fp);
reset(fi);
read(fi, min);
while (not EOF(fi)) do begin
read(fi, now);
if now < abs(min) then
min := now;
end;
minel:=min;
close(fi);
end;
begin
writeln(minel('./fi')); //передается адрес файла, исправь на тот что надо тебе..
end.
min, now:longint;
fi:file of longint; //обрати внимание типизированый файл!если что исправишь...
begin
assign(fi, fp);
reset(fi);
read(fi, min);
while (not EOF(fi)) do begin
read(fi, now);
if now < abs(min) then
min := now;
end;
minel:=min;
close(fi);
end;
begin
writeln(minel('./fi')); //передается адрес файла, исправь на тот что надо тебе..
end.
если что спрашивай...
compiler, большое спасибо!
Цитата(Psychologist @ 23.12.2007 16:14) 
compiler, большое спасибо!
пожалуйсто, спрашивай еще..Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.