|
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. | NEI PREFERITI | .:: | RSS Forum | RSS News | NEWS web | NEWS software | |
| PUBBLICITA' | | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | | CERCA nel FORUM » | |
27-01-2002, 17.21.59 | #1 |
Junior Member
Registrato: 10-06-2001
Loc.: Mugello, Paese del Pacciani e Giotto e Beato Angelico
Messaggi: 180
|
Chi mi può dare una mano Col Turbo Pascal
Gentili programmatori e non Mi dovreste fare un favore entro stasera 27-01.-02, sono uno studente che e ai primi passi con il Turbo Pascal e ci capisco quasi niente. Mi dovreste fare: Una struttura di un programma Pascal che ordini i numeri 5 numeri anche negativi da noi immessi con l’algoritmo per immissione dei numeri. Gli algoritmi ve li lascio in .jpg in allegato Praticamente mi dovreste fare questa parte qui: Immagine in allegato “struttura.jpg” Prima vi mando gli algoritmi e dopo in un messaggio con scritto struttura l'altro allegato (non so questo era l’inizio che aveva fatto il prof.) Di cui il nome del programma debba essere Program: ORDINAMENTO Uses: wincrt; VAR: I,K: integer; B:real; A: array [1..5]of real; begin clrscr; for I = 1 to 5 do begin Write (‘ inserisci_’, _’ o_ numero:!) Read in (A [I]);
___________________________________
Il demone è arrivato... Starcraft Player MDO Power |
27-01-2002, 17.28.49 | #2 |
Junior Member
Registrato: 10-06-2001
Loc.: Mugello, Paese del Pacciani e Giotto e Beato Angelico
Messaggi: 180
|
Chi mi può dare una mano Col Turbo Pascal
Per tutti quelli che sanno il Turbo Pascal
Gentili programmatori e non Mi dovreste fare un favore entro stasera 27-01.-02, sono uno studente che e ai primi passi con il Turbo Pascal e ci capisco quasi niente. Mi dovreste fare: Una struttura di un programma Pascal che ordini i numeri 5 numeri anche negativi da noi immessi con l’algoritmo per immissione dei numeri. Gli algoritmi ve li lascio in .jpg in allegato Praticamente mi dovreste fare questa parte qui: Immagine in allegato “struttura.jpg” Prima vi mando gli algoritmi e dopo in un messaggio con scritto struttura l'altro allegato (non so questo era l’inizio che aveva fatto il prof.) Di cui il nome del programma debba essere Program: ORDINAMENTO Uses: wincrt; VAR: I,K: integer; B:real; A: array [1..5]of real; begin clrscr; for I = 1 to 5 do begin Write (‘ inserisci_’, _’ o_ numero:!) Read in (A [I]);
___________________________________
Il demone è arrivato... Starcraft Player MDO Power |
27-01-2002, 17.31.07 | #3 |
Junior Member
Registrato: 10-06-2001
Loc.: Mugello, Paese del Pacciani e Giotto e Beato Angelico
Messaggi: 180
|
Struttura
ecco l'altro allegato
___________________________________
Il demone è arrivato... Starcraft Player MDO Power |
27-01-2002, 21.13.34 | #4 |
Gold Member
WT Expert
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
|
Spero di essere ancora in tempo...
PROGRAM Ordinamento; Var c:ARRAY[0..100] OF INTEGER; n,i,k,chiave:INTEGER; BEGIN Writeln('Introdurre il numero dei dati '); Read(n) Writeln('Introdurre ',n,' valori'); FOR i:=1 to n DO Read(c[i]); c[0]:=-maxint; {Criterio di arresto con il valore minimo} FOR I:=1 TO n-1 DO Begin chiave:=c[i+1]; k:=i; WHILE chiave<c[k] DO Begin c[k+1]:=c[k]; k:=k-1; End; c[k+1]:=chiave; End; FOR i:=1 TO n DO Write(c[i],' '); Writeln; END. Prova questo listato. Se non ci capisci niente di PASCAL, ricordati che anche io avevo i tuoi stessi problemi ma li ho risolti con pazienza e tanta, TANTISSIMA pratica Ciao |
27-01-2002, 22.30.41 | #5 |
Gold Member
Top Poster
Registrato: 07-04-2000
Loc.: Padova-Vicenza
Messaggi: 4.814
|
x giacnicola
Per cortesia, quando devi aggiungere roba (in questo caso gli allegati) clicca su rispondi ed aggiungi allo stesso thread, altrimenti si crea confusione. Ne hai invece creati 3, che io ho unito per chiarezza.
___________________________________
Con il PC risolvo molti problemi che prima non avevo. - Coltiva Linux che Windows si pianta da solo! |
28-01-2002, 01.22.36 | #6 |
Junior Member
Registrato: 10-06-2001
Loc.: Mugello, Paese del Pacciani e Giotto e Beato Angelico
Messaggi: 180
|
Grazie mille LoryOne
Domani ho il compito in classe questo mi serviva da far schifo.
Sei un grande, anzi grandissimo. Ti ringrazio con tuto il cuore e spero di diventare bravo come te!!!!!!!!!!!!!!!!!!!!!!
___________________________________
Il demone è arrivato... Starcraft Player MDO Power |
Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti) | |
Strumenti discussione | |
|
|