#1 [PASCAL] pascal, CASE
Bueno empese con la sentencia case aver si esta bien este programa de un diccionario:
program palabras;
uses crt;
var
opcion:char
begin
clrcsr
writeln ('casa');
writeln ('chosa')¨;
writeln ('mansion');
writeln ('salir);
write ('elige una opcion');
readln (opcion);
case opcion of
casa: begin
write ('lugar con paredes y techos y puertas');
readln;
end;
chosa: begin
write ('lugar de un mencho');
readln;
end;
mancion:begin
write ('lugar grande con muchas riquesas')
end;
salir: writeln ('adios puto')
else
writeln ('no valida')
end;
readln;
end.
no se vurlen soy nuevo en este.jaj
gracias
program palabras;
uses crt;
var
opcion:char
begin
clrcsr
writeln ('casa');
writeln ('chosa')¨;
writeln ('mansion');
writeln ('salir);
write ('elige una opcion');
readln (opcion);
case opcion of
casa: begin
write ('lugar con paredes y techos y puertas');
readln;
end;
chosa: begin
write ('lugar de un mencho');
readln;
end;
mancion:begin
write ('lugar grande con muchas riquesas')
end;
salir: writeln ('adios puto')
else
writeln ('no valida')
end;
readln;
end.
no se vurlen soy nuevo en este.jaj
gracias
0
