|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
23.09.2011, 19:48 | #1 (permalink) |
Новичок
Регистрация: 23.09.2011
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Pascal, две задачки, нужна помощь
2. Составить логическое выражение для описания сложных областей точек в системе координат XY. Определить принадлежность этой области точки, координаты которой вводятся с клавиатуры. |
23.09.2011, 19:48 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Мой вам совет - поищите ответы в аналогичных обсуждениях Требуется помощь в написании программы на языке Turbo Pascal Помощь по Pascal |
23.09.2011, 20:39 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну и какие проблемы? Пожалуйста. Но вообще-то не устаю повторять: если Вы настроились с самого начала не учиться, а выезжать на добрых дядях с форумов, то толку не будет - уж поверьте. Так что мой Вам совет: пока не поздно - беритесь за ум.
Задача 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. Код:
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. |
23.09.2011, 23:54 | #3 (permalink) |
Новичок
Регистрация: 23.09.2011
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
весьма благодарен, да не спорю я бездарь,соображалка у меня не ок, я просто более склонен к веб программированию. Пытаюсь в тянуться во все это сложно очень, начинающий только
|
24.09.2011, 09:46 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Не стОит благодарности...
Цитата:
Удачи! |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|