Как задать промежуток в паскале

program m_1;
var n, k1, x, max, min: integer;
begin
randomize;
writeln (‘Случайные числа из интервала [a;b]’);
write (‘Введи минимальное значение интервала — ‘);
read (min);
write (‘Введи максимальное значение интервала — ‘);
read (max);
write (‘Введи кол-во случайных чисел — ‘);
read (n);
k1:=0;
repeat
if (n>=0) then k1:=k1+1;
x:=random((max-min+1)+min);
writeln (x);
until k1=n;
end.

Есть код
С: integer;
IF C = [числу от 1 до 10] THEN [Делаем что-то] Else [Делаем другое]

Вопрос:
Как записать этот промежуток чисел от 1 до 10 в этой функции IF — THEN ? Не хочется писать отдельные функции для каждого числа из этого промежутка.

Program Number (Input, Output);

Объявление имени программы

Блок объявления глобальных переменных

Переменные A и B — целочисленные значения концов интервала

Переменная N — количество случайных чисел

Переменная S — очередное полученное случайное число

Переменная i — параметр цикла

Начало тела программы

WriteLn (‘PASCAL: Получение случайных чисел из интервала [A,B].’);

Формулировка цели алгоритма

Write (‘Введите значение A: ‘);

Вывод запроса A — левой границы интервала

Write (‘Введите значение B: ‘);

Вывод запроса B — правой границы интервала

Write (‘Введите число случайных чисел N: ‘);

Запрос ввода N — количества случайных чисел

For i := 1 To N Do

Цикл для i от 1 до N выбора случайных чисел

Начало тела цикла

Присваиваем S очередное случайное число из интервала [A,B]

WriteLn (i:2,’-е случайное число:’,S:4);

Форматированный вывод очередного числа

Конец тела цикла

Ожидание нажатия клавиши Enter для завершения

(с) Все права защищены.

По всем интересующим вопросам прошу писать электронный адрес

Читайте также:  Xiaomi redmi note 5 отключить рекламу
Оцените статью
Добавить комментарий

Adblock detector