Exercício 08 Matriz - Pascal

8) Inicialmente leia uma matriz de 2 linhas e 5 colunas que armazenará o horário das aulas correspondente a uma semana. Após o preenchimento desta leia dois números inteiros que corresponderá o dia da semana e a aula e, com estes dois dados, imprima a disciplina solicitada. Finalize o algoritmo quando digitar o dia igual a zero. Utilize como exemplo a matriz fornecida abaixo.

Program matriz08;
var
M:array[1..2,1..5] of string;
i,j:integer;
Begin
M[1,1]:='Calc 2   ';    
M[1,2]:='Fisica   ';
M[1,3]:='Calc 2   ';
M[1,4]:='Filosofia';
M[1,5]:='Program 1';
M[2,1]:='Mat Dis  ';
M[2,2]:='Program 1';
M[2,3]:='Fisica   ';
M[2,4]:='Calc 2   ';
M[2,5]:='Filosofia';
j:=1;
 while (j<>0) do
    Begin
        Write('Informe o Dia 1-5: ');
        readln(j);        
        Write('Informe o Horario 1-2: ');
        readln(i);
        Writeln('Disciplina: ',M[i,j]);
        Write('Digite [ 0 ] para sair ou [ 1 ] pr continuar: ');
        readln(j)
    End;            
End.

Categories: Pascal , Programação