Составьте программу дискриминанта так, чтобы а,b,с -задавались генератором случайных чисел (random);+эта программа должна включать в себя массив ( в Pascal )Просьба писать по возможности с объяснением)

Question

Составьте программу дискриминанта так, чтобы а,b,с -задавались генератором случайных чисел (random);+эта программа должна включать в себя массив ( в Pascal )Просьба писать по возможности с объяснением)

Составьте программу дискриминанта так, чтобы а,b,с -задавались генератором случайных чисел (random);+эта программа должна включать в себя массив ( в Pascal ) Просьба писать по возможности с объяснением)

Гость

Ответ(ы) на вопрос:

Accepted Answer

Var koef:array[1..3] as integer; d:real; i:integer; Begin Randomize; ;Генерируем коэффициенты a b c for i:=1 to 3 do begin koef[i]:=random(100); end; ;Считаем дискриминант d:=koef[2]*koef[2]-4*koef[1]*koef[3]; ;выводим ответ Writeln(d:5:2); end.