![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы
![]() |
Поиск в этой теме
![]() |
![]() |
#1 |
Регистрация: 30.09.2008
Сообщений: 1
|
![]()
Помогите составить алгоритм для программы (результат расписывать не надо)
например: начало | введение данных (x,y) | вычисление (S=x+y) | вывод данных (S) | конец Условие программы: Описать процедуру Mean(X, Y, AMean, GMean), вычисляющую среднее арифметическое AMean = (Х+ Y)/2 и среднее геометрическое GMean=√(X∙Y) двух положительных чисел X и Y (X и Y - входные, AMean и GMean - выходные параметры вещественного типа). С помощью этой процедуры найти среднее арифметическое и среднее геометрическое для пар (А, В), (А, С), (A, D), если даны А, B, С, D. Код программы: Program Zadanie1; var a,b,c,d:integer; am,gm:real; procedure Mean(x,y:integer;var AMean,Gmean:real); begin Amean:=(x+y)/2; If x<y then Gmean:=0 Else Gmean:=sqrt(x-y); end; begin writeln(‘Vvedite a:’); readln (a); writeln(‘Vvedite b:’); readln (b); writeln(‘Vvedite c:’); readln (c); writeln(‘Vvedite d:’); readln (d); mean(a,b,am,gm); writeln(‘Mean(a,b) – Amean:=’,am:9:2,’ GMean:=’,gm:9:2’); mean (a,c,am,gm); writeln(‘Mean(a,c) – Amean:=’,am:9:2,’ GMean:=’,gm:9:2’); mean (a,d,am,gm); writeln(‘Mean(a,d) – Amean:=’,am:9:2,’ GMean:=’,gm:9:2’); readln; end. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Блок схема для программы в паскале | AnKS | Помощь студентам | 9 | 27.11.2010 19:35 |
Очень нужна помощь для создания прог на Паскале! | JackDC | Помощь студентам | 4 | 11.01.2009 13:22 |
Программы для создания сайтов | VaDuXa | Софт | 17 | 16.11.2007 21:37 |