Написать программу вычисления значений функции в заданных точках (Turbo Pascal) Очень нужно
Нет комментариев
Ответы
Гость 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.
4 комментария:
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.
так правильно будет?
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.
так правильно будет? Похожие вопросы
Информатика
Написать программу вычисления значений функции в заданных точках (Turbo Pascal) Очень нужно...
Информатика
Помогите срочно нужно решить координат...
Список предметов
