Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Подпрограммы.

Автор: Psychologist 22.12.2007 23:15

Всем доброго времени суток!
Очень нужно решить одну задачку на подпрограммы.
Помогите, пожалуйста, в понедельник ужо надо сдавать, а я в эту тему вообще не въезжаю.
Очень надеюсь на Вашу помощь...

В программе должны быть использованы 2 подпрограммы (на каждое действие), точнее - Функции.
Файл, в котором выполняются действия расположен в директории "D:\File_2.dat", тип данных - Longint.
Нужно вычислить:
1) Номер минимального по модулю элемента;
2) Сумму модулей элементов, расположенных после первого отрицательного элемента.

Автор: compiler 23.12.2007 0:51

я тебе написал для первой функции, вторую напишиш по аналогии...

Код
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.

если что спрашивай...

Автор: Psychologist 23.12.2007 21:14

compiler, большое спасибо!

Автор: compiler 23.12.2007 22:12

Цитата(Psychologist @ 23.12.2007 16:14) *
compiler, большое спасибо!
пожалуйсто, спрашивай еще..