Блог для маленьких школьников и их родителей
ШколаЛа

Как вывести квадратное уравнение с вводимыми a,b,c в паскале?

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

Как вывести квадратное уравнение с вводимыми a,b,c в паскале?

Ответов к вопросу: 1
  • Asylixx
    30.09.2024 | 21:24

    var a,b,c:integer;

    a1,b1,c1:string;

    BEGIN

    read(a,b,c);

    if a=0 then a1:=» else a1:=IntToStr(a)+’x^2 ‘;

    if b=0 then b1:=» else if (b>0) then b1:=’+ ‘+IntToStr(b)+’x ‘ else b1:=’- ‘+IntToStr(abs(b))+’x ‘;

    if c=0 then c1:=» else if (c>0) then c1:=’+ ‘+IntToStr(c)+’ ‘ else c1:=’- ‘+IntToStr(abs(c))+’ ‘;

    if a=1 then a1:=’x^2 ‘;

    if a=-1 then a1:=’-x^2 ‘;

    if b=1 then b1:=’+ x ‘;

    if b=-1 then b1:=’- x ‘;

    if (a=0) and (b=0) and (c=0) then

    write(‘0 = 0′) else

    write(a1,b1,c1,’= 0’);

    end.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.