Algoritmo

{ Uma certa firma fez uma pesquisa de mercado para saber se as pessoas gostaram ou

nao de um novo produto lancado no mercado. Para isto, forneceu o sexo do

entrevistado (M-masculino ou F-feminino) e sua resposta (s-sim ou n-nao). Fazer

um programa que a partir dos dados fornecidos, no arquivo Pesquisa.dat,

calcule e escreva:

1. o numero de pessoas que responderam sim;

2. o numero de pessoas que responderam nao;

3. a porcentagem de pessoas do sexo feminino que responderam sim;

4. a porcentagem de pessoas do sexo masculino que responderam nao. }

program Pesquisa_De_Mercado;

uses crt;

type RgPesquisa = record

Sexo: char;

Resp: char;

end;

var CtSim, CtNao, CtMas, CtFem, SimFem, NaoMas: integer;

PCemFem, PCemMas: real;

Pesquisa: file of RgPesquisa;

VarRgPesquisa: RgPesquisa;

begin

assign(Pesquisa, 'Pesquisa.dat');

reset(Pesquisa);

clrscr;

writeln('Determinando o nivel de aceitacao do produto.');

writeln('Inicio do processo...');

{ inicializa as variaveis antes do inicio do processamento }

CtSim := 0; CtMas := 0; SimFem := 0;

CtNao := 0; CtFem := 0; NaoMas := 0;

while not eof(Pesquisa) do

begin

read(Pesquisa, VarRgPesquisa);

if VarRgPesquisa.Resp in ['S', 's']

then inc(CtSim)

else inc(CtNao);

if VarRgPesquisa.Sexo in ['F', 'f']

then begin

inc(CtFem);

if VarRgPesquisa.Resp in ['S', 's'] { pessoas do sexo Feminino }

then inc(SimFem); { que responderam Sim }

end

else begin

inc(CtMas);

if VarRgPesquisa.Resp in ['N', 'n']

...