Hogyan kell levezetni az elsőfokú egyenletet pascalban?

Hogy érted hogy levezetni?

Ha ki akarsz számolni egy ax+b=0 alakú (vagy másképp ax=b) egyenletet, akkor mondjuk bekéred az együtthatókat, és az eredmény a 2 hányadosa lesz.

program egyenlet;

uses crt;

var a: integer; {lehetne akár valós szám is a,b}

var b: integer;

var eredmeny: real;

Begin

write("Kerem x egyutthatojat: ");

readln(a);

write("Kerem az eredmenyt: "); {itt a jobb oldalt adom meg}

readln(b);

eredmeny:=b/a;

writeln(a,"x = ",b,"egyenlet megoldása: ");

writeln("x="eredmeny:0:2);

readkey;

End.

Persze lehet bonyolítani, hogy több tagot adunk meg az egyenletnek akkor azokat össze kell vonni a számkat meg az x-eket, külön oldalra rendezni. Négy alapművelet használatával megoldható (szorozni szerintem nem is kell).