Rex Romae
11-10-2007, 18:39
E' il mio primo programma....
potete darmi una mano a trovare gli errori?... dove ho sbagliato??
║Program equ1gra (*11/10/2007*) ▲
║begin ■
║uses crt; ▒
║var:a,b,c,d,x:real; ▒
║writeln ('Questo programma risolve le equazioni di primo grado'); ▒
║clrscr; ▒
║writeln('Inserisci i numeri dell'equazione per risolverla'); ▒
║writeln('Scrivi il primo coefficente della x'); ▒
║readln(a); ▒
║writeln('Scrivi il primo termine noto'); ▒
║readln(b); ▒
║writeln('Scrivi il secondo coefficente della x'); ▒
║readln (c); ▒
║writeln('Scrivi il secondo termine noto'); ▒
║readln(d); ▒
║if(a-c)<>0 then ▒
║begin ▒
║x:=(d-b)/(a-c); ▒
║writeln('x': ,x:6:2); ▒
║end ▒
║else ▼
║begin ▒
║if(d-b)=0 then ▒
║begin ▒
║writeln('L''equazione è indeterminata'); ▒
║end. ▒
║else ▒
║begin ▒
║writeln('L''equazione è impossibile'); ▒
║end; ▒
║end; ▒
║readln ▒
║end. ▼
potete darmi una mano a trovare gli errori?... dove ho sbagliato??
║Program equ1gra (*11/10/2007*) ▲
║begin ■
║uses crt; ▒
║var:a,b,c,d,x:real; ▒
║writeln ('Questo programma risolve le equazioni di primo grado'); ▒
║clrscr; ▒
║writeln('Inserisci i numeri dell'equazione per risolverla'); ▒
║writeln('Scrivi il primo coefficente della x'); ▒
║readln(a); ▒
║writeln('Scrivi il primo termine noto'); ▒
║readln(b); ▒
║writeln('Scrivi il secondo coefficente della x'); ▒
║readln (c); ▒
║writeln('Scrivi il secondo termine noto'); ▒
║readln(d); ▒
║if(a-c)<>0 then ▒
║begin ▒
║x:=(d-b)/(a-c); ▒
║writeln('x': ,x:6:2); ▒
║end ▒
║else ▼
║begin ▒
║if(d-b)=0 then ▒
║begin ▒
║writeln('L''equazione è indeterminata'); ▒
║end. ▒
║else ▒
║begin ▒
║writeln('L''equazione è impossibile'); ▒
║end; ▒
║end; ▒
║readln ▒
║end. ▼