Напишите пожалуйста программу, которая вычислит корни квадратного уравнения.а,b,c вводим с клавиатуры. (на паскале)
10-11 класс
|
Program abc;
Uses CRT;
Var : a,b,c, : integer;
P,s : réal;
Begin
Writeln (" введите значения а, b , c);
Redln (a,b,c);
p:=(a+b+c)/2;
writeln(p);
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(S);
end.
все что после begin, заменить на то что тут написанно!!! и в описании p,s заменить на x1,x2,d !!! d:=sqrt(b*b-4*a*c); x1:=(-b+d)/(2*a); x2:=(-b-d)/(2*a); writeln('x1 = ', x1, '; x2 = ', x2); end.
все что после begin, заменить на то что тут написанно!!! и в описании p,s заменить на x1,x2,d !!! d:=sqrt(b*b-4*a*c); x1:=(-b+d)/(2*a); x2:=(-b-d)/(2*a); writeln('x1 = ', x1, '; x2 = ', x2); end.
кстати если что 1 это я написал площадь для треугольника:)
кстати если что 1 это я написал площадь для треугольника:)
Другие вопросы из категории
количество осадков за этот год, среднемесячное количество осадков, количество засушливых месяцев (когда количество осадков было меньше 30 мм), самый засушливый месяц года. для Turbo Pascal.
информации содержит сообщение о том, что было запущено одно из них.
Читайте также
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.
углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.
формулу, по которой вычисляется площадь этой фигуры. В программе использовать оператор CASE на языке Basic
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.