На мові Пасквль!!! 1) Користувач вводе 3 числа 2) Якшо введено не число то замін...

July 2022 1 5 Report

На мові Пасквль!!!
1) Користувач вводе 3 числа
2) Якшо введено не число то заміняєш його на рандомне число від 1 до 35
3) Запитуєш користувача що він хоче вивести на екран:
"0" - суму 3-х чисел
"1" - добуток
"2" - різницю 1-го і 3-го
"3" - добуток 1-го на 3-тє поділений на 2-ге число
"4" - квадратний корін першого мінус кубічний корін 2-го і це все помножити на 3-тє число в 4 ступені
"5" - закінчити програму
"-1" - дати можливість ввести числа заново
4) після кожного вибору від 0 до -1 запитуєш знову

Answers & Comments

LRSM

PascalABC.NET ₃.₆.₃.₂₅₇₇

Ответ:

##
var b: boolean;
repeat
if b then Writeln();
if b then b := False;
Print('Введите 3 числа:');
var a := ArrGen(3, i -> TryRead(i) ? i : Random(1,35));
Println($'Исходные числа:', a.JoinToString(', ') + '.');
repeat
Print('Что вывести на экран? (0, 1, 2, 3, 4, 5, -1):');
var x: integer;
x := TryRead(x) ? x : 100;
case x of
0: Println(' результат:', a.Sum);
1: Println(' результат:', a.Product);
2: Println(' результат:', Abs(a[0] - a[2]));
3: Println(' результат:', a[0] * a[2] / a[1]);
4: Println(' результат:', (a[0]**(1/2) - a[1]**(1/3)) * a[2]**4);
5: exit;
-1: b := True;
else Println(' неверный ввод');
end
until b
until not b

Пример работы:

1 votes Thanks 1

Answers & Comments

PascalABC.NET ₃.₆.₃.₂₅₇₇

zadacha na matematiku koristuvach vvode chislo x vivesti na ekran rezultat y

koristuvach vvodit chislo yaksho vin vvodit shos krim chisla to zaminyayesh jogo na ra

sho ne tak v cij programi vona na movi paskal

yakih chisel bilshe sered pershogo miljona tih v zapisu yakih zustrichayetsya 1 ab

рекомендуемые вопросы

Helpful Links

Helpful Social