Tarea

Sport Auto
Informe anual por país y marca de auto
clase carent
{
caracter opc1, opc2, resp;
flotante m[10],pr, pb, dia, ac, ate, aqler, amot, autos, ad, af, al, ap,eu1,fr1,ita1;
interoc[10],i,cf,cl,cp,eu,fr,ita,acf,acl,acp;

publico:

carent()
{
ac=aqler=1;
eu=fr=ita=eu1=fr1=ita1=cf=cl=cp=ate=
amot=autos=ad=af=al=ap=i=0;
}

comenzar()
{menu1();
cambiar(opc1)
{
caso'1':

menu2();
cambiar(opc2)
{

caso'1':

cantidad();
ferrari();
limpiar();c[3]=cf+cl+cp;
autos=c[3];
eu=eu+cf;
eu1=eu1+af;
resultado();
limpiar();
salir(1);

caso'2':

cantidad();lamborguini();
limpiar();
c[3]=cf+cl+cp;
autos=c[3];
eu=eu+cl;
eu1=eu1+al;
resultado();
limpiar();salir(1);
caso'3':

cantidad();
porshe();
limpiar();
c[3]=cf+cl+cp;
autos=c[3];
eu=eu+cp;
eu1=eu1+ap;resultado();
limpiar();
exit(1);

caso'4':

limpiar();
comenzar();

default:

imprimir("Opcion invalida");limpiar();
comenzar();
}

caso'2':

menu2();
cambiar(opc2)

{

caso'1':

cantidad();
ferrari();
limpiar();c[3]=cf+cl+cp;
autos=c[3];
fr=fr+cf;
fr1=fr1+af;
resultado();
limpiar();
salir(1);

caso'2':cantidad();
lamborguini();
limpiar();
c[3]=cf+cl+cp;
autos=c[3];
fr=fr+cl;
fr1=fr1+al;
resultado();
limpiar();...