Опубликовано 5 лет назад по предмету Информатика от Mrsozic

Написать программу решения линейного уравнения ax=b,a,b Вводим с клавиатуры
Язык - paskal

Ответ

Ответ дан orlov556

uses Crt;
var a, b, x : real;

BEGIN
ClrScr;
Write('Введите число a = ');
ReadLn(a);
Write('Введите число b = ');
ReadLn(b);

if ((a=0) and (b=0)) then
WriteLn('Уравнение имеет бесконечное множество решений: х*0 + 0 = 0.')
else if ((a=0) and (b<>0)) then
WriteLn('Уравнение не имеет решений.')
else if (a<>0) then
begin
x:= -(b/a);
WriteLn('x = ', x);
end
END.
Ответ

Ответ дан ingr

var
a, b : real;
begin
writeln('ax=b');
write('введите a, b: ');
readln(a, b);
writeln(a, 'x=', b);
if (a = 0) and (b = 0) then writeln('x= бесконечное множество')
else if (a = 0) and (b <> 0) then writeln('уравнение не имеет решений')
else begin
writeln('x=', b, '/', a);
writeln('x=', b/a);
end;
end.

Самые новые вопросы

Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают