Telefonino.net network
 
| 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 » |

Torna indietro   WinTricks Forum > Software > Programmazione

Notices

Rispondi
 
Strumenti discussione
Vecchio 27-01-2002, 17.21.59   #1
giacnicola
Junior Member
 
L'avatar di giacnicola
 
Registrato: 10-06-2001
Loc.: Mugello, Paese del Pacciani e Giotto e Beato Angelico
Messaggi: 180
giacnicola promette bene
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
giacnicola non è collegato   Rispondi citando
Vecchio 27-01-2002, 17.28.49   #2
giacnicola
Junior Member
 
L'avatar di giacnicola
 
Registrato: 10-06-2001
Loc.: Mugello, Paese del Pacciani e Giotto e Beato Angelico
Messaggi: 180
giacnicola promette bene
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
giacnicola non è collegato   Rispondi citando
Vecchio 27-01-2002, 17.31.07   #3
giacnicola
Junior Member
 
L'avatar di giacnicola
 
Registrato: 10-06-2001
Loc.: Mugello, Paese del Pacciani e Giotto e Beato Angelico
Messaggi: 180
giacnicola promette bene
Struttura

ecco l'altro allegato
___________________________________

Il demone è arrivato...
Starcraft Player MDO Power
giacnicola non è collegato   Rispondi citando
Vecchio 27-01-2002, 21.13.34   #4
LoryOne
Gold Member
WT Expert
 
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
LoryOne è un gioiello raroLoryOne è un gioiello raroLoryOne è un gioiello raro
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
LoryOne non è collegato   Rispondi citando
Vecchio 27-01-2002, 22.30.41   #5
Sergio Neddi
Gold Member
Top Poster
 
L'avatar di Sergio Neddi
 
Registrato: 07-04-2000
Loc.: Padova-Vicenza
Messaggi: 4.814
Sergio Neddi promette bene
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!
Sergio Neddi non è collegato   Rispondi citando
Vecchio 28-01-2002, 01.22.36   #6
giacnicola
Junior Member
 
L'avatar di giacnicola
 
Registrato: 10-06-2001
Loc.: Mugello, Paese del Pacciani e Giotto e Beato Angelico
Messaggi: 180
giacnicola promette bene
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
giacnicola non è collegato   Rispondi citando
Rispondi


Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti)
 
Strumenti discussione

Regole di scrittura
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is ON
Gli smilies sono ON
[IMG] è ON
Il codice HTML è OFF

Vai al forum

Orario GMT +2. Ora sono le: 21.06.42.


E' vietata la riproduzione, anche solo in parte, di contenuti e grafica.
Copyright © 1999-2017 Edizioni Master S.p.A. p.iva: 02105820787 • Tutti i diritti sono riservati
L'editore NON si assume nessuna responsabilità dei contenuti pubblicati sul forum in quanto redatti direttamente dagli utenti.
Questi ultimi sono responsabili dei contenuti da loro riportati nelle discussioni del forum
Powered by vBulletin - 2010 Copyright © Jelsoft Enterprises Limited.