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.677 ]

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

cadastro de um cliente com registro

Extenso em dll, com parâmetros adicionais

Função Fatorial Recursiva em Ada 95

Gerador de Senha no Lazarus

Script que verifica se um número é primo ou não

Comentários

Nenhum comentário foi encontrado.