Chi è bravo con il linguaggio PASCAL?

**PC_fanatic** · 14/01/2007, 19:13

Ciao ragazzi devo fare un programma in PASCAL che dice:
Effettuare lo scambio di due variabili dati in input se i numeri sono entrambi positivi e il primo numero è maggiore del secondo;se i numeri sono discordi il programma calcola il quadrato e il cubo dei due numeri;se essi sono entrambi negativi il programma segnala un errore.

qualcuno mi può aiutare????

**The Ramandolo Man** · 14/01/2007, 19:33

pascal

cosa nn riesci a fare esattamente dovrei rispolverare le mie vecchissime memorie di scuola .

**PC_fanatic** · 14/01/2007, 19:37

beh quando imposto le condizioni che mi impone il problema mi da errore all'avvio del programma, ho provato di tutto ma nada

**The Ramandolo Man** · 14/01/2007, 19:40

incolla vediamo

**PC_fanatic** · 14/01/2007, 19:46

aspe lo rifaccio lol l'avevo cancellato perchè non andava

**PC_fanatic** · 14/01/2007, 19:53

program n;
VAR x,y,z,quadrato,cubo:REAL;
begin
writeln('Inserisci due valori');
readln(x,y);
IF x>0 and y>0 and x>y then begin
z:=x;
x:=y;
Y:=z;
writeln(z);
end;
IF x>0 and y>0 then begin
Quadrato:=x*x;
Cubo:=x*x*x;
writeln(Quadrato,Cubo);
end;
If x<0 and y<0 then
writeln('errore');
readln;
end.

**PC_fanatic** · 14/01/2007, 19:55

lol mentre stavo riscrivendo il programma mi sono accorto di un errore XD nel secondo IF io ho messo x*x quindi mi calcola solo il quadrato della X e non di tutto il valore...quindi ragionando meglio dovrei fare fare la somma prima dei dua valori e poi fare il quadrato e il cubo vero?
Però il problema lo trovo proprio nell'impostare gli IF perchè mi da errore la uff...

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

forse ci vanno le parentesi prova ora nn ricordo bene
IF ( x>0 ) and ( y>0 ) and ( x>y ) then begin

a parte l'errore cmq dice quando 2 numeri sono discordi . due numeri sono discordi quando hanno segno diverso la condizione è sbagliata sotto .

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

si vero per la fretta ho sbagliato...

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

Originariamente Scritto da The Ramandolo Man

forse ci vanno le parentesi prova ora nn ricordo bene
IF ( x>0 ) and ( y>0 ) and ( x>y ) then begin

a parte l'errore cmq dice quando 2 numeri sono discordi . due numeri sono discordi quando hanno segno diverso la condizione è sbagliata sotto .

provo come dici tu...speriamo bene