Por quê não consigo iniciar meu programa com "2"?
Ta ai.
Uma certa firma fez uma pesquisa de mercado para saber se as pessoas gostaram ou não de um novo produto lançado. Para isso forneceu o sexo do entrevistado e sua resposta (sim ou não). Sabendo que foram entrevistadas 10 pessoas, faça um algoritmo que calcule e imprima:
a) O número de pessoas que responderam sim;
O número de pessoas que responderam não;
c) O número de mulheres que responderam sim;
d) A % de homens que responderam não entre todos os homens analisados;
program oo;uses wincrt;varSexo,z:longint;x,y,Resposta, NumeroSim, NumeroNao,respm,respf: integer;Total,total2: real;beginx:=0;y:=0;z:=0;repeatwrite('Informe o sexo do entrevistado indicando 1 para Masculino e 2 para Feminino: ');readln(Sexo);write('O entrevistado gostou do produto? Informe 1 para SIM e 2 para NAO: ');readln(Resposta);if (sexo = 1) then beginrespm:= respm + 1endelse if (sexo = 2) then beginrespf:= respf + 1;end;if Resposta = 1 then beginNumeroSim:= NumeroSim + 1endelseNumeroNao:= NumeroNao + 1;if (sexo=2) and (resposta=1) then beginy:= y + 1;z:= z +0;endelse if (sexo=1) and (resposta=2) then beginy:= y + 0;z:= z +1;endelse if (sexo=1) and (resposta=1) then beginy:= y + 0;z:= z + 0;endelse if (sexo=2) and (resposta=2) then beginy:= y + 0;z:= z + 0;end;total:= 100 div respm;total2:= total * z;x:= x + 1;until x = 10;writeln();writeln('O numero de entrevistados que respondeu SIM é:',NumeroSim);writeln('O numero de entrevistados que respondeu NAO é:',NumeroNao);writeln('o numero de mulheres que votaram sim é:',y);writeln('o a porcentagem de homens que votaram nao foi de:',total2:5:2,'%');delay(40000);end.
"2" que no caso seria feminino , ajuda também se me ensinar como poder arrumar isso ao invés de deixar 1/2 deixar fem/masc abraços!