Спочатку потрібно викликати процедуру randomize.
Потрібно створити ціле число, що належить інтервалу [1, 4]. Для цього будемо використовувати формулу X:=Random(B-A+1)+A, де A=1,B=4.
Перевіримо створене число.
Якщо воно дорівнює 1, то надрукуємо слово 'піка'.
Якщо воно дорівнює 2, то надрукуємо слово 'треф'.
Якщо воно дорівнює 3, то надрукуємо слово 'бубна'.
Якщо воно дорівнює 4, то надрукуємо слово 'чирва'.
Програма
var x:byte;
begin
randomize;x:=random(4)+1;
if x=1 then writeln('пики');
if x=2 then writeln('трефи');
if x=3 then writeln('бубни');
if x=4 then writeln('черви');
end.
Приклад 2
Одержати у програмі 10 випадкових цілих чисел у діапазоні від 0 до 10 включно та знайти їх суму.
Змінні:
Вхідних даних немає.
Вихідні:
x – число, що має значення від 0 до 10 (ціле число)
s – сума всіх чисел x
Проміжні:
i – параметр циклу (ціле число)
вот код:
var a,b,c,d,e,min,max: integer;
begin
read (a,b,c,d,e);
if (a> b) and (a> c) and (a> d) and (a> e) then max: = a;
if (b> a) and (b> e) and (b> c) and (b> d) then max: = b;
if (c> a) and (c> b) and (c> d) and (c> e) then max: = c;
if (d> a) and (d> c) and (d> b) and (d> e) then max: = d;
if (e> b) and (e> a) and (e> d) and (e> c) then max: = e;
if (a< b) and (a< c) and (a< d) and (a< e) then min: = a;
if (b< a) and (b< e) and (b< c) and (b< d) then min= b;
if (c< a) and (c< b) and (c< d) and (c< e) then min: = c;
if (d< a) and (d< c) and (d< b) and (d< e) then min: = d;
if (e< b) and (e< a) and (e< d) and (e< c) then min: = e;
writeln ('минимальное число: ',min);
writeln ('максимальное число: ',max);
end.