Вычисление среднего геометрического модулей двух введенных с клавиатуры целых чисел

@ягодка · Регистрация: 04.04.2010

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

№186 Напишите программу вычисления среднего геометрического модулей двух введенных с клавиатуры целых чисел. Программа должна использовать цикл while do. Условие выхода из цикла – значение числа, равное 999.

Добавлено через 1 минуту
Даны натуральное число n и действительное x. Вычислить: x ^1 /1! + x^ 2 /2! + ... + x^ n / n!

@Law[L]esS · 04.04.2010, 14:26

Сообщение от ягодка

Даны натуральное число n и действительное x. Вычислить: x ^1 /1! + x^ 2 /2! + ... + x^ n / n!

Pascal

function pow(x:real;n:integer):real;
var
 i:integer;
begin
 pow:= x;
 for i:= 1 to n-1 do
   pow:= pow * x;
end;
var
 fakt,i,n:integer;
 x:real;
begin
 readln(x);
 readln(n);
 fakt:= 1;
 for i:= 2 to n do begin
   fakt:=fakt*i;
   x:= (x + pow(x,i))/fakt;
 end;
 writeln(x:0:2);
end.

@ягодка 0 / 0 / 0 Регистрация: 04.04.2010 Сообщений: 34
		1
	Вычисление среднего геометрического модулей двух введенных с клавиатуры целых чисел 04.04.2010, 13:50. Показов 1968. Ответов 1 Метки нет (Все метки) №186 Напишите программу вычисления среднего геометрического модулей двух введенных с клавиатуры целых чисел. Программа должна использовать цикл while do. Условие выхода из цикла – значение числа, равное 999. Добавлено через 1 минуту Даны натуральное число n и действительное x. Вычислить: x ^1 /1! + x^ 2 /2! + ... + x^ n / n! 0

	04.04.2010, 14:26

Вычисление среднего геометрического модулей двух введенных с клавиатуры целых чисел

Решение