Четверг, 09.01.2025
Pascal 4 All
[ · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

 

  • Страница 1 из 1
  • 1
Модератор форума: Seqular, Pavel  

Программа на коорд. точки в прямоугольной системе координат
ФилинДата: Воскресенье, 25.01.2009, 22:49 | Сообщение # 1
Новичок
Группа: Пользователи
Сообщений: 3
Репутация: 0
Замечания: 0%
Статус: Offline
Вот полный текст задачи:

На плоскости задана прямоугольная система координат с осями X и Y. Составить программу, которая вводит координаты точки (x, y), и сообщает, принадлежит ли эта точка прямоугольнику с центром в начале координат и длинами сторон x1 и y1, значение которых вводятся с клавиатуры

Как я понял, программа сама должна вводить координаты точки рандомно.


ornito homini simpas est
 
SeqularДата: Понедельник, 26.01.2009, 06:51 | Сообщение # 2
Хранитель
Группа: Администраторы
Сообщений: 859
Репутация: 35
Статус: Offline
Вполне возможно.. Как пользоваться функцией Random, рассказывать нужно?

Поддерживаю также проект сообщество молодых сисадминов
 
ФилинДата: Вторник, 27.01.2009, 03:42 | Сообщение # 3
Новичок
Группа: Пользователи
Сообщений: 3
Репутация: 0
Замечания: 0%
Статус: Offline
Да, буду благодарен.

ornito homini simpas est
 
SeqularДата: Вторник, 27.01.2009, 22:34 | Сообщение # 4
Хранитель
Группа: Администраторы
Сообщений: 859
Репутация: 35
Статус: Offline
Филин,
Фнкция Random - возвращает случайное число (дробное) в диапазоне от [0;1). Ну разумеется не случайное, а "псевдослучайное". Ну по тексту буду говорить, что это число случайное.
Если нужно вернуть целое число - функция вызывается с дополнительным атрибутом.
Random(X) - возвращает случайное число в диапазоне от 0 до X-1.
Например: Random(20) будет возвращать случайное число от 0 до 19. Random(20)-10 - генирирует случайные числа от -10 до 9.
Перед использованием первого Random-а рекомендуется прописать процедуру Randomize. Эта процедура будет инициализировать генератор случайных чисел заново. Без нее программа будет возвращать последовательность одних и тех же чисел, а с ней - уже разные..
Понятней стало?


Поддерживаю также проект сообщество молодых сисадминов
 
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2025
Используются технологии uCoz
javascript:;" rel="nofollow" onclick="loginPopupForm(); return false;