programa pra carregear duas matrizes e achar o maior
Publicado por NewLinuxer 13/12/2005
[ Hits: 6.340 ]
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
Transformação entre as escalas térmicas Kelvin, Fahrenheit e Celcius
Existência de triângulo, em Pascal
Nenhum comentário foi encontrado.
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
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Não consigo acessar os modos de desempenho no mint 2.3 (7)
Gentoo bane contribuições de código feitas com IA (6)
[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