Табулирование функций

@Любовь29 · Регистрация: 12.04.2013

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

1. Составить программу вычисления значений функции F(x)=sin(x) на отрезке [A,B]=[pi/4,pi/2] в точках xi=A+iH, где H=(B-A)/M, M – заданное целое число.

2. Составить программу для вычисления значений функции F(x)
На отрезках [0,6], [8,9] с шагом 0,5.
используя процедуры и функции

Комментарий модератора

YaRom, на будущее - для каждой задачи создавайте отдельную тему, таковы правила форума

@YaRom · 16.05.2013, 14:49

с функцией:

Pascal

var
  a,b,m,x,h:double;
 
function F(x:double):double;
begin
  F:=sin(x);
end;
 
begin
  write('a=');readln(a);
  write('b=');readln(b);
  write('m=');readln(m);
  x:=a;
  h:=(b-a)/m;
  writeln('h=',h:3:3);
  while x<=b do
  begin
    writeln('x=',x:3:3,'   F(x)=',F(x):3:3);
    x:=x+h;
  end;
end.

с процедурой:

Pascal

const
var
  a,b,m,x,h,y:double;
 
procedure F(x:double, var y:double);
begin
  y:=sin(x);
end;
 
begin
  write('a=');readln(a);
  write('b=');readln(b);
  write('m=');readln(m);
  x:=a;
  h:=(b-a)/m;
  writeln('h=',h:3:3);
  while x<=b do
  begin
    F(x,y);
    writeln('x=',x:3:3,'   F(x)=',y:3:3);
    x:=x+h;
  end;
end.

соответственно, во втором задании меняются A,В и функция, и Н указывается явно, примерно так:

Pascal

......
begin
  write('a=');readln(a);
  write('b=');readln(b);
  x:=a;
  h:=0.5; 
......

	16.05.2013, 14:49

Табулирование функций

Решение