[Pascal]Problema writeln

[Luc@s]

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]

Dove ti da l'errore?

[Luc@s]

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

[FinalFantasy]

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]

e la stessa cosa che ho scritto io

[FinalFantasy]

Controlla bene

[m@ximo]

Hai provato a scrivere:

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

Mi pare si facesse così col Pascal.

Max

[Luc@s]

nn va

[FinalFantasy]

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]

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??