Цитата:
Сообщение от Dimas27
Умные люди помогите пожалуйсто составить программу решения линейного уравнения ax=b .Заранее спасибо.
|
Это, конечно, было невероятно сложно. Но всё же я справился, сам не знаю, как. Ну до чего умён!
Код:
Var
a,b:Real;
Begin
Repeat
Write('a= ');
Readln(a);
if a=0 then writeln('Error: a=0. Enter another value');
Until a<>0;
Write('b= ');
Readln(b);
Writeln('x = ',b/a:0:5);
Readln;
End.