1 reply to this topic

[Myks]

Bom gente...eu postei um topico antes falando do programa em pascal...que o bloco principal num tava dano certo..Agora...o problema ta so no CASE...sera q alguem sabe pq?? Ta dizendo "erro...CASE nao esperado"...

program Ilustra_tipo_record_variante;

const ESPACO = #32;

type tipo_cliente = (fisico,juridico);
reg_de_nome = record
nome:string [30];
endereco:string [7];
telefone:string[10];
end;

reg_cliente = record
endereco1:string [40];
cidade:string [20];
estado:string [2];
cep:string [8];
telefone1:string [10];
case tipo (pess_juridica,pess_fisica) of
pess_juridica: (razao_social:string [40], contato:string[30]);
pess_fisica: (nome=reg_de_nome);
end;
end;

var pj:reg_cliente;
pf:reg_de_nome;
op:char;

begin

writeln ('Classifique o cliente como pessoa juridica ou fisica (j/f): ');
readln (op);
if (op='j')
begin
writeln('Informe a razao social: ');
readln(pj.razao_social);
writeln('Informe o nome de uma pessoa para contato: ');
readln(pj.contato);
writeln('Informe o endereco: ');
readln(pj.endereco1);
writeln('Informe a cidade: ');
readln(pj.cidade);
writeln('Informe o Estado: ');
readln(pj.estado);
writeln('Informe o CEP: ');
readln(pj.cep);
writeln('Informe o numero do telefone: ');
readln(pj.telefone1);
end;
else if (op='f');
begin
writeln('Informe o nome do cliente: ');
readln(pf.nome);
writeln('Informe o endereco: ');
readln(pf.endereco);
writeln('Informe o numero do telefone: ');
readln(pf.telefone);
end;
end;

[xota]

eu queria ajudar mas nao estou a compreender para o que é o programa. Nao tem um enunciado ou coisa parecida???