programa pra carregear duas matrizes e achar o maior
Publicado por NewLinuxer 13/12/2005
[ Hits: 6.342 ]
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
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.
Coleta de dados de alunos em Pascal
Calculadora Completa feita no Lazarus(Delphi 7 para Linux)
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
Problemas para conectar à rede no Linux Mint (10)
Clamav e suas atualizações (15)
Desenvolvimento de um driver (10)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba