Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.04.2011, 07:41   #1
Dikoder
 
Регистрация: 08.04.2011
Сообщений: 3
Восклицание Вычислить значения функции, найти принадлежит ли точка заштрихованной области на графике(Задачи в Delphi)

Поправьте решение, а то у меня не получается никак сделать.

Задание 1. Составьте программу вычисления значений функции с учетом ее области определения: y=(1+sinx)/cosx

Задание 2. Составьте программу, определяющую, принадлежит ли точка с координатами (X, Y) множеству точек плоскости, изображенному на рисунке:



Вот что у меня самого получилось:
2 задача:

Код:
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
x,y:integer;

begin
write('BBedute 3Ha4eHue x: ');
readln(x);
write('BBedute 3Ha4eHue y: ');
readln(y);
writeln((x<0) and (y<0) and (x>-1) and (x<-1) and (abs(x)< abs(y)));
writeln(x:2:2);
writeln(y:2:2) ;
readln;
end.

Первая задача:
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils,ucrt;
var
x,y:real;n:integer;
begin
writeln('введите число ');readln(x);;
if (cos(x)<>90)and (cos(x)<>270) then y:=(1+sin(x))/cos(x)
else writeln('неверное значение');

writeln(y:4:2);


readln;
end.
Подпроавьте, а нето у меня неполучается что-то


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 16.04.2011 в 11:49.
Dikoder вне форума Ответить с цитированием
Старый 16.04.2011, 11:43   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

вместо
Код:
if (cos(x)<>90)and (cos(x)<>270) then y:=(1+sin(x))/cos(x)
нужно
Код:
if (cos(x)<>0) then y:=(1+sin(x))/cos(x)
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вычислить значения функции, найти принадлежит ли точка заштрихованной области на графике(Задачи в Delphi) Dikoder Помощь студентам 1 09.04.2011 07:23
Определить принадлежит ли точка с координатами х,у заштрихованной части плоскости. Брутальный М. Паскаль, Turbo Pascal, PascalABC.NET 8 04.04.2011 20:32
Принадлежит ли точка области? (Pascal) Volk_xD Помощь студентам 3 22.12.2010 13:54
Определить, принадлежит ли точка с координатами (х, у) заштрихованной части плоскости.C++ Алексей_Warm Помощь студентам 2 15.11.2010 12:09
Принадлежит ли точка с координатами следующей области TOMMY666 Помощь студентам 3 29.04.2010 16:44