programa pra carregear duas matrizes e achar o maior [Pascal/Kylix]

programa pra carregear duas matrizes e achar o maior

Publicado por NewLinuxer 13/12/2005

[ Hits: 6.704 ]

Download exerc08.pas

0 0

Denuncie Favoritos Indicar

este programam carrega duas matrizes e encontra o maior numero das duas, porem tem alguns erros, só funciona pra uma matriz, talvez alguem pudesse corrigir

Esconder código-fonte

PROGRAM EXERCICIO8;

USES CRT;

VAR
  MATRIZ: ARRAY[1..3,1..2] OF INTEGER;
  LINHA, COLUNA, MAIOR: INTEGER;

BEGIN
  CLRSCR;

    FOR LINHA:=1 TO 3 DO
      FOR COLUNA:=1 TO 2 DO
      BEGIN
        WRITE('DIGITE O NUMERO DA LINHA ',LINHA,', COLUNA ',COLUNA,': ');
        READLN(MATRIZ[LINHA,COLUNA]);
      END;

  WRITELN;

  MAIOR := MATRIZ[1,1];

  FOR LINHA:= 1 TO 3 DO
    FOR COLUNA:= 1 TO 2 DO
    IF MAIOR < MATRIZ[LINHA,COLUNA] THEN
      MAIOR := MATRIZ[LINHA,COLUNA];

  WRITELN('O MAIOR NUMERO DA MATRIZ : ',MAIOR);
  FOR LINHA:= 1 TO 3 DO
    FOR COLUNA:= 1 TO 2 DO
      IF MAIOR = MATRIZ[LINHA,COLUNA] THEN
        WRITELN('NA POSI€ÇO: ',LINHA,' X ',COLUNA);

  READKEY;

END.

Scripts recomendados

Matriz simétrica

Matrizes

Cronômetro feito no Lazarus(Delphi 7 para Linux)

Gerador de senha Pascal/Lazarus

calculo de vendas

Comentários

Nenhum comentário foi encontrado.