Ежемесячная стипендия студента составляет А р., а расходы на проживание превышают стипендию и составляют В р. в месяц. Рост цен ежемесячно увеличивает расходы на 3%. Разработать схему алгоритма для расчета необходимой суммы денег, которую надо единовременно попросить у родителей, чтобы можно было прожить учебный год (10 месяцев), используя только эти деньги и стипендию.

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

((3 + 1) * 3) * 3 = 36 ((3) * 3 + 1 + 1 + 1) * 3 = 36 ((3) * 3 + 1 + 1) * 3 + 1 + 1 + 1 = 36 ((3) * 3 + 1) * 3 + 1 + 1 + 1 + 1 + 1 + 1 = 36 (3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1) * 3 = 36 ((3) * 3) * 3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 36 (3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1) * 3 + 1 + 1 + 1 = 36 (3 + 1 + 1 + 1 + 1 + 1 + 1 + 1) * 3 + 1 + 1 + 1 + 1 + 1 + 1 = 36 (3 + 1 + 1 + 1 + 1 + 1 + 1) * 3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 36 (3 + 1 + 1 + 1 + 1 + 1) * 3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 36 (3 + 1 + 1 + 1 + 1) * 3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 36 (3 + 1 + 1 + 1) * 3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 36 (3 + 1 + 1) * 3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 36 (3 + 1) * 3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 36 (3) * 3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 36 3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 36 ответ 16 def f0(number, log) #   v = 1   n = number + v   log += " + #{v}"   # log += "[" + n.to_s + "] "   return [n, log] end def f1(number, log) #   v = 3   n = number * v   log = "(#{log}) * #{v}"   # log += "[" + n.to_s + "] "   return [n, log] end def countways(start_num, end_num, op_numbers, max_steps = 0)   ways = {}   ways.store(start_num.to_s, start_num)   max_steps = max_steps == 0 ? (start_num - end_num).abs : max_steps   count = 0   for steps in 1..max_steps           # puts "steps = #{steps}"           new_ways = {}           ways.each_pair{|log, num|                   for k in 0..op_numbers-1                           num1, log1 = f0(num, log) if k == 0                           num1, log1 = f1(num, log) if k == 1                           num1, log1 = f2(num, log) if k == 2                           if num1 == end_num                                   # and log.include? ('[8]')                           then                                   log1 += " = " + end_num.to_s                                   count += 1                                   puts log1                           elsif num1.between? (start_num, end_num)                                   new_ways.store(log1, num1)                           else                                   # log1 = log1 + " = " + num1.to_s + " bad "                                   # puts log1                           end                   end           }           # p [steps, ways.size, new_ways.size]           ways = new_ways   end   return count end