Эргономика ғылым ретінде қай жылы қалыптасты​

Спочатку потрібно викликати процедуру 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 – параметр циклу (ціле число)

Правило: Порядок выполнения арифметических действий в числовом выражении следующий:
а) произвести вычисления в скобках или раскрыть скобки в выражении (если они есть);
б) выполнить все действия второй ступени (умножение и деление);
в) выполнить действия первой ступени (сложение и вычитание).

Например:
738 : б + (241 — 164) + 136 * 8 = 1 288
Порядок выполнения действий:
— выполняем действие в скобках:
1) 241 — 164 = 77
— выполняем действия второй ступени:
2) 738 : 6 = 123
3) 136 * 8 = 1 088
— выполняем действия первой ступени:
4) 123 + 77 = 200
5) 200 + 1 088 = 1 288
Несколько действий первой ступени можно объединять в одно действие:
4) 123 + 77 + 1 088 = 1 288