Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
investr
1 / 1 / 2
Регистрация: 30.11.2011
Сообщений: 77
1

Задача с подключением модуля

08.12.2011, 11:26. Просмотров 328. Ответов 1
Метки нет (Все метки)

Создать модуль, в котором содержится функция или процедура, написанная в программе. Создать программу, демонстрирующую подключение модуля и использование подпрограммы
Текст программы:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program ch;
var a,b,c,d,ABAMean,ACAMean,ADAMean,ABGMean,ACGMean,ADGMean: real;
procedure Mean (X,Y: real; var AMean,GMean: real);
begin
AMean:=(X+Y)/2;
GMean:=sqrt(X*Y);
end;
begin
writeln('Введите a,b,c,d');
readln(a,b,c,d);
Mean (a,b,ABAMean,ABGMean);
Mean (a,c,ACAMean,ACGMean);
Mean (a,d,ADAMean,ADGMean);
writeln('В паре ',a,',',b,' ср.арифм.=',ABAMean:5:2,', ср.геом.=',ABGMean:5:2);
writeln('В паре ',a,',',c,' ср.арифм.=',ACAMean:5:2,', ср.геом.=',ACGMean:5:2);
writeln('В паре ',a,',',d,' ср.арифм.=',ADAMean:5:2,', ср.геом.=',ADGMean:5:2);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2011, 11:26
Ответы с готовыми решениями:

программа с подключением модуля GRAPH
Создайте программу, рисующую в видимой странице сектор, и прямоугольник в...

задача на создание модуля
Сздать модуль, содержащий функции подключения мыши. Написать программу,...

Разработка алгоритмов и программ с подключением модулей CRT, DOS
1. Создать каталог под именем РК№, где № - номер вашего ПК. 2. Сменить...

Разработка алгоритмов и программ с подключением модулей CRT, DOS
1.Создать каталог под именем РК№, где № - номер вашего ПК. 2.Скопировать...

Оформить программу с подключением модуля
Помогите оформить эту программу с подключением модуля uses crt; const...

1
Own3D
121 / 121 / 73
Регистрация: 29.10.2011
Сообщений: 308
08.12.2011, 15:13 2
Pascal
1
2
3
4
5
procedure Mean (X,Y: real; var AMean,GMean: real);
 begin
 AMean:=(X+Y)/2;
 GMean:=sqrt(X*Y);
 end;
вот эту процедуру нужно запихать в модуль?
тогда так
модуль:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
unit Unit1;
 
interface
    procedure Mean(X,Y: real; var AMean,GMean: real);
 
implementation
procedure Mean (X,Y: real; var AMean,GMean: real);
 begin
 AMean:=(X+Y)/2;
 GMean:=sqrt(X*Y);
 end;
end.
программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program ch;
uses unit1;
 var a,b,c,d,ABAMean,ACAMean,ADAMean,ABGMean,ACGMean,ADGMean: real;
 
 begin
 writeln('Введите a,b,c,d');
 readln(a,b,c,d);
 Mean (a,b,ABAMean,ABGMean);
 Mean (a,c,ACAMean,ACGMean);
 Mean (a,d,ADAMean,ADGMean);
 writeln('В паре ',a,',',b,' ср.арифм.=',ABAMean:5:2,', ср.геом.=',ABGMean:5:2);
 writeln('В паре ',a,',',c,' ср.арифм.=',ACAMean:5:2,', ср.геом.=',ACGMean:5:2);
 writeln('В паре ',a,',',d,' ср.арифм.=',ADAMean:5:2,', ср.геом.=',ADGMean:5:2);
 end.
и когда код выкладываешь, оформляй нормально, заключай его в теги.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2011, 15:13

Матрица с подключением пользовательского модуля
Определить номер строки и столбца, имеющих одинаковую сумму элементов....

Разработка алгоритмов и программ с подключением модуля GRAPH
Постройте на экране компьютера две окружности радиусов R1, R2 разных цветов,...

Есть ли разница между подключением статической библиотеки и подключением одного только файла
Есть ли вообще разница между подключением статической библиотеки, например с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru