написать програму для ПАСКАЛЬ на уравнение ах(в квадрате)+bx+c=0. нужна только программа, чтобы я ввела в ПАСКАЛЬ.
10-11 класс
|
var a,b,c,x1,x2,D:real;
begin
Writeln('Введите коэффициенты квадратного уравнения');
Write('a = '); readln(a);
Write('b = '); readln(b);
Write('c = '); readln(c);
D:=b*b-4*a*c;
if D<0 then writeln('Действительных корней нет')
else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
Writeln('x1 = ',x1);
Writeln('x2 = ',x2);
readln
end;
end.
Другие вопросы из категории
радиосвязь
телевидение
электрический телеграф
почта
Читайте также
Нужно написать код для программы Pascal ABC, нужно написать код для решения этого уравнения. Спасибо!
дробь представлять двумя целыми числами: первое число представляет числитель дроби, а второе - знаменатель. В процессе вычислений требуется сокращать дроби на их наибольший общий делитель (НОД). Если одно из чисел равно нулю, то НОД берем равным 1. Разработать также отдельные процедуры для ввода (на экран выводится надпись: «Введите числитель и знаменатель обыкновенной дроби») и вывода обыкновенных дробей (a/b).
Найдите среднюю температуру для дней, когда температура поднималась выше 0 градусов, и определите количество таких дней. Программа получает на входе количество дней, в течение которых проводилось наблюдение, затем для каждого дня вводится температура.
Написать програму на языке паскаля с использование цикла с пердусловием для решении следущей задачи:
дано натуральное как минимум трёхзначное число.Определить,верно ли ,что удвоеная сумма друх его послеследних цифр меньше квадрата первой цифры.