Sou aluno de ciencias da computação e vou participar de uma apresentaçao de linguagens de programaçao na minha faculdade e achei muito interessante java e jsp eu preciso apresentar alguns exercicios de java web eu ja fiz todos em pascal se for possivel gostaria que alguem me mostrasse este codigo em java pra mim poder tentar fazer os outros exercicios desde ja agradeço a atenção
[program Pesquisa;
uses crt;
const Max = 20; { numero maximo de entrevistados }
type RgPessoa = record
Sexo: char; { 1- masculino e 2- feminino }
Resp: char; { Resposta: 1- Sim e 2- Nao }
end;
var n, i, CtSim, CtNao, SimFem: integer;
CtFem, CtMas, NaoMas: integer;
PCemFem, PCemMas: real;
Continuar: Char;
Pessoa: array[1…Max] of RgPessoa;
begin
{ Alimentando o conjunto de valores: Sexo e Resposta. }
n := 0;
repeat
n := n + 1;
clrscr;
writeln(‘Pessoa no. ‘, n:2);
writeln(’-------------’);
repeat
write('Informe o sexo (1/2)…: ');
readln(Pessoa[n].Sexo);
until Pessoa[n].Sexo in [‘m’, ‘1’, ‘f’, ‘2’];
repeat
write('Informe a resposta (1/2)…: ');
readln(Pessoa[n].Resp);
until Pessoa[n].Resp in [‘s’, ‘1’, ‘n’, ‘2’];
writeln;
repeat
write('Continuar (s/n).: ');
readln(Continuar);
until Continuar in [‘1’, ‘s’, ‘2’, ‘n’];
until (n = Max) or (Continuar in [‘2’, ‘n’]);
{ inicializa as variaveis antes do inicio do processamento }
CtSim := 0; CtMas := 0; SimFem := 0;
CtNao := 0; CtFem := 0; NaoMas := 0;
for i := 1 to n do
begin
if Pessoa[i].Resp in [‘1’, ‘s’]
then inc(CtSim)
else inc(CtNao);
if Pessoa[i].Sexo in [‘2’, ‘f’]
then begin
inc(CtFem);
if Pessoa[i].Resp in [‘1’, ‘s’]
then inc(SimFem);
end
else begin
inc(CtMas);
if Pessoa[i].Resp in [‘2’, ‘n’]
then inc(NaoMas);
end;
end;
{ exibe (ou imprime) os resultados }
clrscr;
writeln('Quantidade de Respostas SIM : ', CtSim:3);
writeln(‘Quantidade de Respostas NAO : ‘, CtNao:3);
writeln;
writeln(’…Sexo… …%…’);
PCemFem := (CtFem / n) * 100;
writeln(‘Feminino. ‘, PCemFem:6:2);
PCemMas := (CtMas / n) * 100;
writeln(‘Masculino ‘, PCemMas:6:2);
writeln;
if CtFem = 0
then PCemFem := 0
else PCemFem := (SimFem / CtFem) * 100;
writeln(PCemFem:6:2,’% das mulheres responderam sim.’);
if CtMas = 0
then PCemMas := 0
else PCemMas := (NaoMas / CtMas) * 100;
writeln(PCemMas:6:2,’% dos homens responderam nao.’);
writeln;
write(‘Pressione [Enter] para prosseguir.’);
readln;
end.
]