Precedente :: Successivo |
Autore |
Messaggio |
bonazzo.89 Comune mortale

Registrato: 12/02/11 17:57 Messaggi: 4
|
Inviato: 12 Feb 2011 18:06 Oggetto: Problema con free pascal.. |
|
|
devo ordinare dei numeri in ordine decrescente tramite free pascal, ho provato a fare così, la compilazione è giusta ma quando faccio run, mi dice: ex:
inserisci valore numerico A=5
inserisci valore numerico B=3
e mi dice: 5 ANTICIPA 5, invece dovrebbe essere 3 ANTICIPA 5 e mi potete sostituire anticipa e posticipa con un altro sostantivo più adeguato?? potete aggiustare il mio programma usando questo modello come esempio?? grazie
PROGRAM ORDINA;
USES CRT;
VAR A,B:INTEGER;
BEGIN
CLRSCR;
WRITELN('QUESTO PROGRAMMA SISTEMA DUE NUMERI INTERI IN ORDINE DECRESCENTE');
WRITELN;
WRITE('INSERISCI IL VALORE NUMERICO A=');READLN(A);
WRITE('INSERISCI IL VALORE NUMERICO B=');READLN(B);
IF A>B THEN
BEGIN
WRITE(A);
WRITE(' ANTICIPA ');
WRITELN(A);
END;
IF A<B THEN
BEGIN
WRITE(B);
WRITE(' POSTICIPA ');
WRITELN(B);
END;
READLN;
END. |
|
Top |
|
 |
SverX Supervisor Macchinisti


Registrato: 25/03/02 12:16 Messaggi: 11810 Residenza: Tokelau
|
Inviato: 14 Feb 2011 12:07 Oggetto: Re: Problema con free pascal.. |
|
|
Codice: | IF A>B THEN
BEGIN
WRITE(B);
WRITE(' ANTICIPA ');
WRITELN(A);
END;
IF A<B THEN
BEGIN
WRITE(B);
WRITE(' POSTICIPA ');
WRITELN(A);
END; |
a questo punto potresti addirittura portare le write di B e A fuori dall'IF...  |
|
Top |
|
 |
bonazzo.89 Comune mortale

Registrato: 12/02/11 17:57 Messaggi: 4
|
Inviato: 21 Feb 2011 14:11 Oggetto: |
|
|
me lo potresti creare tutto direttamente x favore? proprio nn so come fare..  |
|
Top |
|
 |
SverX Supervisor Macchinisti


Registrato: 25/03/02 12:16 Messaggi: 11810 Residenza: Tokelau
|
Inviato: 21 Feb 2011 14:22 Oggetto: |
|
|
ma stai scherzando, voglio sperare!
2 IF e qualche WRITE, non farti spaventare così in fretta... |
|
Top |
|
 |
|