programa pra carregear duas matrizes e achar o maior

Publicado por NewLinuxer 13/12/2005

[ Hits: 6.429 ]

Download exerc08.pas




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

Calculadora básica em Pascal

encontrar o menor valor em um vetor

Média e soma de números

Coleta de dados de alunos em Pascal

diferença entre o maior e o menor numero


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts