Задача 13 Урок 15
Primary tabs
Напишите функцию, которая принимает на вход целое число N и возвращается строку, содержащую арифметическое выражение вида:
a1 # a2 # ..... # aNГде:
a1, a2,....., aN -- случайные числа из диапазона от 1 до 100
# - один из случайных знаков (*, +, -)
function str(k:integer):integer; var j, y: integer; x : char; a: array of integer; begin randomize(); SetLength(a, k); for j := 0 to k - 1 do a[j] := 1 + random(100); write('Массив: '); for j := 0 to k - 1 do write(a[j], ' '); writeln(); y := 1 + random(3); if y = 1 then x := '*' else if y = 2 then x := '+' else x := '-'; write('Знак: '); writeln(x); write('Строка: '); for j := 0 to k - 1 do if j <> k - 1 then write(a[j], ' ', x, ' ') else write(a[j]); end; var n: integer; begin write('Введите целое положительное число: '); readln(n); str(n); readln(); end.
- Log in to post comments
- 778 reads