Написать программу вычисления значений функции в заданных точках (Turbo Pascal) Очень...

Question

Написать программу вычисления значений функции в заданных точках (Turbo Pascal) Очень нужно

---

Answer 1

Var
  i: integer;
  a: real;

begin
  writeln('Enter a:');
  readln(a);
 
  for i := 1 to 7 do
    writeln('d(', i, ') = ', a / i - tan(i));
end.

Comments

User crt;

---

var f,x:Real; begin clrscr; x:=1; while x<=2 do begin

---

writeln('x=',x:3:3,' f=',sin(x)/cos(x)-x*x*x:3:3); x:=x+0.1; end; readln; end.

---

так правильно будет?