Задание:
Необходимо составить программу в Pascal — дискриминанта, где a, b и с задаются генератором случайных чисел, все это вмассиве
Решение:
var a: array[1… 3] of integer; {объявляем массив из 3-х элементов типа integer} i, D: integer; begin randomize; for i: =1 to 3 do a[i]: =random (21) — 10; {заполняем массив случайными числами от -10 до 10} D: =a[2]*a[2] — (4*a[1]*a[3]); {вычисляем дискриминант} writeln ('a=', a[1]); writeln ('b=', a[2]); writeln ('c=', a[3]); writeln; writeln ('D=', D); readln; end.
Знаете другой ответ?