Documenstos jhowtromundo

program mensalidade_seguro;

uses CRT;

var nome : string; sexo, grupo_risco : char; idade : byte; codigo : word; mens_atual, mens_reajustada, reajuste, desconto : real;

begin

clrscr;

gotoxy(28,02); writeln('SECURITY S/A');

gotoxy(10,04); writeln('<< Reajuste do Valor da Mensalidade do Seguro >>');

gotoxy(13,06); writeln('::::::::::::Dados do Segurado::::::::::::');

gotoxy(14,08); writeln('Codigo. [0=FIM].: ');

gotoxy(01,20); writeln('Erro:');

gotoxy(14,09); writeln('Nome............: '); gotoxy(14,10); writeln('Idade...........: '); gotoxy(14,11); writeln('Sexo. [F ou M]..: '); gotoxy(14,12); writeln('Grupo de Risco.(A, B, OU M)..: '); gotoxy(14,14); writeln('Valor da Mensalidade Atual R$: ');

gotoxy(32,08); readln(codigo);

while(codigo <> 0) do

begin

gotoxy(32,09); readln(nome);

gotoxy(32,10); readln(idade); while (idade < 18) or (idade > 70) do begin gotoxy(08,20); writeln('Idade do segurado deve estar entre 18 e 70 anos.'); gotoxy(32,10); clreol; readln(idade); gotoxy(08,20); clreol; end;

gotoxy(32,11); readln(sexo); sexo := upcase (sexo); while NOT(sexo in ['F','M']) do //if (sexo <> 'M') and (sexo <> 'F') then begin gotoxy(08,20); writeln('Sexo deve ser igual a F ou M.'); gotoxy(32,11); clreol; readln(sexo); sexo := upcase (sexo); gotoxy(08,20); clreol; end;

gotoxy(45,12); readln(grupo_risco); grupo_risco := upcase (grupo_risco); while NOT (grupo_risco in ['A','B','M']) do //if