Trabalho - algoritmos (procedimento e função)
408 palavras
2 páginas
1) Program Pzim ;const max = 20;
var vet: array [1..max] of integer; valor, posi, posiexibir, op: integer; sn: char;
procedure inicia; var cont: integer;
begin
for cont:= 1 to max do
begin
vet[cont]:= 1;
end;
end;
procedure altera (valor: integer);
begin
vet[posi]:= valor;
end;
procedure exibe_valor (valor: integer);
begin
vet[posi]:= valor; write (vet[posi]);
end;
procedure exibe_tudo; var cont: integer;
begin
for cont:= 1 to max do
begin
writeln (vet[cont]);
end;
end;
procedure exibir_6; var cont: integer;
begin
for cont:= 1 to max do;
begin
if (vet[cont] > 6) then writeln (vet[cont]);
end;
end;
procedure exibir_media; var cont: integer; media: real;
begin
for cont:= 1 to max do
begin
media:= (media + cont) / 2; write ('media: ',media);
end;
end;
Begin
writeln ('1.alterar'); writeln ('2.exibir'); writeln ('3.exibir todos'); writeln ('4.exibir valores maiores que 6'); writeln ('5.exibir media');
repeat
writeln ('escolha uma opção: '); readln (op);
inicia;
case op of
1: begin write ('digite o valor: '); readln (valor); write ('escolha a posição: '); readln (posi);
altera (valor);
end;
2: begin write ('escolha a posição que deseja exibir: '); readln (posiexibir);
exibe_valor (posiexibir); end;
3: exibe_tudo;
4: exibir_6;
5: exibir_media;
end;
write ('deseja continuar: '); readln (sn);
until (sn = 'n');
End.
2) Program Pzim ;
var vel,disp,tem: real;
function distancia (vm,t,s: real):real; var totpeco, totdis: real;
begin
totpeco:= (vm * t); totdis:= (s - totpeco); writeln ('Faltam pecorrer (KM): ',totdis);
end;
Begin
write ('velocidade media: