Процедуры-функции

@Кити Галор · Регистрация: 24.11.2010

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

Дано действительное число х. Вычислить:

х-х*х*х/3+х*х*х*х*х/5-х*х*х*х*х*х*х/7+х*х*х*х*х*х*х*х*х*х/9-х*х*х*х*х*х*х*х*х*х*х/11+х*х*х*х*х*х*х*х*х*х*х*х*х/13

ПОМОГИТЕ РЕШИТЬ!!!!!!!! В виде подпрограммы оформить вычисление степени числа

@Puporev · 30.11.2010, 13:22

Pascal

uses crt;
function Power(x:real;n:byte):real;
var i:byte;
    p:real;
begin
p:=1;
for i:=1 to n do
p:=p*x;
Power:=p;
end;
var x,s:real;
    k,z:integer;
begin
clrscr;
write('x=');
readln(x);
s:=0;
z:=-1;
for k:=1 to 7 do
 begin
  z:=-z;
  s:=s+z*Power(x,2*k-1)/(2*k-1);
 end;
write('S=',s:0:5);
readln
end.

@Кити Галор 0 / 0 / 0 Регистрация: 24.11.2010 Сообщений: 17
		1
	Процедуры-функции 29.11.2010, 14:51. Показов 985. Ответов 1 Метки нет (Все метки) Дано действительное число х. Вычислить: х-ххх/3+ххххх/5-ххххххх/7+хххххххххх/9-ххххххххххх/11+хххххххххххх*х/13 ПОМОГИТЕ РЕШИТЬ!!!!!!!! В виде подпрограммы оформить вычисление степени числа 0

	30.11.2010, 13:22

Процедуры-функции

Решение