Технический форум - Pascal, две задачки, нужна помощь

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Pascal, две задачки, нужна помощь (http://www.tehnari.ru/f41/t57573/)

argon_mmm

23.09.2011 19:48

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

Вложений: 1

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

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

Vladimir_S

23.09.2011 20:39

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

Задача 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

23.09.2011 23:54

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

Vladimir_S

24.09.2011 09:46

Цитата:

Сообщение от argon_mmm (Сообщение 590773)

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

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

Цитата:

Сообщение от argon_mmm (Сообщение 590773)

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

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

Цитата:

Сообщение от argon_mmm (Сообщение 590773)

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

Удачи!

Часовой пояс GMT +4, время: 23:01.