Advertisement
Denny707

Untitled

May 11th, 2017
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 1.75 KB | None | 0 0
  1. procedure Quantita_Ipod(in:N,M,Ipod_Negozio,Ipod_Magazzino;     out:Ipod_Totale)
  2.     var M,N,i_totale: integer
  3.     var Ipod_Negozio:   array(1..M,1..2) of integer
  4.     var Ipod_Magazzino: array(1..N,1..2) of integer
  5.     var Ipod_Totale:    array(1..M+N,1..2) of integer
  6. begin
  7.     while(i<M && j<N) do
  8.         if(Ipod_Negozio[i][1]==Ipod_Magazzino[j][1]) then
  9.             Ipod_Totale[i_totale][0]:=Ipod_Magazzino[j][0]+Ipod_Negozio[i][0]
  10.             Ipod_Totale[i_totale][1]:=Ipod_Magazzino[j][1]
  11.             i:=i+1
  12.             j:=j+1
  13.         else if(Ipod_Magazzino[j][1]<Ipod_Negozio[i][1]) then
  14.             Ipod_Totale[i_totale][0]:=Ipod_Magazzino[j][0]
  15.             Ipod_Totale[i_totale][1]:=Ipod_Magazzino[j][1]
  16.             j:=j+1
  17.         else
  18.             Ipod_Totale[i_totale][0]:=Ipod_Negozio[j][0]
  19.             Ipod_Totale[i_totale][1]:=Ipod_Negozio[j][1]
  20.             i:=i+1
  21.         endif
  22.         i_totale:=i_totale+1
  23.     end while
  24.    
  25.     while(i<M) do
  26.         Ipod_Totale[i_totale][0]:=Ipod_Negozio[j][0]
  27.         Ipod_Totale[i_totale][1]:=Ipod_Negozio[j][1]
  28.         i:=i+1
  29.     end while
  30.    
  31.     while(j<N) do
  32.         Ipod_Totale[i_totale][0]:=Ipod_Magazzino[j][0]
  33.         Ipod_Totale[i_totale][1]:=Ipod_Magazzino[j][1]
  34.         j:=j+1
  35.     end while
  36. end
  37.  
  38. program esercizio_3
  39.     var M,N: integer
  40.     var Ipod_Negozio:   array(1..M,1..2) of integer
  41.     var Ipod_Magazzino: array(1..N,1..2) of integer
  42.     var Ipod_Totale:    array(1..M+N,1..2) of integer
  43. begin
  44.     read M,N
  45.     for i:=0,M do
  46.         read Ipod_Negozio[i][0]
  47.         read Ipod_Negozio[i][1]
  48.     endfor
  49.     for i:=0,N do
  50.         read Ipod_Negozio[i][0]
  51.         read Ipod_Negozio[i][1]
  52.     endfor
  53.    
  54.     Quantita_Ipod(N,M,Ipod_Negozio,Ipod_Magazzino,Ipod_Totale)
  55.    
  56.     for i:=0,N+M do
  57.         read Ipod_Totale[i][0]
  58.         read Ipod_Totale[i][1]
  59.     endfor
  60. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement