По разделам



Задача Proc 3


Описать процедуру Mean(X, Y, AMean, GMean), вычисляющую
среднее арифметическое AMean = (X+Y)/2 и среднее геометрическое
GMean =

X·Y двух положительных чисел X и Y (X и Y — входные,
AMean и GMean — выходные параметры вещественного типа). С помощью
этой процедуры найти среднее арифметическое и среднее геометрическое
для пар (A, B), (A, C), (A, D), если даны A, B, C, D.

Код (C/C++)

#include <bits/stdc++.h>
using namespace std;

void Mean(double X, double Y, 
		double &AMean, double &GMean) {
	AMean = (X + Y) / 2.0;
	GMean = sqrt(X * Y);
	return;
}

int main() {
	srand((int)time(0));
	double a, b, c, d;
	double AMean, GMean;

	a = rand() % 20 + 1;
	b = rand() % 20 + 1;
	c = rand() % 20 + 1;
	d = rand() % 20 + 1;
	cout << "A = " << a << " : ";
	cout << "B = " << b << " : ";
	cout << "C = " << c << " : ";
	cout << "D = " << d << endl;

	Mean(a,b,AMean,GMean);
	cout << endl <<"(A,B)" << endl;
	cout << "AMean = " << AMean << " : ";
	cout << "GMean = " << GMean << endl;

	Mean(a,c,AMean,GMean);
	cout << endl <<"(A,C)" << endl;
	cout << "AMean = " << AMean << " : ";
	cout << "GMean = " << GMean << endl;

	Mean(a,d,AMean,GMean);
	cout << endl <<"(A,D)" << endl;
	cout << "AMean = " << AMean << " : ";
	cout << "GMean = " << GMean << endl;
	
	return 0;
}

Код (Python)

import random
import math

def Mean(X,Y,Result):
   Result['AMean'] = (X + Y) / 2
   Result['GMean'] = math.sqrt(X * Y)
   return

R = {'AMean' : None, 'GMean' : None}
#A = random.uniform(-10,10)
A = random.randrange(0,10)
B = random.randrange(0,10)
C = random.randrange(0,10)
D = random.randrange(0,10)

print('A = ', A)
print('B = ', B)
print('C = ', C)
print('D = ', D)

print("(A,B)")
Mean(A,B,R)
print('AMean = ', R['AMean'])
print('GMean = ', R['GMean'])

print("(A,C)")
Mean(A,C,R)
print('AMean = ', R['AMean'])
print('GMean = ', R['GMean'])

print("(A,D)")
Mean(A,D,R)
print('AMean = ', R['AMean'])
print('GMean = ', R['GMean'])
									

Код (Pascal)

program Proc3;
 
procedure Mean(X,Y:Real; var AMean,GMean:Real);
begin
  AMean := (X + Y)/2;
  GMean := sqrt(X * Y);
end;
 
var
  i:Integer;
  A,B,C,D,AMean,GMean:Real;
 
begin
  Write('A: ');
  Readln(A);
  Write('B: ');
  Readln(B);
  Write('C: ');
  Readln(C);
  Write('D: ');
  Readln(D);
 
  Mean(A,B,AMean,GMean);
  Writeln(AMean,' ',GMean);
 
  Mean(A,C,AMean,GMean);
  Writeln(AMean,' ',GMean);
 
  Mean(A,D,AMean,GMean);
  Writeln(AMean,' ',GMean);
  Readln;
end.
									




Proc. Абрамян
Proc 1 Просмотров: 11
Proc 2 Просмотров: 11
Proc 3 Просмотров: 9
Proc 4 Просмотров: 10
Proc 5 Просмотров: 12
Proc 6 Просмотров: 7
Proc 7 Просмотров: 10
Proc 8 Просмотров: 10
Proc 9 Просмотров: 10
Proc 10 Просмотров: 8
Proc 11 Просмотров: 12
Proc 12 Просмотров: 7
Proc 13 Просмотров: 11
Proc 14 Просмотров: 11
Proc 15 Просмотров: 11
Proc 16 Просмотров: 9
Proc 17 Просмотров: 18
Proc 18 Просмотров: 11
Proc 19 Просмотров: 12
Proc 20 Просмотров: 8
Proc 21 Просмотров: 10
Proc 22 Просмотров: 9
Proc 23 Просмотров: 7
Proc 24 Просмотров: 10
Proc 25 Просмотров: 7
Proc 26 Просмотров: 9
Proc 27 Просмотров: 12
Proc 28 Просмотров: 16
Proc 29 Просмотров: 19
Proc 30 Просмотров: 23
Proc 31 Просмотров: 11
Proc 32 Просмотров: 10
Proc 33 Просмотров: 8
Proc 34 Просмотров: 16
Proc 35 Просмотров: 6
Proc 36 Просмотров: 9
Proc 37 Просмотров: 9
Proc 38 Просмотров: 8
Proc 39 Просмотров: 11
Proc 40 Просмотров: 8
Proc 41 Просмотров: 11
Proc 42 Просмотров: 8
Proc 43 Просмотров: 9
Proc 44 Просмотров: 11
Proc 45 Просмотров: 12
Proc 46 Просмотров: 9
Proc 47 Просмотров: 7
Proc 48 Просмотров: 12
Proc 49 Просмотров: 9
Proc 50 Просмотров: 10
Proc 51 Просмотров: 16
Proc 52 Просмотров: 9
Proc 53 Просмотров: 11
Proc 54 Просмотров: 8
Proc 55 Просмотров: 10
Proc 56 Просмотров: 9
Proc 57 Просмотров: 8
Proc 58 Просмотров: 10
Proc 59 Просмотров: 7
Proc 60 Просмотров: 8

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться