Составить процедуру вычисления среднего арифметического и среднего геометрического А и В

@throne · Регистрация: 04.11.2015

Составить процедуру вычисления среднего арифметического и среднего геометрического А и В. С ее помощью найти среднее арифметическое и среднее геометрическое пар A,B; A,C; B,C.

Добавлено через 13 часов 3 минуты
.ещё актуально.

@ZX Spectrum-128 · 12.11.2015, 08:18

Pascal

procedure SASG(x, y: real; var sa, sg: real);
begin
  sa := (x + y) / 2;
  sg := sqrt(x * y);
end;
 
var
  sa, sg, a, b, c: real;
 
begin
  write('Введите a,b,c: ');
  readln(a, b, c);
  SASG(a, b, sa, sg);
  writeln('Пара AB:');
  writeln('sa = ', sa:0:2);
  writeln('sg = ', sg:0:2);
  SASG(a, c, sa, sg);
  writeln('Пара AC:');
  writeln('sa = ', sa:0:2);
  writeln('sg = ', sg:0:2);  
  SASG(b, c, sa, sg);
  writeln('Пара BC:');
  writeln('sa = ', sa:0:2);
  writeln('sg = ', sg:0:2);    
end.

@throne 1 / 1 / 0 Регистрация: 04.11.2015 Сообщений: 17
		1
	Составить процедуру вычисления среднего арифметического и среднего геометрического А и В 12.11.2015, 06:47. Показов 5917. Ответов 1 Метки нет (Все метки) Составить процедуру вычисления среднего арифметического и среднего геометрического А и В. С ее помощью найти среднее арифметическое и среднее геометрическое пар A,B; A,C; B,C. Добавлено через 13 часов 3 минуты .ещё актуально. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Составить процедуру вычисления среднего арифметического и среднего геометрического А и В

Решение