Напишите процедуру, которая выводит на экран решение линейного уравнения . параметры и являются параметрами процедуры.

292

408

Посмотреть ответы 2

Ответы на вопрос:

Viktoria200430

Информатика

4,5(41 оценок)

//линейное уравнение от одной переменной вида ax+b=0 procedure lin1(a,b: real; var x: real); begin x: =-b/a; end; //линейное уравнение двух переменных вида ax+by+c=0 //имеет бесконечное множество решений (корней) procedure lin2(a,b,c: real); var x,y: real; n,i: integer; begin write ('сколько пар корней вы хотите получить? '); readln (n); for i: =1 to n do begin write ('введите x='); read (x); y: =(-c-a*x)/b; writeln (' y=',y); end; end; var a,b,c,x,y: real; n: integer; begin write ('сколько переменных в уравнении - 1 или 2? '); readln (n); if n=1 then begin write ('введите коэффициент при х: а='); readln (a); write ('введите свободный коэффициент b='); readln (b); lin1(a,b,x); writeln ('x=',x); end else begin write ('введите коэффициент при х: а='); readln (a); write ('введите коэффициент при y: b='); readln (b); write ('введите свободный коэффициент c='); readln (c); lin2(a,b,c); end; end. сколько переменных в уравнении - 1 или 2? 1 введите коэффициент при х: а=3 введите свободный коэффициент b=9 x=-3 сколько переменных в уравнении - 1 или 2? 2 введите коэффициент при х: а=2 введите коэффициент при y: b=2 введите свободный коэффициент c=-4 сколько пар корней вы хотите получить? 3 введите x=0 y=2 введите x=2 y=0 введите x=-2 y=4

Ангелок2007

Информатика

4,6(31 оценок)

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin readseqinteger(10).where(t-> t.between(-5, .average.println end. пример 38 -6 12 0 5 23 -32 4 11 2 5.66666666666667

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.