Baixar para ler offline
![PROGRAM saltos;
Uses CRT;
VAR
i, j, vencedor : INTEGER;
marcas: ARRAY [1..3, 1..4] OF REAL;
maximo: REAL;
BEGIN
CLRSCR;
FOR j:= 1 TO 4 DO
BEGIN
WRITELN ('Ensaio Nº',j)
FOR i:= 1 TO 3 DO
BEGIN
WRITE ('Registar a marca do atleta Nº', i);
READLN (MARCAS[i,j])
END
END;
maximo := 0;
FOR i:= 1 TO 3 DO
FOR j := 1 TO 4 DO
IF (marcas[i,j] > maximo) THEN
BEGIN
maximo := marcas [i,j];
vencedor := i
END
WRITELN ('O vencedor foi o atleta Nº', vencedor);
WRITELN ('Alcançou a marca de', maximo:2:2, ' metros');
READLN
END.](https://image.slidesharecdn.com/saltos-141119094345-conversion-gate02/75/Saltos-pas-1-2048.jpg)
FC
Carregado porFatima Campos
TXT, PDF162 visualizações
Saltos.pas
O programa registra as marcas de 3 atletas em 4 ensaios diferentes, calcula a maior marca alcançada e identifica o atleta vencedor. Ele limpa a tela, registra as marcas de cada atleta em cada ensaio lido do teclado, encontra a maior marca em toda a matriz e mostra o número do atleta vencedor e sua marca máxima.
Mais conteúdo relacionado
Destaque
Mais de Fatima Campos
Último
Saltos.pas
- 1. PROGRAM saltos; UsesCRT; VAR i, j, vencedor : INTEGER; marcas: ARRAY [1..3, 1..4] OF REAL; maximo: REAL; BEGIN CLRSCR; FOR j:= 1 TO 4 DO BEGIN WRITELN ('Ensaio Nº',j) FOR i:= 1 TO 3 DO BEGIN WRITE ('Registar a marca do atleta Nº', i); READLN (MARCAS[i,j]) END END; maximo := 0; FOR i:= 1 TO 3 DO FOR j := 1 TO 4 DO IF (marcas[i,j] > maximo) THEN BEGIN maximo := marcas [i,j]; vencedor := i END WRITELN ('O vencedor foi o atleta Nº', vencedor); WRITELN ('Alcançou a marca de', maximo:2:2, ' metros'); READLN END.