Категория
Информатика, опубликовано 16.04.2019 08:00

Напишите программу для pascal к уравнению ax^2+bx+c=0

Ответы

Ответ
Ответ оставил: Гость
Program kv; var a,b,c,x1,x2,x,d: real;   begin    write ('input a b c => ');     readln (a,b,c);     if a  = 0 then    if b = 0 then    begin    writeln ('the equation is not compatible');     readln;       halt     end else    begin    x : =-c / b;     writeln ('root x=' ,x: 8: 2);     readln;     halt    end else    begin    d : =sqr (b) - 4 * a * c;     if d< 0 then    begin    writeln ('the equation has no real roots');   readln;     halt    end else    begin    x: =-b /( 2 * a );     if d = 0 then    begin      writeln ('roots are equal x1=x2=', x: 8: 2);       readln;           halt      end;     x2: = sqrt (d)/(2*a);     x1: = x2 + x;     x2: = x - x2;     writeln('roots: x1=',x1: 8: 2, ' x2= ',x2: 8: 2)    endend;     readln; end.
Ответ
Ответ оставил: Гость
function ReadInteger(prompt: string): integer;
        Выводит приглашение к вводу и возвращает значение типа integer, введенное с клавиатуры

function ArrRandom(n: integer := 10; a: integer := 0; b: integer := 100): array of integer;
        Возвращает массив размера n, заполненный случайными целыми значениями

function Println(delim: string := ): sequence of T;
      Выводит последовательность на экран, используя delim в качестве разделителя, и переходит на новую строку.

procedure Assert(cond: boolean; sourceFile: string := '; line: integer := 0);
        Выводит в специальном окне стек вызовов подпрограмм если условие не выполняется
Ответ
Ответ оставил: Гость
Ррррррррррррррррррррррррраааааааааааааааааааа     иррррррррррррррррррррррррррррррррррррррррррьььььььььььььььььььььььггггггггггггггггггггггггггггггггггггггггггггггггггггггггггггггггггггггггггггггг
Ответ
Ответ оставил: Гость
X = 5;
x = x + 1 (5 + 1);
x = 6;
Ответ: 2


Другие вопросы по информатике

✅ Ответов: 2 на вопрос по информатике: Напишите программу для pascal к уравнению ax^2+bx+c=0... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube