PDA

Visualizza la versione completa : [Pascal]Problema writeln


Luc@s
24-09-2003, 18:01
Sto facendo un prog in pascal x imparare le basi del Delphi ma nn capisco perche sbagli a sommare i numeri al writeln():



program OhmConvert;

var
ohm: integer;{ gli ohm }
kiloohm: real;{ i kiloohm = ohm x 1000 }
megaohm: real;{ i megaohm = ohm x 1.000.000}
sc: integer;{ la scielta }
begin

while sc > 0 do
begin
writeln('0) Esci');
writeln('1) ohm -> kiloohm');
writeln('2) ohm -> megaohm');
writeln('Inserisci gli ohm ohm');
readln(sc);
if sc = 1 then
begin
kiloohm := ohm*1000;
writeln('Ohm '+ ohm + ' = ' + kiloohm + 'kiloohm');
end;
if sc = 2 then
begin
megaohm:= ohm*1000000;
writeln('Ohm '+ ohm + ' = ' + megaohm + 'megaohm');
end;

readln(sc);
end;
end.

lpt
24-09-2003, 18:33
Dove ti da l'errore?

Luc@s
24-09-2003, 18:36
program OhmConvert;

var
ohm: integer;{ gli ohm }
kiloohm: real;{ i kiloohm = ohm x 1000 }
megaohm: real;{ i megaohm = ohm x 1.000.000}
sc: integer;{ la scielta }
begin

while sc > 0 do
begin
writeln('0) Esci');
writeln('1) ohm -> kiloohm');
writeln('2) ohm -> megaohm');
writeln('Inserisci gli ohm ohm');
readln(sc);
if sc = 1 then
begin
kiloohm := ohm*1000;
writeln('Ohm '+ ohm + ' = ' + kiloohm + 'kiloohm');
end;
if sc = 2 then
begin
megaohm:= ohm*1000000;
writeln('Ohm '+ ohm + ' = ' + megaohm + 'megaohm');
end;

readln(sc);
end;
end.



Nelle parti in grassetto :fagiano:

FinalFantasy
24-09-2003, 18:39
Fai così



program OhmConvert;

var
ohm: integer;{ gli ohm }
kiloohm: real;{ i kiloohm = ohm x 1000 }
megaohm: real;{ i megaohm = ohm x 1.000.000}
sc: integer;{ la scielta }

begin
writeln('0) Esci');
writeln('1) ohm -> kiloohm');
writeln('2) ohm -> megaohm');
readln(sc);
if sc = 1 then
begin
writeln('Inserisci ohm');
readln(ohm);
kiloohm := ohm * 1000
writeln(' Ohm ' + ohm +' = KiloOhm ' + kiloohm);

end;
if sc = 2 then
begin
writeln('Inserisci ohm');
readln(ohm);
megaohm := ohm * 1000000
writeln(' Ohm ' + ohm +' = MegaOhm ' + megaohm);
end;
end.



Non lo testato, xo dovrebbe andare.

X il futuro: si dice scelta :P

CONTROLLA BENE!

Luc@s
24-09-2003, 18:42
e la stessa cosa che ho scritto io :dottò:

FinalFantasy
24-09-2003, 18:43
Controlla bene

m@ximo
24-09-2003, 18:50
Hai provato a scrivere:

writeln(' Ohm ',ohm,' = KiloOhm ',kiloohm);

Mi pare si facesse così col Pascal.

Max

Luc@s
24-09-2003, 19:32
nn va :(

FinalFantasy
24-09-2003, 19:59
Questo lo testato io xsonalmente



program OhmConvert;

uses crt;

var
ohm: integer;{ gli ohm }
kiloohm: real ;{ i kiloohm = ohm x 1000 }
megaohm: real;{ i megaohm = ohm x 1.000.000}
sc: integer;{ la scielta }

begin
clrscr;
writeln('0) Esci');
writeln('1) ohm -> kiloohm');
writeln('2) ohm -> megaohm');
readln(sc);
if sc = 1 then
begin
writeln('Inserisci ohm');
readln(ohm);
kiloohm := ohm * 1000;
writeln(' Ohm ' , ohm , ' = KiloOhm ' , kiloohm);

end;
if sc = 2 then
begin
writeln('Inserisci ohm');
readln(ohm);
megaohm := ohm * 1000000;
writeln(' Ohm ' , ohm ,' = MegaOhm ' , megaohm);
end;
readln;
end.

alka
24-09-2003, 20:10
Originariamente inviato da Luc@s
nn va :(

Potresti essere più esplicativo?

Qual è l'effetto che ottieni a video e che ti fa dedurre che c'è qualcosa di sbagliato?

Cosa vorresti ottenere invece??

Loading