Необходимо составить программу в Pascal - дискриминанта, где a, b и с задаются генератором случайных чисел, все это в массиве
10-11 класс
|
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.
Другие вопросы из категории
Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. хотябы как начать и с чего думать?
70 символов,сравнить обьемы информации содержащиеся в сообщении
Читайте также
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
!двухмерный массив размером 5 на 10 ( в Pascal )
Pascal )
Просьба писать по возможности с объяснением)
2. Составить программу для упорядоченное двух элементов по убыванию.
вывести список книг, изданных после 2003 года.
2)составить программу , организующую массив записей о пяти студентах и их оценках по трем предметам. провести сортировку и вывести список отличников.