Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Получение случайных чисел.
|
|
- Random – получение (генерация) случайных чисел в диапазоне от 0 до 1. Например, Y: = random; (переменной Y присваивается значение равное числу из промежутка от 0 до 1, возможно 0.45678).
- 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. |
Примеры программ:
| Объявите переменные, необходимых для вычисления значения функции y=x2. | Var x: real, y: real; |
| Объявите переменные, необходимые для вычисления площади кольца. | Var r1, r2, s: real; |
| Запишите на языке Паскаль Y=-2, 7x3+0, 23x2-1, 4 | Y: =-2.7*x*x*x+0.23*x*x-1.4 |
| Написать программу, которая выводит на желтом фоне синими буквами: Буря мглою небо кроет … То заплачет, как дитя. А.С.Пушкин | Ответ: Uses crt; Begin Textbackground (yellow); Textcolor(blue); Clrscr; Writeln(‘Буря….’); … Writeln; Writeln(‘ ‘ А.С.Пушкин’); Readkey; End. |
| Написать программу вывода значений переменных a, b, c. Значение каждой переменной – на отдельной строке и начинается с имени переменной, затем знак =, затем значение. | Uses crt; Var a, b, c: integer; Begin A: =5; b: =6; c: =7; Writeln(‘a=’, a); Writeln(‘b=’, b); Writeln(‘c=’, c); Readkey; end. |
| Объявите переменные и напишите программу для вычисления стоимости покупки нескольких тетрадей и карандашей. | Uses crt; Var koltet, sttet, kolkar, stkar, obst: integer; Begin Writeln(‘Введите колтетрадей’); Readln(koltet); … obst: =koltet*sttet+kolkar*stkar; writeln(‘obst=’, obst); Readkey; end. |
| Написать программу вычисления величины дохода по вкладу. Процентная ставка (в процентах годовых) и время хранения (в днях) задаются во время работы программы. | Uses crt; Var sum, srok, stavka, dohod: real; Begin Readln(sum); Readln(stavka); Readln(srok); Dohod: =((sum*(stavka/100))/36)*srok; Sum: =sum+dohod; Writeln(sum: 9: 2, ’руб’); Readkey; end. |
| Написать программу вычисления величины стоимости поездки на дачу. Расстояние, расход бензина на 100 км. и цена бензина может задаваться с клавиатуры или задаваться случайными числами. | Uses crt; Var … Begin Clrscr; Writeln(’ … ’); Readln(…); … Readkey; end. |
| Найти остаток от деления и округленный результат деления двух целых чисел, заданных с клавиатуры | Uses crt; Var a, b, c, d: integer; Begin Clrscr; Writeln(‘Введите два целых числа’); Readln(a, b); с: = a div b; d: = a mod b; Writeln(‘округленный результат - ’, c); Writeln(‘остаток от деления - ’, d); Readln; end. |
| Преобразовать вещественное число в денежный формат. Пример, 24.5 – 24 тенге 50 тиын | Uses crt; Var a: real; b, c: integer; Begin Clrscr; Writeln(‘Введите вещественное число’); Readln(a); b: = trunc(a); c: = round((a-b)*100); Writeln; Writeln(b: 4, ' тенге', c: 6, ’тиын’); Readkey; end. |
| Сгенерировать случайные числа: 1) целое в интервале от 0 до 67; 2) целое двухзначное; 3) вещественное с двумя целыми знаками; 4) целое из ряда 60, 70, 80, 90, …, 150; 5) вещественное из ряда -1.5, -1.3, -1.1, …, 0.7, 0.9. | Uses crt; Var a… Begin Clrscr; Randomize; a: =random(68-); Writeln(‘1 -’, a); a: =random(90)+10; Writeln(‘2 -’, a); a: =random; b: =b*100; Writeln(‘3 -’, b); a: =random(10)*10+60; Writeln(‘4 -’, a); a: =random(round((0.9-(-1.5))/0.2+1))*0.2-1.5; … Readkey; end. |
ТЕМА №4: ПРОГРАММИРОВАНИЕ НА ЯЗЫКЕ PASCAL (КОНСОЛЬНОЕ ПРИЛОЖЕНИЕ DELPHI). ПРОРЯДКОВЫЕ ТИПЫ ДАННЫХ. ВЕТВЛЕНИЕ. ОПЕРАТОРЫ УСЛОВНОГО И БЕЗУСЛОВНОГО ПЕРЕХОДА. СОСТАВЛЕНИЕ ПРОГРАММ С ИСПОЛЬЗОВАНИЕ ВЕТВЛЕНИЯ И ПЕРЕХОДОВ.
ПРОГРАММНО - ДИДАКТИЧЕСКОЕ ОБЕСПЕЧЕНИЕ: ЭВМ типа IBM. Delphi (консольное приложение).
ЦЕЛИ И ЗАДАЧИ: Знакомство с порядковыми типами данных и основными операторами ветвления языка Delphi (консольное приложение). Выработка навыков работы в Delphi (консольное приложение). Решение практических задач с использованием операторов ветвления.
ТРЕБОВАНИЯ К ЗНАНИЯМ И УМЕНИЯМ:
Учащиеся должны знать:
- Какие существуют типы данных;
- Что такое порядковые типы переменных;
- Какие типы переменных может задавать программист;
- Операторы условного и безусловного перехода;
- Что такое метка и в каком месте программы описываются метки,
- Как составить программы, использующие алгоритм ветвления, и какие операторы при этом использовать;
- Когда в операторах ветвления используются операторные скобки;
- Принцип организации движения графических фигур.
Учащиеся должны уметь:
- Задавать и уметь использовать перечисляемые и порядковые типы данных;
- Использовать операторы ветвления при составлении программ;
- Составлять программы с операторами goto и halt;
- Уметь пользоваться функцией readkey;
- Составлять программы с использование операторов условного и безусловного перехода.
ПЛАН-СОДЕРЖАНИЕ УРОКА