Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program p3;
- const max = 20000;
- max1 = 3;
- type matriz = array [1..max,1..max1] of integer;
- var i, k, d, m, a, num_d, num,n, num_data, max2 : integer;
- m12, m1, mfinal : matriz;
- procedure ler_data(var dia, mes, ano: integer; var m1 : matriz; n : integer);
- var j,i : integer;
- begin k:=2;
- i:=1;
- while i <= n do
- begin
- j:=1;
- read(dia);
- if (d >= 1) and (d <= 31) then
- begin
- m1[i,j]:=d;
- read(mes);
- if (m >= 1) and (m <= 12) then
- begin
- m1[i,j+1]:=m;
- read(a);
- if (a > 0) and (a <= 2018) then
- begin
- m1[i,j+2]:=a;
- end
- else
- write('voce digitou um numero invalido')
- end
- else
- write('voce digitou um numero invalido')
- end
- else
- write('voce digitou um numero invalido');
- i:=i+1;
- end;
- end;
- procedure imprimir_matriz(var m1 : matriz; n :integer);
- var i,j : integer;
- begin
- for i:=1 to n do
- for j:=1 to 3 do
- begin
- write(m1[i,j],' ');
- if j = 3 then
- begin
- writeln
- end;
- end;
- writeln('');
- end;
- (*procedure organizar_data(var m1 : matriz; n : integer)
- var i,j, indice_menor : integer;
- begin
- i:=1;
- j:=1;
- while j = n do
- begin
- menor_ano:= m1[j,3];
- if (menor_ano > m1[i+1,3]) and (m1[i,3]> )then
- begin
- auxiliar_a:= m1[j,3];
- auxiliar_m:= m1[j,2];
- auxiliar_d:= m1[j,1];
- menor_ano:=m1[1,3];
- indice_menor := i;
- end
- else
- indice_menor:=i;
- m1[indice_menor,1]
- i:=i+1;
- j:= j+1;
- end;
- m1[indice_menor,j]:= mfinal ;
- end;
- *)
- procedure organizar_data(var m1 : matriz; n : integer);
- var i,j, menor_ano,auxiliar_m,auxiliar_a, auxiliar_d : integer;
- begin
- j:=1;
- menor_ano:=m1[1,3];
- while j <> n do
- begin
- if (menor_ano > m1[j+1,3]) then
- begin
- auxiliar_a:= m1[j,3];
- auxiliar_m:= m1[j,2];
- auxiliar_d:= m1[j,1];
- m1[1,3]:=m1[j+1,3];
- m1[1,2]:=m1[j+1,2];
- m1[1,1]:=m1[j+1,1];
- m1[j+1,3]:=auxiliar_a;
- m1[j+1,2]:=auxiliar_m;
- m1[j+1,1]:=auxiliar_d;
- menor_ano:=m1[1,3];
- end;
- k:=k+1;
- j:= j+1;
- end;
- end;
- begin
- read(n);
- max2:=max1;
- ler_data(d,m,a, m1,n);
- organizar_data(m1, n);
- imprimir_matriz(m1, n);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement