Programma sempre mio per calcolare la soluzione di un equazione di primo grado che rappresenta una retta
Codice:
Program Equazione_di_primo_grado;
(*Simply Program by MaxJump91*)
uses crt;
Var m,q,x,y:Real;
Begin
clrscr;
Writeln('considera l''equazione di primo grado di una retta y=mx+q');
Writeln(' ');
Writeln(' ');
Writeln('inserisci il valore di m');
Readln(m);
Writeln('inserisci il valore di x');
Readln(x);
Writeln('inserisci il valore di q');
Readln(q);
y:=(m*x)+q;
Writeln('il valore di y Å ',y:8:2);
readln
End.