Составить программу для нахождения корней квадратного уравнения 1,5х² - 21,5х + 8=0
10-11 класс
|
var a,b,c,d,x1,x2:real;
begin
a:=1.5;
b:=-21.5;
c:=8;
d:=sqr(b)-4*a*c;
if d>0 then
begin
x1:=((-1)*b+sqrt(d))/(2*a);
x2:=((-1)*b-sqrt(d))/(2*a);
writeln('x1=',x1,' x2=',x2);
end
else if d=0 then
begin
x1:= ((-1)*b)/(2*a);
writeln('x=',x1);
end
else writeln('Корней нет');
end.
Другие вопросы из категории
1.Какое количество информации получит игрок, которому из колоды в 32 карты
достают короля пик? А если то же, но из колоды в 36 карт?
2. В рулетке общее количество лунок 128. Какое количество информации мы получаем, увидев, что шарик остановился в 25 черное?
3.Сколько страниц в брошюре, если сообщение о том, что случайно открылась 17 страница содержит 6 бит информации?
4. Сколько нужно задать вопросов, чтобы угадать натуральное число не более 100?
Написать программы для выполнения следующих заданий:
Бесконечно печатать букву А: ААААААААААА.....
Ответ:
3. Задание
Бесконечно печатать 1000 999 998 997 996......
Написать программу на, которая определяет неизвестное основание системы счисления.
Читайте также
2. Составить программу для упорядоченное двух элементов по убыванию.