Chi è bravo con il linguaggio PASCAL?

**PC_fanatic** · 14/01/2007, 20:32

allora il programma parte ma ho dei problemi,allora nello scambio dei valori se io metto 3 2 il programma dovrebbe rispondere 2 3 e invece non lo fa -.- poi nel secondo punto oltre a farmi il quadrato e il cubo mi fa anche la somma(anche se non è richiesta dal problema però bisogna farla)poi al terzo punto non esce il messaggio "errore"

**kabodie** · 14/01/2007, 20:51

Originariamente Scritto da PC_fanatic

allora il programma parte ma ho dei problemi,allora nello scambio dei valori se io metto 3 2 il programma dovrebbe rispondere 2 3 e invece non lo fa -.- poi nel secondo punto oltre a farmi il quadrato e il cubo mi fa anche la somma(anche se non è richiesta dal problema però bisogna farla)poi al terzo punto non esce il messaggio "errore"

come fa a restituire 2 valori se c'è una writeln sola?

non entra in errore, perchè non soddisfa le condizioni che hai posto, sostituisciti al compilatore ed esegui le istruzioni da solo, al posto suo, così trovi gli errori.

**The Ramandolo Man** · 14/01/2007, 20:56

program ciapet;

var x : real;
y : real;
z : real;
quadrato : real ;
cubo : real ;

begin

Writeln;
Write( 'Inserisci il primo numero : ' );
Readln( x );
Write( 'Inserisci il secondo numero : ' );
Readln( y );

if ( x < 0 ) and ( y < 0 ) then
begin
Write( 'errore i numeri sono negativi' );
end
else if ( x > 0 ) and ( y > 0 ) and ( x > y ) then
begin
z = x ;
x = y ;
y = z ;
writeln('X = ' , x);
writeln('y = ' , y);
end
else if ( ( x < 0 ) and ( y > 0 ) ) or ( ( x > 0 ) and ( y < 0 )) then
begin
Quadrato:=x*x;
Cubo:=x*x*x;
writeln(' il quadrato e cubo di x è = ' , Quadrato, Cubo);
Quadrato:=y*y;
Cubo:=y*y*y;
writeln(' il quadrato e cubo di y è = ' , Quadrato, Cubo);
end ;

end.

prova nn sono convinto pero' che vada

**PC_fanatic** · 14/01/2007, 20:59

provo
grazie cmq :D

**PC_fanatic** · 14/01/2007, 21:12

sembra funzionare

ma c'è un problema la mia prof non ha spiegato l'operatore logico OR anche se io so cosa significa...

**PC_fanatic** · 14/01/2007, 21:14

cmq grazie mille

**The Ramandolo Man** · 14/01/2007, 21:32

digli che sei auto didatta

x < y and x > y se x < y e x > y

or significa oppure

e a fianco l'altra condizione

cmq verifica bene che vada tutto che pascal nn lo maneggio da un bel po