Introdução a computação:Algoritimos

Exercício 3.1
program media_idade;uses crt;var idade, soma_idade,cont : integer;beginsoma_idade := 0;cont := 0; writeln('Digite a idade: '); readln(idade); soma_idade := soma_idade +idade; while (idade <> 0) do begin writeln('Digite a idade: '); readln(idade); cont := cont +1; soma_idade := soma_idade + idade; end; writeln('A soma das idades e '); write( soma_idade); writeln(' A media das idades e '); write( soma_idade/cont); readln;end.






















Exercício 3.2

Exercício 3.2


uses crt;
var cont, cont_f, cont_m : integer;
sexo : char;
alt, maior_alt, menor_alt, soma_alt_fem : real;
begin
maior_alt := 0;
menor_alt := 200;
cont_f := 0;
cont_m := 0;


for cont := 1 to 50 do
begin
writeln('Digite o sexo da ',cont, ' ¦ pessoa: m - masculino / f - feminino:');
readln(sexo);
if (sexo = 'f') then
cont_f := cont_f + 1;
if (sexo = 'm') then
cont_m := cont_m + 1;

writeln('Digite a altura da ',cont, ' pessoa: ');
readln(alt);
if (sexo = 'f') then
soma_alt_fem := soma_alt_fem + alt;
if (alt > maior_alt) then
maior_alt := alt;
if (alt < menor_alt) then
menor_alt := alt;

end;
writeln('A maior altura e : ',maior_alt);
writeln('A menor altura e : ',menor_alt);
writeln('A media da altura das mulheres e : ',soma_alt_fem/cont_f);
writeln('O numero de homens e : ',cont_m);
readln;
end.










3.3 Exercício de fazer uma lista de de 50 até 150 farenheit .....

uses crt;
var temp : integer;
begin
writeln('Conversao de Graus Celcius para Farenheit');
for temp := 50 to 150 do
begin
writeln(temp, ' graus Farenheit equivalem a ');
write((5/9)*(temp-32), 'Graus Celcius.');
readln();
end;
readln;
end.
infelizmente não tenho o enunciado do trabalho mas ja da para ter uma noção sobre os algoritimos feitos.
estes algoritimos foram feitos pelo meu Primo Euller Britto (todos os creditos para ele)