Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Price-Altai.ru » Форум » Общение — Беседка » Pascal забыл нахрен. Кто поможет задачу простую написать ?
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Забыл - два года назад последний раз на нём баловался.
Эти всякие if a<1 or b>2 then y=
Если кто-то напишет решение, то буду длагодарен.
Ввести значение переменных a,b,x.
Найти y, если:
1.a<1 или b>2
y=(ab+2*acos2x)/(3+asinx*cos2x)
2.a=0 или b=2
y=(a+sin(3x+b)*cosx)/(a+sin2x*cos4x+2)
3.a>1 или b неравно 3
y=(ax+5sin(ax+b))/(bsinx*cos2bx)
Вывести y на экран с точностью до 5 знаков после запятой.обязательно паскаль?
обязательно паскаль?
да
я кстати вспоминать начал)
в delphi проканает?
нет
тогда пас... не помню уже )))
ох лентяй-то.... какой хоть паскаль-то?
вроде так...
ЗЫ не проверял на правильность, паскаля нет...
Отредактировано make.believe (, 12 лет назад)
program first;
uses crt;
var
a,b,x,y :real;
BEGIN
clrscr;
writeln('Input a,b,x');
readln(a,b,x);
if (a<1) or (b>2) then y:=(a*b+2*a*cos(2*x))/(3+a*sin(x)*cos(2*x)) else
if (a=0) or (b=2) then y:=(a+sin(3*x+b)*cos(x))/(a+sin(2*x)*cos(4*x)+2) else
if (a>1) or (b<>3) then y:=(a*x+5*sin(a*x+b))/(b*sin(x)*cos(2*b*x));
writeln('y= ', y:7:5);
readkey;
END.
Maestro, твои операции сравнения использовал, лень искать ошибку было 
Отредактировано (, 12 лет назад)
ох лентяй-то.... какой хоть паскаль-то?
+100
с такими школярами нам до пенсии работы хватит ))
Athlon82 пишет:ох лентяй-то.... какой хоть паскаль-то?
+100
с такими школярами нам до пенсии работы хватит ))
Я вот прочитал пост с кодом, и вспомнил всё сразу. 
СПАСИБО
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
| © Price-Altai.ru