Паскаль. Задача с вычислением функции + определение на принадлежность точки области

За вознаграждение или нахаляву (если повезёт)

Модераторы: Хыиуду, MOTOCoder, Medved, dr.Jekill

Ответить
pikvar
Сообщения: 9
Зарегистрирован: 11 ноя 2009, 00:58

1. Найти значение функции Y(X) при заданном X. Используя стандартные функции, вычислить Y11=[Y], где [ ] означают целую часть от числа Y22.
2. Записать выражение, зависящее от координат точки X1 и Y2 и принимающее значение TRUE, если точка принадлежит заштрихованной области, и FALSE, если не принадлежит. Для заданной точки вычислить это выражение и результат выдать на печать.
-------------------------------------------------
1) Y=sin(arctg(x)) при Х=-0.7129
2) координаты исследуемой точки: (-0.5;-0.9)
-------------------------------------------------
Что пока получается у меня:

VAR X, X1, Y1, Y: REAL;
WRITELN ('вводим Х:');
READLN (X);
Y:=SIN(ARCTAN(X))
WRITELN ('При X=', X:8:3, 'Y=', Y:8:4);
WRITELN ('Вводим координаты: X1, Y1');
READLN (X1, Y1);
Вложения
Безымянный.jpg
Безымянный.jpg (2.67 КБ) 486 просмотров
atavin-ta
Сообщения: 585
Зарегистрирован: 30 янв 2009, 06:38

Если ордината между значениями по уравнениям ограничивающих линий, то точка в области. И никаких гвоздёв.
Вопрос: "Почему вы все сионисты? Нельзя ли писать на чём то другом?".
Ответ: "Писать можно на чём угодно. Но зачем же так себя ограничивать? Пиши на С!".
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

#1 - вообще бред, а не задача. "Вычислить значение заданной функции по известным переменным" - ну и что мешает вставить переменные в функцию да посмотреть?
#2 - writeln((Y1>0) and (X1+Y1<=1))
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
pikvar
Сообщения: 9
Зарегистрирован: 11 ноя 2009, 00:58

Хыиуду писал(а):#1 - вообще бред, а не задача. "Вычислить значение заданной функции по известным переменным" - ну и что мешает вставить переменные в функцию да посмотреть?
#2 - writeln((Y1>0) and (X1+Y1<=1))
Спасибо, первая то часть сама сделалась, меня на 2 части заклинило. Спасибо за помощь.

А как в этой теме спасибо сказать?
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

Над сообщением есть кнопка "Спасибо" или картинка с весами. Надо ее нажать.
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
atavin-ta
Сообщения: 585
Зарегистрирован: 30 янв 2009, 06:38

А я по какой части пишу?
Вопрос: "Почему вы все сионисты? Нельзя ли писать на чём то другом?".
Ответ: "Писать можно на чём угодно. Но зачем же так себя ограничивать? Пиши на С!".
klerik123
Сообщения: 1
Зарегистрирован: 13 дек 2009, 18:15

Привет всем помогите кто знает как решить эти задачи в PASCAl


1)Даны два числа. Найти их среднее арифметическое и среднее геометрическое




2)Ввести с клавиатуры трехзначное число и найти произведение первой и второй цифры.
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

Ну вообще народ обленился... А подумать хоть минуточку, учебник открыть?
(a+b)/2
sqrt(a*b)
x div 100 * (x mod 100 div 100)
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Ответить