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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.11.2010, 17:26   #11
DRAgon™
Форумчанин
 
Аватар для DRAgon™
 
Регистрация: 14.03.2010
Сообщений: 362
По умолчанию

Код:
USES Graph;
VAR gd,mg:Integer;
FUNCTION x(x_nov:Integer):Integer;
BEGIN x := x_nov + 320
END;
FUNCTION y(y_nov:Integer):Integer;
BEGIN y := 240 - y_nov
END;

BEGIN
   gd:=0;
	InitGraph(d,mg,'egavga.bgi');
  Circle(x(0),y(0),20);
	ReadLn;
END.
Попробуйте теперь запустит круг будет в центре экрана
Чем больше моя слава, тем я больше тупею; и таково, несомненно, общее правило.(А.Эйнштейн)
DRAgon™ вне форума Ответить с цитированием
Старый 15.11.2010, 17:32   #12
Anatole
Форумчанин
 
Аватар для Anatole
 
Регистрация: 07.04.2009
Сообщений: 245
По умолчанию

Цитата:
Судя по нескольким тестам с различными координатами, произведение x*y не может быть больше 0,25 для первой картинки, тогда:
Код:

if (x*y >= 0) and (x*y <= 0,25) then writeln('принадлежит');
Интересно, по вашему алгоритму, точка (0.1; 2) принадлежит заштрихованой области? А реально?
Всякое безобразие должно быть единообразным. Тогда это называется порядком.
Anatole вне форума Ответить с цитированием
Старый 24.11.2010, 11:11   #13
Павел Тихомиров
Пользователь
 
Аватар для Павел Тихомиров
 
Регистрация: 31.10.2010
Сообщений: 16
По умолчанию

Составить программу для вычисления таблицы значений функции
f(x) для x [a, b] с заданным шагом изменения h
y:=(ln(sqrt(abs(x)))/x)+(x*exp(x)/sin(sqr(x)));
a:=1;
b:=5;
h:=0.2;
Надо составить программу тремя способами используя операторы цыкла:for, while, repeat.
while, repeat я составил, но по возможности напишите их тоже я сверюсь.
Павел Тихомиров вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задачи на Borland Pascal Lerik09 Помощь студентам 6 20.10.2009 19:43
Borland Pascal 8. Ошибочка...:( spein Помощь студентам 5 27.02.2009 17:19
Средства графики Borland Pascal Morrigan13 Помощь студентам 3 26.04.2008 20:07
Нужен Borland Pascal 7.0? kuzmich Паскаль, Turbo Pascal, PascalABC.NET 6 08.12.2007 11:21
BP: Borland Pascal DruidD Помощь студентам 6 29.05.2007 20:06