Составить подпрограмму-процедуру для вычисления текущего значения s(x) с произвольным количеством итераций n и подпрограмму-функцию y(x).

@gargantua · Регистрация: 13.11.2012

помогите пожалуйста с написанием работы
Решить задачу, используя подпрограмму-процедуру для вычисления текущего значения s(x) с произвольным количеством итераций n и подпрограмму-функцию y(x). Значения х и n вводятся с клавиатуры.

@Puporev · 01.01.2013, 13:10

Pascal

uses crt;
procedure s(x:real;n:integer; var sm:real);
var k:integer;
    t:real;
begin
sm:=0;
t:=1;
for k:=1 to n do
 begin
  t:=t*ln(3)*x/k;
  sm:=sm+t;
 end;
end;
function y(x:real):real;
begin
if abs(x)<1 then y:=x+1
else y:=sqr(sin(x));
end;
var x,sm:real;
    n:integer;
begin
clrscr;
write('x=');
readln(x);
repeat
write('n>0 n=');
readln(n);
until n>0;
s(x,n,sm);
writeln('Сумма=',sm:0:2);
write('y=',y(x):0:2);
readln
end.

@gargantua 0 / 0 / 0 Регистрация: 13.11.2012 Сообщений: 43
		1
	Составить подпрограмму-процедуру для вычисления текущего значения s(x) с произвольным количеством итераций n и подпрограмму-функцию y(x). 01.01.2013, 12:29. Показов 1422. Ответов 1 Метки нет (Все метки) помогите пожалуйста с написанием работы Решить задачу, используя подпрограмму-процедуру для вычисления текущего значения s(x) с произвольным количеством итераций n и подпрограмму-функцию y(x). Значения х и n вводятся с клавиатуры. Изображения 0

Опции темы

Составить подпрограмму-процедуру для вычисления текущего значения s(x) с произвольным количеством итераций n и подпрограмму-функцию y(x).

Решение