Спочатку потрібно викликати процедуру 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 – параметр циклу (ціле число)
Гиперссылка - фрагмент документа, связанный с объектом (файл/картинка и т.п.), к которому передается обращение при щелчке мыши по нему.
Объяснение:
Виды: внешние (переход вне текущего документа), внутренние (в текущем документе - то есть относительный путь к документу)
Нужна для перехода на другой слайд/документ/картинку, позволяет ссылаться на другие презентации/страницы в интернете и т.д.
Создать: в документе выделяем слово, ПКМ по нему, там меню "ссылка" и далее выбираем, что именно хотим прикрепить