Подпрограммы. |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Подпрограммы. |
Psychologist |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 37 Пол: Мужской Реальное имя: Евгений Репутация: 0 |
Всем доброго времени суток!
Очень нужно решить одну задачку на подпрограммы. Помогите, пожалуйста, в понедельник ужо надо сдавать, а я в эту тему вообще не въезжаю. Очень надеюсь на Вашу помощь... В программе должны быть использованы 2 подпрограммы (на каждое действие), точнее - Функции. Файл, в котором выполняются действия расположен в директории "D:\File_2.dat", тип данных - Longint. Нужно вычислить: 1) Номер минимального по модулю элемента; 2) Сумму модулей элементов, расположенных после первого отрицательного элемента. |
compiler |
Сообщение
#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. если что спрашивай... -------------------- Спасибо!
Удачи! |
Psychologist |
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 37 Пол: Мужской Реальное имя: Евгений Репутация: 0 |
compiler, большое спасибо!
|
compiler |
Сообщение
#4
|
Человек Группа: Пользователи Сообщений: 1 050 Пол: Мужской Реальное имя: Станислав Репутация: 3 |
-------------------- Спасибо!
Удачи! |
Текстовая версия | 4.05.2024 19:30 |