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

Марина Зудова · 24.01.2013, 16:54

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

Gruvi · 24.01.2013, 17:50

Цитата:

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 · 24.01.2013, 19:35

Цитата:

Сообщение от Gruvi

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

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

Gruvi · 24.01.2013, 21:24

Цитата:

Сообщение от Vladimir_S

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

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

Vladimir_S · 25.01.2013, 09:38

Цитата:

Сообщение от Gruvi

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

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

24.01.2013, 16:54	#1 (permalink)
Марина Зудова Новичок Регистрация: 24.01.2013 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите составить программу в Object Pascal Нужно составить программу с линейным алгоритмом. Задано вещественное значение аргумента х. Вычислите значение функции у. у=tgx+x^3

24.01.2013, 16:54
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Эти посты имеют сходства с вашей темой Помогите составить программу на Паскале Помогите составить программу на языке C++

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070