Создать програму используя собственный модуль!

@Fantik · Регистрация: 31.10.2008

Студворк — интернет-сервис помощи студентам

Привет всем!!! Можете помочь с написанием программы и модуля для нее. Вот условие:Даны два любых числа до десяти. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел!!! За ранее Спасибо!!!

@Puporev · 01.03.2010, 14:46

Fantik, Модуль это именно unit или Вы так подпрограммы называете?

Pascal

uses crt;
function SrAr(a,b:byte):real;
begin
SrAr:=(a+b)/2;
end;
function SrGm(a,b:byte):real;
begin
SrGm:=sqrt(a*b);
end;
var p,q:byte;
begin
clrscr;
repeat
writeln('Введите 2 натуральных числа до 10');
readln(p,q);
until(p in [1..10])and(q in [1..10]);
writeln('Среднее арифметическое=',SrAr(p,q):0:2);
writeln('Среднее геометрическое=',SrGm(p,q):0:2);
readln
end.

@Fantik · 01.03.2010, 16:52 **[ТС]**

именно модуль т.е. создать модуль, потом создать прогу с использованием этого модуля!!!

@Puporev · 01.03.2010, 17:39

До чего же все таки народ ленивый. перекинуть 2 функции из программы в модуль и то влом.
Текст модуля.

Pascal

unit sred;
interface
function SrAr(a,b:byte):real;
function SrGm(a,b:byte):real;
implementation
function SrAr;
begin
SrAr:=(a+b)/2;
end;
function SrGm;
begin
SrGm:=sqrt(a*b);
end;
end.

Текст программы.

Pascal

uses crt,sred;
var p,q:byte;
begin
clrscr;
repeat
writeln('Введите 2 натуральных числа до 10');
readln(p,q);
until(p in [1..10])and(q in [1..10]);
writeln('Среднее арифметическое=',SrAr(p,q):0:2);
writeln('Среднее геометрическое=',SrGm(p,q):0:2);
readln
end.

@Fantik · 01.03.2010, 19:41 **[ТС]**

Puporev ты мой фаворит!!!СПС тебе огромное!!

@Fantik 2 / 2 / 1 Регистрация: 31.10.2008 Сообщений: 70
		1
	Создать програму используя собственный модуль! 01.03.2010, 10:02. Показов 2013. Ответов 4 Метки нет (Все метки) Привет всем!!! Можете помочь с написанием программы и модуля для нее. Вот условие:Даны два любых числа до десяти. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел!!! За ранее Спасибо!!! 0

@Fantik 2 / 2 / 1 Регистрация: 31.10.2008 Сообщений: 70
	01.03.2010, 16:52 [ТС]	3
	именно модуль т.е. создать модуль, потом создать прогу с использованием этого модуля!!! 0

@Fantik 2 / 2 / 1 Регистрация: 31.10.2008 Сообщений: 70
	01.03.2010, 19:41 [ТС]	5
	Puporev ты мой фаворит!!!СПС тебе огромное!! 0

Опции темы