maior elemento de uma matriz

Publicado por NewLinuxer 13/12/2005

[ Hits: 9.103 ]

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

Coleta de dados de alunos em Pascal

equação de 2º grau

Array de números aleatórios não-repetidos de um intervalo em Pascal

Registro

controle de locadora


  

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