Студопедия
Новини освіти і науки:
МАРК РЕГНЕРУС ДОСЛІДЖЕННЯ: Наскільки відрізняються діти, які виросли в одностатевих союзах


РЕЗОЛЮЦІЯ: Громадського обговорення навчальної програми статевого виховання


ЧОМУ ФОНД ОЛЕНИ ПІНЧУК І МОЗ УКРАЇНИ ПРОПАГУЮТЬ "СЕКСУАЛЬНІ УРОКИ"


ЕКЗИСТЕНЦІЙНО-ПСИХОЛОГІЧНІ ОСНОВИ ПОРУШЕННЯ СТАТЕВОЇ ІДЕНТИЧНОСТІ ПІДЛІТКІВ


Батьківський, громадянський рух в Україні закликає МОН зупинити тотальну сексуалізацію дітей і підлітків


Відкрите звернення Міністру освіти й науки України - Гриневич Лілії Михайлівні


Представництво українського жіноцтва в ООН: низький рівень культури спілкування в соціальних мережах


Гендерна антидискримінаційна експертиза може зробити нас моральними рабами


ЛІВИЙ МАРКСИЗМ У НОВИХ ПІДРУЧНИКАХ ДЛЯ ШКОЛЯРІВ


ВІДКРИТА ЗАЯВА на підтримку позиції Ганни Турчинової та права кожної людини на свободу думки, світогляду та вираження поглядів



Контакти
 


Тлумачний словник
Авто
Автоматизація
Архітектура
Астрономія
Аудит
Біологія
Будівництво
Бухгалтерія
Винахідництво
Виробництво
Військова справа
Генетика
Географія
Геологія
Господарство
Держава
Дім
Екологія
Економетрика
Економіка
Електроніка
Журналістика та ЗМІ
Зв'язок
Іноземні мови
Інформатика
Історія
Комп'ютери
Креслення
Кулінарія
Культура
Лексикологія
Література
Логіка
Маркетинг
Математика
Машинобудування
Медицина
Менеджмент
Метали і Зварювання
Механіка
Мистецтво
Музика
Населення
Освіта
Охорона безпеки життя
Охорона Праці
Педагогіка
Політика
Право
Програмування
Промисловість
Психологія
Радіо
Регилия
Соціологія
Спорт
Стандартизація
Технології
Торгівля
Туризм
Фізика
Фізіологія
Філософія
Фінанси
Хімія
Юриспунденкция






Отримання випадкових чисел Random

Оператор очистки екрану Clrscr;

End.

Begin

………………..

Наведемо список основних процедур модуляCRT.

Оператор вимагає підключення (Uses CRT;) модуля CRT, наприклад:

Uses CRT;

Begin

Clrscr;

……….

End.

2. Оператор переміщення текстового курсору в заданий символ x рядка y goto xy(x,y)

(1<=x<=80, 1<=y<=25)

3. Оператор зміни фона екрана (колір фона) Textbackground(...);

Щоб очистився весь екран, після оператора textbackground має слідувати оператор clrscr. В зворотньому випадку фон змінюється тільки під поточним рядком.

4. Оператор зміни кольору переднього плану (колір букв) Textcolor(...);

Наприклад,

Uses crt;

Begin

Textbackground (yellow);

clrscr;

Textcolor(blue); … End.

Номер Константа модуля Crt Колір
Black чорний
Blue синій
Green зелений
Cyan голубий
Red червоний
Magenta фіолетовий
Brown Коричневий
LightGray Яскраво-сірий
DarkGray Темно-сірий
LightBlue Яскраво-синій
LightGreen Яскраво-зелений
LightCyan Яскраво-голубий
LightRed рожевий
LightMagenta бузковий
Yellow жовтий
White білий
Blink Блимання символу

 

5. Delay(Ms) – затримка виконання програми на вказаний у мілісекундах інтервал часу (спробуйте Delay(200)).

6. Sound (Hz)– увімкнення звукового сигналу вказаної частоти у герцах.

7. Nosound– відключення звукового сигналу.

8. KeyPressed – повертає значення true, якщо натиснута будь-яка клавіша, та false – у протилежному випадку.

9. Оператор очікування натискання на клавішу Readkey;

Використовується для затримки зображення на екрані до натискання на клавішу (Enter). Можна ставити в кінці програми перед end.

Random(X) – отримання випадкових цілих чисел в діапазоні від 0 до (Х-1). Аргумент Х - ціле. Наприклад, Y :=Random(39); (змінній Y присвоюється значення, що рівне числу із проміжка від 0 до 38).

- Randomize – формування бази випадкових чисел, на основі часового таймера ПК. забезпечує генерацію неповторюючих послідовностей випадкових чисел. Використовується, щоб отримати різні випадкові числа при кожному запуску програми повинен стояти в програмі до першого використання функції Random.

 

Генерація випадкових чисел (А)
Що треба отримати Дано Оператор Результат (А)
Будь-яке число від 0 до 90 Аргумент - 91 А : = Random(91); Будь-яке число від 0 до 90, наприклад 62
Двозначні цілі додатні числа Числа від 10 до 99, всього: 99-10+1=90 (числа). А : = Random(90)+10; Будь-яке число від 10 до 99, наприклад 12
Двозначні цілі додатні парні числа Числа 10, 12, 14, … до 98, всього чисел (98-10)/2+1=88/2+1=45. А : = Random(45)*2+10; Отримане число від 0 до 44, множаться на 2 і збільшуются на 10. Наприклад, 56
Числа в заданому проміжку із заданим кроком N – початок проміжка, M - кінець проміжка, крок - К. А : = Random (((N–M) div K)+1)*К+N; Згенеруємо випадкове число в проміжку від 0 до (N – M) div k. Множимо на К і додаємо N.

 


Читайте також:

  1. N – чисельність популяції
  2. Агрегативна стійкість, коагуляція суспензій. Методи отримання.
  3. Аксіома неперервності дійсних чисел
  4. Алгебра випадкових подій
  5. Алгоритми переведення чисел з однієї позиційної системи числення в іншу
  6. Аналіз чисельності, складу і руху персоналу
  7. Аналогія - спосіб отримання знань про предмети та явища на основі їхньої подібності з іншими.
  8. Аудиторські докази: поняття та процедури отримання
  9. Багатовимірні випадкові величини. Система двох випадкових величин
  10. В основу визначення витрат певного періоду покладено можливість одночасного визнання доходу, для отримання якого вони здійснені, і навпаки.
  11. Валідація НАССР- отримання об'єктивного доказу того, що елементи НАССР-плану результативні.
  12. Введення чисел.




Переглядів: 680

<== попередня сторінка | наступна сторінка ==>
 | ПРАВИЛА ОФОРМЛЕНЬ СКЛАДАЛЬНИХ КРЕСЛЕНЬ

Не знайшли потрібну інформацію? Скористайтесь пошуком google:

 

© studopedia.com.ua При використанні або копіюванні матеріалів пряме посилання на сайт обов'язкове.


Генерація сторінки за: 0.005 сек.