Guest
Новичок
|
   
Приветствую всех!
Поступил в университет и на первом занятии по инфе задали написать программу в Pascal. Ничего не получается.
Помогите буду благодарин :
Даны вещественные значения переменных параметров a,b.
Вычислить X, Y :
X=arctg(a+b)+ctg(a-b);
Y=sin(в квадрате)(a(в кубе))+cos(в квадрате)b+sin(x(в квадрате))
Контрольный расчет : a=1, b=0
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 17 сен. 2006 13:15 | IP
|
|
Guest
Новичок
|
Program Shit;
var
x,y:real;
a,b:real;
begin
writeln('vvedite 3na4enija a i b');
readln(a,b);
x:=arctg(a+b)+ctg(a-b);
y:=sqr(sin(a*a*a))+sqr(cos(b))+sin(x*x);
writeln('x=',x);
writeln('y=',y);
readln
end.
правда одно большое НО: в Паскале нема функций arctg и tg
по этому строка
x:=arctg(a+b)+ctg(a-b);
будет давать ошибку )))
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 17 сен. 2006 16:11 | IP
|
|
Guest
Новичок
|
ок спасибо большое !
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 17 сен. 2006 16:28 | IP
|
|
miss_graffiti
Долгожитель
|
  
оригинально  )
а в чем смысл писать программу, которая будет выдавать ошибки и не работать?
блин.
помог, называется )) написал неработающую прогу в 3 строчки.
В паскале есть ArcTan и Tan.
Зачем писать объявление переменных в 2 строчки - они ж все одного типа?
и еще... x*x, может, работает быстрее, но, думаю, по специфике задания лучше написать sqr(x).
---
тема закрыта. все обсуждение - в существующей теме по паскалю.
(Сообщение отредактировал miss graffiti 17 сен. 2006 16:44)
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 17 сен. 2006 16:40 | IP
|
|
|
Форум
Помогите написать программу
