Manhã (Turmas A1 e A2)
Segundas-feiras/quartas-feiras: 07:30 às 09:10 hs.
Locais: Sala 1025 - Prédio do ICEx
Lab 1009 e 1010 - Prédio do ICEx
Tarde (Turma N1)
Segunda-feiras/quartas-feiras: 14:55 às 16:35 hs.
Locais: Sala 1019 - Prédio do Icex
Labs 1009 e 1010 - Prédio do ICEx
Boa noite Leticia, achei que a entrega fosse ate a meia noite por isso náo consegui enviar o programa pelo moodle.
ResponderExcluirGostaria que se possivel o codigo fosse avaliado.
Grato.
Rogerio Kind
program rogeriokindareiamovedica;
var
v1 : array[1..12] of string;
v2 : array[1..12] of real;
profundidade : real;
i : integer;
begin
v1[1]:='Agua';
v1[2]:='Areia movediça';
v1[3]:='Alcool Etilico';
v1[4]:='Glicerina';
v1[5]:='Leite integral';
v1[6]:='Agua do mar';
v1[7]:='Vinho';
v1[8]:='Cerveja';
v1[9]:='Azeite';
v1[10]:='Oleo de oliva';
v1[11]:='Oleo de linhaca';
v1[12]:='Iodo';
v2[1]:=1;
v2[2]:=2;
v2[3]:=0.81;
v2[4]:=1.261;
v2[5]:=1.023;
v2[6]:=1.022;
v2[7]:=0.99;
v2[8]:=0.789;
v2[9]:=0.8;
v2[10]:=0.92;
v2[11]:=0.94;
v2[12]:=4.93;
writeln('Digite a prufundidade');
readln(profundidade);
for i:=1 to 12 do
begin
writeln('meio','pressão');
writeln(v1[i],v2[i]*profundidade);
end;
end.