maior elemento de uma matriz

Publicado por NewLinuxer 13/12/2005

[ Hits: 9.097 ]

Download exerc03.pas




programa pra carregar uma matriz 3x3 e mostrar seu maior elemento

  



Esconder código-fonte

PROGRAM EXERCICIO3;

USES CRT;

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


BEGIN
  CLRSCR;

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

      IF ((LINHA=1) AND (COLUNA=1)) OR
         ((LINHA<>1) AND (MAIOR<MATRIZ[LINHA,COLUNA])) THEN
        MAIOR:= MATRIZ[LINHA,COLUNA];

    END;

  WRITELN;

  WRITELN('O MAIOR VALOR INFORMADO FOI: ',MAIOR);

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

READKEY;

END.

Scripts recomendados

Número primo

cadastro de um cliente com registro

Extenso em dll, com parâmetros adicionais

encontrar o maior e o menor valor em um vetor

Existência de triângulo, em Pascal


  

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