Вычислить значение выражения - Turbo Pascal (34022)

Формулировка задачи:

Пожалуйста помогите разобраться с табуляцией в Borland Pascal Пример: y = 3 sin ^ 2 ( 5 * x + 0, 5 ) при X є [0; 0; 2] Заранье Спасибо. Добавлено через 2 часа 22 минуты Уважаэмые форумчане помогите решить, в завтра сдача сессии робота нужна по зарез!

Код к задаче: «Вычислить значение выражения - Turbo Pascal (34022)»

textual
function f(x: real): real;
begin
result := 3 * sqr(sin(5*x + 0.5));
end;
 
var x,y,dx: real;
i,n: integer;
begin
n := 10;
dx := (2 - 0)/n;
WriteLn('|  x  |   y   |');
for i:=0 to n do
begin
x := 0 + i * dx;
y := f(x);
 WriteLn('| ',x:1:3,' | ',y:1:4,' |');
end;
 
end.

7   голосов, оценка 4.143 из 5


СОХРАНИТЬ ССЫЛКУ