Процедуры и функции, Помогите полажуйста!!! |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Процедуры и функции, Помогите полажуйста!!! |
-Наташа- |
Сообщение
#1
|
Гость |
Разработаите функцию, которая находит НОД двух целых чисел. Разработайте процедуру, вычисляющую сумму двух обыкновенных дробей. Напишите программу, которая находит сумму n заданных обыкновенных дробей.
|
mind abuse |
Сообщение
#2
|
Студент Группа: Пользователи Сообщений: 35 Пол: Мужской Реальное имя: Владимир Репутация: 3 |
Код Program t1; uses crt; var i:integer; procedure ratio; var numerator,denominator: array [1..1000] of integer; n,numsum,densum:integer; begin numsum:=0; densum:=0; writeln('input number of ratios'); write('n='); readln(n); writeln('input numerator of ratio, then press "Enter", then input denominator of ratio'); writeln('input ratios'); for i:=1 to n do begin write('ratio ',i,'='); read(numerator[i]); write('/'); read(denominator[i]); end; for i:=1 to n do begin numsum:=numsum+numerator[i]; densum:=densum+denominator[i]; end; writeln('Sum is ',numsum,'/',densum); end; begin clrscr; ratio; end. Наверняка нерационально, +дробную черту на следующую строку не переносит + дробь не упрощает, но работает, а минусы исправимы. Сообщение отредактировано: mind abuse - -------------------- ...Чего-то хотелось: не то конституции, не то севрюжины с хреном, не то кого-нибудь ободрать.
(М. Е. Салтыков-Щедрин) |
Текстовая версия | 29.04.2024 2:08 |