Indice del forum Olimpo Informatico
I Forum di Zeus News
Leggi la newsletter gratuita - Attiva il Menu compatto
 
 FAQFAQ   CercaCerca   Lista utentiLista utenti   GruppiGruppi   RegistratiRegistrati 
 ProfiloProfilo   Messaggi privatiMessaggi privati   Log inLog in 

    Newsletter RSS Facebook Twitter Contatti Ricerca
Problema con free pascal..
Nuovo argomento   Rispondi    Indice del forum -> Programmazione
Precedente :: Successivo  
Autore Messaggio
bonazzo.89
Comune mortale
Comune mortale


Registrato: 12/02/11 17:57
Messaggi: 4

MessaggioInviato: 12 Feb 2011 18:06    Oggetto: Problema con free pascal.. Rispondi citando

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 Rolling Eyes


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
Profilo Invia messaggio privato
SverX
Supervisor Macchinisti
Supervisor Macchinisti


Registrato: 25/03/02 12:16
Messaggi: 11810
Residenza: Tokelau

MessaggioInviato: 14 Feb 2011 12:07    Oggetto: Re: Problema con free pascal.. Rispondi citando

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... Rolling Eyes
Top
Profilo Invia messaggio privato HomePage
bonazzo.89
Comune mortale
Comune mortale


Registrato: 12/02/11 17:57
Messaggi: 4

MessaggioInviato: 21 Feb 2011 14:11    Oggetto: Rispondi citando

me lo potresti creare tutto direttamente x favore? proprio nn so come fare.. Crying or Very sad
Top
Profilo Invia messaggio privato
SverX
Supervisor Macchinisti
Supervisor Macchinisti


Registrato: 25/03/02 12:16
Messaggi: 11810
Residenza: Tokelau

MessaggioInviato: 21 Feb 2011 14:22    Oggetto: Rispondi

ma stai scherzando, voglio sperare! Shocked

2 IF e qualche WRITE, non farti spaventare così in fretta...
Top
Profilo Invia messaggio privato HomePage
Mostra prima i messaggi di:   
Nuovo argomento   Rispondi    Indice del forum -> Programmazione Tutti i fusi orari sono GMT + 2 ore
Pagina 1 di 1

 
Vai a:  
Non puoi inserire nuovi argomenti
Non puoi rispondere a nessun argomento
Non puoi modificare i tuoi messaggi
Non puoi cancellare i tuoi messaggi
Non puoi votare nei sondaggi