lista3-gabarito-9-16

Prévia do material em texto

Gabarito da Lista 3
Program Lista3_9_PG;
Var N, a, q, cont: integer;
Begin
 writeln('Digite o primeiro termo da PG: ');
 readln(a);
 writeln('Digite a razao da PG: ');
 readln(q);
 writeln('Digite quantos termos deseja: ');
 readln(N);
 writeln;
 writeln('Os ',N,' termos da PG de primeiro elemento = ',a,' e razao = ',q,' sao: ');
 cont:= 0;
 While cont < N do
 begin
 writeln(a);
 cont:= cont+1;
 a:= a*q;
 end;
 readln;
End.
Program Lista3_10_Multplos;
Var N, M, cont: integer;
Begin
 writeln('Este programa imprime os N primeiros numeros multplos de M.');
 write('Digite um valor para N: ');
 readln(N);
 write('Digite um valor para M: ');
 readln(M);
 For cont:= 1 to N do
 writeln(cont*M);
 readln;
End.
Program Lista3_11_Atletas;
Const N = 75; // defne N como sendo uma constante que vale 75 durante todo o programa
Var idade, cont, cont1, cont2: integer;
 altura, peso, soma: real;
Begin
 cont1:= 0; cont2:= 0; soma:= 0;
 For cont:= 1 to N do
 begin
 write('Digite a idade: ');
 readln(idade);
 write('Digite a altura: ');
 readln(altura);
 write('Digite o peso: ');
1
Gabarito da Lista 3
 readln(peso);
 writeln; // muda de linha
 soma:= soma + peso;
 if idade < 24
 then inc(cont1);
 if altura > 1.80
 then inc(cont2);
 end;
 writeln('Peso medio = ',soma/N:0:3,'kg.');
 writeln('Porcentagem de atletas com idade abaixo de 24 anos = ',cont1/N*100:0:0,'%.');
 writeln(cont2,' atletas possuem altura superior a 1,80 m.');
 readln;
End. 
Program Lista3_12_Impares;
Var n, cont, cont: integer;
Begin
 cont:=0; cont:=0;
 write('Digite um numero inteiro: ');
 Readln(n);
 While n <> 0 do
 begin
 if n mod 2 <> 0
 then inc(cont);
 inc(cont);
 write('Digite um numero inteiro ou 0 para terminar : ');
 readln(n);
 end;
 writeln;
 writeln('Porcentagem de numeros impares digitados = ',cont/cont*100:0:1,'%.');
 readln;
End. 
 
Program Lista3_13_Entrevista;
Var cont, contn, cont, idade, maiorid, somaid: integer;
 resp, respvelho, sexo: string;
Begin
 cont:=0; contn:=0; cont:=0; maiorid:=0; somaid:=0;
 write('Digite a resposta (sim/nao): ');
 readln(resp);
 While (resp <> 'fm') and (resp <> 'FIM') do
 begin
 write('Digite o sexo: ');
 readln(sexo);
 write('Digite a idade: ');
 readln(idade);
 writeln;
 cont:=cont+1;
2
Gabarito da Lista 3
 if (resp = 'nao') or (resp = 'NAO')
 then contn:=contn+1;
 if (sexo = 'feminino') or (sexo = 'FEMININO')
 then cont:=cont+1;
 if (sexo = 'masculino') or (sexo = 'MASCULINO')
 then somaid:= somaid + idade;
 if idade > maiorid
 then begin
 maiorid:= idade;
 respvelho:= resp;
 end;
 write('Digite a resposta (sim/nao) ou fm para terminar: ');
 readln(resp);
 end;
 writeln;
 writeln('Numero total de entrevistados = ',cont);
 writeln('Porcentagem de entrevistados que responderam NAO = ',contn*100/cont:0:1,'%');
 writeln(cont,' entrevistados sao do sexo feminino.');
 writeln('Idade media dos entrevistados do sexo masculino = ',somaid/(cont-cont):0:0,' anos.');
 writeln('Maior idade = ',maiorid,' do entrevistado cuja resposta foi ',respvelho);
 readln;
End.
 
Program Lista3_14_Salarios;
Var cont, contm, cont4: integer;
 salario, somam, somaf: real;
 sexo: string;
Begin
 cont:=0; contm:=0; cont4:=0; somam:=0; somaf:=0;
 write('Digite o salario: R$');
 readln(salario);
 While salario <> 0 do
 begin
 write('Digite o sexo: ');
 readln(sexo);
 inc(cont);
 if (sexo = 'masculino') or (sexo = 'MASCULINO')
 then begin
 inc(contm);
 somam:= somam + salario;
 end
 else begin
 somaf:= somaf + salario;
 if salario > 4000.00
 then inc(cont4);
 end;
 write('Digite o salario ou 0 para terminar: R$');
 readln(salario);
3
Gabarito da Lista 3
 end;
 writeln;
 writeln('Porcentagem de homens: ',contm/cont*100:0:1,'%');
 writeln('Numero de mulheres com salario superior a R$4.000,00 = ',cont4);
 if somam/contm > somaf/(cont-contm)
 then writeln('O salario medio dos homens eh maior do que o salario medio das mulheres.')
 else writeln('O salario medio dos homens nao eh maior do que o salario medio das mulheres.');
 readln;
End.
Program Lista3_15_Divisores;
Var N, x: integer;
Begin
 writeln('Digite um numero inteiro positvo: ');
 readln(N);
 writeln;
 writeln('Os divisores positvos de ',N,' sao: ');
 For x:= 1 to N do
 if N mod x = 0
 then writeln(x);
 readln;
End.
Program Lista3_16_MDC;
Var x, y, z, r: integer;
Begin
 writeln('Digite 2 numeros entre os quais deseja encontrar o Maximo Divisor Comum.');
 readln(x,y);
 if y > x
 then begin
 z:= x;
 x:= y;
 y:= z;
 end;
 r:= x mod y;
 While r <> 0 do
 begin
 x:= y;
 y:= r;
 r:= x mod y;
 end;
 writeln;
 writeln('MDC = ',y);
 readln;
End.
 
4