Pascal, две задачки, нужна помощь

[argon_mmm]

Pascal, две задачки, нужна помощь

1. Составить программу решения задачи вычисления значения функции с использованием сложной структуры ветвления, и выводом результата на экран. Аргументы вводятся с клавиатуры.

2. Составить логическое выражение для описания сложных областей точек в системе координат XY. Определить принадлежность этой области точки, координаты которой вводятся с клавиатуры.

 

[Vladimir_S]

Ну и какие проблемы? Пожалуйста. Но вообще-то не устаю повторять: если Вы настроились с самого начала не учиться, а выезжать на добрых дядях с форумов, то толку не будет - уж поверьте. Так что мой Вам совет: пока не поздно - беритесь за ум.

Задача 1

VAR
 x,y:Real;

BEGIN
 write('x= ');
 readln(x);
 If x>3 then writeln('Out of range!')
 else
 If x>0 then y:=sqr(cos(x))-sqrt(x)+exp(sqrt(1+sqr(x)))
 else
 y:=exp(5.0*Ln(10))-sin(x/-exp(Ln(1-x)/3));

 If x<3 then writeln('y= ',y:0:5);
 Readln;
END.

Задача 2

VAR
 x,y:Real;

BEGIN
 write('x= ');
 readln(x);
 write('y= ');
 readln(y);
 writeln((sqrt(sqr(x)+sqr(y))<2) or ((x>0) and (x<4) and (y>-1) and (y<1)));
 Readln;
END.

 

[argon_mmm]

весьма благодарен, да не спорю я бездарь,соображалка у меня не ок, я просто более склонен к веб программированию. Пытаюсь в тянуться во все это сложно очень, начинающий только

 

[Vladimir_S]

весьма благодарен,

Не стОит благодарности...

да не спорю я бездарь,соображалка у меня не ок, я просто более склонен к веб программированию.

Одно другому явно противоречит. У бездарей склонность к WEB-программированию, как правило, отсутствует начисто. Так что, полагаю, не "бездарь", а просто чуть-чуть лентяй. Преодолимо.

Пытаюсь в тянуться во все это сложно очень, начинающий только

Удачи!