составить программу в pascal для нахождения корней квадратного уравнения ax^2+bx+c=0
10-11 класс
|
Program kv_ur;
uses crt;
var
a,b,c,d: integer;
x1,x2,x: real;
begin
Writeln ('Введите a,b,c');
Read (a,b,c);
d:=sqr(b)-4*a*c;
if d>0 then
begin
x1:=-b-sqrt(d)/2*a;
x2:=-b+sqrt(d)/2*a;
Writeln ('Корни уравнения: x1=',x1,' x2=',x2);
end
else
if d<0 then
Write ('Нет корней')
else
begin
x:=-b/2*a;
Writeln ('Корень уравнения: x=',x);
end;
end.
Другие вопросы из категории
2.Надпись на клавише , фиксирующий числовой режим работы дополнительной кклавиатуры?
Помогите пожалуйста!!!
документа, в якому міститься його ключовий опис
визначення заголовку вікна в якому відображається документ
позначення тексту, як заголовка
встановлення тексту в комірку таблиці
позначення нового абзацу
2.Який тег вбудовує зображення у файл?
TABLE
ALIGN
IMG
ALT
3.PowerPoint потрібний для створення ....
таблиць із метою підвищення ефективності обчислення формульних виражень
текстових документів, що містять графічні об'єкти
Internet-Сторінок з метою забезпечення широкого доступу до наявної інформації
презентацій з метою підвищення ефективності сприйняття й запам'ятовування інформації
4.Застосування фону до певного слайду в презентації PowerPoint –
формат – фон – застосувати
формат – фон – застосувати до всіх
вставлення – фон
вигляд – оформлення – фон
5.Публікація Microsoft Publisher може містити такі об'єкти:
Таблиці
Ілюстрації
Текстові поля
графічні елементи
розрахункові формули
Читайте также
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
1. Разработать схему алгоритма программы
2. Составить программу на языке Паскаль по разработанному алгоритму