maior elemento de uma matriz

Publicado por NewLinuxer 13/12/2005

[ Hits: 9.117 ]

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

Calculadora Completa feita no Lazarus(Delphi 7 para Linux)

Coleta de dados de alunos em Pascal

Jogo Sudoku em Pascal

cadastro de multiplos clientes com registro

Criptografador(Conceito criptografia)Lazarus


  

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