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 для завершения
(с) Все права защищены.
По всем интересующим вопросам прошу писать электронный адрес