Функции

@masha241090 · Регистрация: 05.11.2011

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

Написать программу табулирования сложной функции

@Puporev · 20.02.2012, 14:36

Pascal

uses crt;
function F(x:real):real;
var n:integer;
    s:real;
begin
s:=0;
if x<=2 then
 begin
  for n:=1 to 10 do
  s:=s+exp(ln(x/n)*n);
 end
else
 begin
  for n:=0 to 8 do
  s:=s+exp(ln(x)*n)/(n+2);
 end;
F:=s;
end;
var x,dx,z:real;
begin
clrscr;
x:=0.5;
while x<=3 do
 begin
  z:=F(x);
  writeln('x=',x:4:1,'  z=',z:8:3);
  x:=x+0.5;
 end;
readln
end.

@masha241090 · 20.02.2012, 19:19 **[ТС]**

Спасибо огромное

@masha241090 1 / 1 / 0 Регистрация: 05.11.2011 Сообщений: 24
		1
	Функции 20.02.2012, 13:55. Показов 996. Ответов 2 Метки нет (Все метки) Написать программу табулирования сложной функции Миниатюры 0

@masha241090 1 / 1 / 0 Регистрация: 05.11.2011 Сообщений: 24
	20.02.2012, 19:19 [ТС]	3
	Спасибо огромное 0

Функции

Решение