Помогите составить программу в Object Pascal

[Марина Зудова]

Помогите составить программу в Object Pascal

Нужно составить программу с линейным алгоритмом. Задано вещественное значение аргумента х. Вычислите значение функции у.
у=tgx+x^3

 

[Gruvi]

var
y, x: real;
begin
write('Enter x:');readln(x);
y:= tg(x)+(sqr(x)*x);

writeln('Rezult Y=',y:3:2);
writeln('x=',x);

end.

Могу конечно ошибаться (т.к. пишу в блокноте)

 

[Vladimir_S]

Могу конечно ошибаться

Есть немного. Тангенса в составе (по крайней мере, "классического") Паскаля нет. Так что надо через Sin(x)/Cos(x).
И потом - немножко смутило упоминание Object Pascal. Может быть, тут надо ради этой ерунды задавать классы, вводить конструкторы/деструкторы и прочие 24 удовольствия?

 

[Gruvi]

Есть немного. Тангенса в составе (по крайней мере, "классического") Паскаля нет. Так что надо через Sin(x)/Cos(x).
И потом - немножко смутило упоминание Object Pascal. Может быть, тут надо ради этой ерунды задавать классы, вводить конструкторы/деструкторы и прочие 24 удовольствия?

Ты имеешь введу как на delphi примерно написать?

 

[Vladimir_S]

Ты имеешь введу как на delphi примерно написать?

Женя, не суть важно, что имею в виду я, тут важно понять, что имеет в виду ТС. Точнее, препод.