Scarica "Fondamenti di Informatica 1:appunti" gratis
Domenica, Giugno 8th, 2008In breve, Merge sort tra file. Codifica in Pascal(formato word 3 pg) Scarica gratis
Anteprima dell’appunto Esercitazione quattordicesima Esercitazione quattordicesima In questa esercitazione è presentata la codifica in Pascal di un programma che, ricevuti in ingresso due array di interi già parzialmente ordinati, li memorizzi in due file ed operi il merge sort restituendo un array ordinato. Programma MergeSort tra file (XIV) Program Mergesort_file ;uses crt ;const max = 4 ;const maxmerge = 9 ;var vettfirst : file of integer ; var vettsecond : file of integer ;var vettmerge : file of integer ;var first : array[ 1..max ] of integer ; var second : array[ 1..max ] of integer ; var final : array[ 1..maxmerge ] of integer ; var a, b, c, d, i, j : integer ; procedure mergesort ;beginreset ( vettfirst ) ; { porta il puntatore del file in prima posizione }reset ( vettsecond ) ;i:=1 ; { inizializzazione dei contatori } j:=1 ; a:=1 ;read ( vettfirst , first [ i ] ) ;read ( vettsecond , second [ j ] ) ;repeat if first [ i ] >