AULA PRÁTICA 11

Prévia do material em texto

AULA PRÁTICA 11 17/11/2008
Aluna: Ana Carolina Arantes Araújo Turma: A1
program afinidade;
uses crt;
type matriz = array[1..20,1..30] of char; {declaração das tabelas}
var Resp_mocas, Resp_rapazes: matriz;
 l, c, x, mocas, rapazes: integer;
 resposta: real; {porcentagem de afinidade}
 arquivo:text; {declaração do arquivo}
 Procedure Leitura ( VAR tabela:matriz; total: integer); {procedimento com parâmetro por referência}
 begin
 for l:= 1 to total do
 for c:= 1 to 30 do
 readln(arquivo, tabela[l,c]);
 end;
begin {inicio do programa principal}
 {leitura dos dados diretamente do arquivo pré-gravado:}
 clrscr;
 Assign(arquivo, 'c:\MSWLogo\temp\dados.txt');
 Reset(arquivo); {o arquivo de dados tem nome dados.txt}
 readln(arquivo, mocas); {leitura da quantidade de Moças, 1º dado}
 readln(arquivo, rapazes); {leitura da quantidade de Rapazes, 2º dado}
 writeln('Respoastas das Moças:');
 Leitura(Resp_mocas, mocas); {leitura da tabela das Respostas das Moças}
 for l:= 1 to mocas do
 begin
 for c:= 1 to 30 do
 write(Resp_mocas[l,c]);
 writeln();
 end;
 writeln();
 writeln('Respostas dos Rapazes');
 Leitura(Resp_rapazes, rapazes); {leitura da tabela das Respostas dos Rapazes}
 for l:= 1 to rapazes do
 begin
 for c:= 1 to 30 do
 write(Resp_rapazes[l,c]);
 writeln();
 end;
 writeln();
 close(arquivo); {último comando}
 {construção da matriz com a porcentagem de afinidade}
 writeln('Afinidades, em porcentagem, entre as moças e os rapazes:');
 for x:= 1 to mocas do {x = mulher atual}
 begin
 for l:= 1 to rapazes do {l = homem atual}
 begin
 for c:= 1 to 30 do {c = perguntas}
 begin
 if (Resp_mocas[x,c] = Resp_rapazes[l,c])
 or (Resp_mocas[l,c] = 'I')
 or (Resp_rapazes[l,c] = 'I')
 then resposta:= resposta + 1; {contador de afinidade, são consideradas 'afinidade', as respostas S e S, N e N, I e S, I e N}
 end; 
 resposta:= (resposta/30) * 100;
 write(resposta:5:0);
 resposta:= 0; {zera o contador para os próximos elementos}
 end;
 writeln();
 end;
end.