Предмет: Информатика,
автор: Ykide
Помогите пожалуйста
Решить уравнение ax+b=0. a и b вводятся с клавиатуры.
для паскаля
если сможете ещё и блок-схему.
Ответы
Автор ответа:
0
Program uravnenie;
Var a,b,x: real;
BeginWriteln (' введите a');
Readln (a);Writeln (' введите b');
Readln(b);
x:=(0-b)/a;
Writeln(' x равно=',x);
Readln (x);
End.
___________________________________
Var a,b,x: real;
BeginWriteln (' введите a');
Readln (a);Writeln (' введите b');
Readln(b);
x:=(0-b)/a;
Writeln(' x равно=',x);
Readln (x);
End.
___________________________________
Приложения:
Похожие вопросы
Предмет: Биология,
автор: muhambetovamensulu1
Предмет: Математика,
автор: wdsfgfbv
Предмет: Химия,
автор: kyzalist
Предмет: Биология,
автор: ozerovanv
Предмет: География,
автор: сластюшик