IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Подпрограммы.
Psychologist
сообщение 22.12.2007 19:15
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 37
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


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

В программе должны быть использованы 2 подпрограммы (на каждое действие), точнее - Функции.
Файл, в котором выполняются действия расположен в директории "D:\File_2.dat", тип данных - Longint.
Нужно вычислить:
1) Номер минимального по модулю элемента;
2) Сумму модулей элементов, расположенных после первого отрицательного элемента.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 3)
compiler
сообщение 22.12.2007 20:51
Сообщение #2


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


я тебе написал для первой функции, вторую напишиш по аналогии...
Код
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.

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


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Psychologist
сообщение 23.12.2007 17:14
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 37
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


compiler, большое спасибо!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
compiler
сообщение 23.12.2007 18:12
Сообщение #4


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


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


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 21.06.2025 22:12
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"