Aiuto Turbo Pascal!!!urgentissimo!!!!!!!!
x compito devo fare un programma x la risoluzione di problemi basati sulla legge di OHm V=r*I.(Quindi il programma deve fare anke le formule inverse e deve kiedermi kosa voglio calcolare).
"HO FATTO QST PROGRAMMA KE TUTTAVIA NN VA,SE RIUSCIRESTE A CORREGGERMELO O EVENTUALMENTE MODIFICARLO VE NE SAREI GRATO...GRAZIE RX AL PIU PRESTO!!!
***********************************************
program calcola_la_grandezza_mancante;
uses crt;
var
codice:integer;
corrente:real;
tensione:real;
resistenza:real;
stringa_tensione:string[12];
stringa_corrente:string[12];
stringa_resistenza:string[12];
begin
clrscr;
writeln;
writeln('inserisci una grandetta se non Š la tua non inserire niete.');
writeln ('Inserisci la corrente:');
readln (stringa_corrente);
if (stringa_corrente <> '') then
val(stringa_corrente, corrente, codice)
else
corrente:=0;
writeln ('Inserisci la tensione:');
readln (stringa_tensione);
if (stringa_tensione <> '') then
val (stringa_tensione, tensione, codice)
else
tensione:=0;
writeln ('Inserisci la resistenza:');
readln (stringa_resistenza);
if (stringa_resistenza <> '') then
val (stringa_resistenza, resistenza, codice)
else
resistenza:=0;
if (tensione=0) then
begin
tensione:=resistenza*corrente;
writeln('Il valore della tensione Š di:');
end;
if (corrente=0) then
begin
corrente:=tensione/resistenza;
writeln('Il valore della corrente Š di:');
end;
if (resistenza=0) then
begin
resistenza:=tensione/corrente;
writeln('Il valore della resistenza Š di:');
end;
writeln ('Premi un tasto per continuare...');
readln;
end.
