Var a,b,h,x,y:real; begin writeln('Введите начальное значение, шаг, конечное значение'); readln(a,h,b); x:=a; while x<=b do begin y:=0.5/tan(x/4)+4; writeln(x:7:3,y:10:5); x:=x+h end end.
Program Table; uses math; //подключаем математический модуль, возможно с модулем я ошибся var // объявляем локальные переменные для программы a , b, h : Real; //указывает дробный тип числа
function calculate_f( x: Real) : Real; //объявляем функцию в теле программы begin calculate_f := 1/2*sin(x/4+1) ; //записываем результат вычисления в функцию end;
Begin a := -0.99; //определяем b := 50.0; //вводные h := 0.1; //значения
while a < b do begin //пока "a" меньше "b" writeln("F(", a, ') = ', calculate_f(a)); //выводим результат вычислений в строку a := a + h; //прибавляем шаг "h" end; end.
Я могу и ошибиться, потому что писал на Паскале оочень давно :D Поэтому Вам прийдется поправить некоторые ошибки в коде.
a,b,h,x,y:real;
begin
writeln('Введите начальное значение, шаг, конечное значение');
readln(a,h,b);
x:=a;
while x<=b do begin
y:=0.5/tan(x/4)+4;
writeln(x:7:3,y:10:5);
x:=x+h
end
end.
Тестовое решение:
Введите начальное значение, шаг, конечное значение
-5 0.5 5
-5.000 3.83386
-4.500 3.76106
-4.000 3.67895
-3.500 3.58244
-3.000 3.46329
-2.500 3.30698
-2.000 3.08476
-1.500 2.72976
-1.000 2.04184
-0.500 0.02086
0.000 Infinity
0.500 7.97914
1.000 5.95816
1.500 5.27024
2.000 4.91524
2.500 4.69302
3.000 4.53671
3.500 4.41756
4.000 4.32105
4.500 4.23894
5.000 4.16614
uses math; //подключаем математический модуль, возможно с модулем я ошибся
var // объявляем локальные переменные для программы
a , b, h : Real; //указывает дробный тип числа
function calculate_f( x: Real) : Real; //объявляем функцию в теле программы
begin
calculate_f := 1/2*sin(x/4+1) ; //записываем результат вычисления в функцию
end;
Begin
a := -0.99; //определяем
b := 50.0; //вводные
h := 0.1; //значения
while a < b do begin //пока "a" меньше "b"
writeln("F(", a, ') = ', calculate_f(a)); //выводим результат вычислений в строку
a := a + h; //прибавляем шаг "h"
end;
end.
Я могу и ошибиться, потому что писал на Паскале оочень давно :D
Поэтому Вам прийдется поправить некоторые ошибки в коде.