programa pra carregear duas matrizes e achar o maior

Publicado por NewLinuxer 13/12/2005

[ Hits: 6.433 ]

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

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

Fibonacci (Pascal)

Achar o maior e o menor valor inserido pelo usuario

Mcd de una serie de numeros

pares ou impares


  

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