Ver Mensaje Individual
  #1 (permalink)  
Antiguo 22/11/2008, 22:29
DANIELOVICH
 
Fecha de Ingreso: noviembre-2008
Mensajes: 1
Antigüedad: 5 años, 8 meses
Puntos: 0
Exclamación Problema Turbo pascal

Hola y antes que nada gracias por leer esta pregunta. Miren estoy utilizando el turbo pascal 5.5 y miren les explico que se necesita que ejecute el programa

utilizar caracteres a,b,c como opciones en un menú
a) repetición de un nombre (previamente preguntado al usuario)
b) calcular el área de un pentágono (así es perímetro (lado*5) y apotema
c) salida

sé que esta medio confuso pero miren si ven como lo hice espero lo entiendan

el programa corre por ejemplo en la repetición hasta cuando pregunta el numero de veces a repetir ahí se traba por favor ayúdenme a que funcione
el área del pentágono nada mas pregunta el perímetro y el apotema pero no realiza la multiplicación ni la división
la salida si se realiza con C pero no escribe lo que le puse que escribiera

aquí mi programa:

program options;
uses
crt;
var
n, lado, apo, per, x, sus, d, e, f:integer;
a, opc, t, l: char;
nom:string[20];
area, stop:real;
begin
repeat
clrscr;
writeln('bienvenido a la maquina de opciones');
writeln('selecciona una opcion');
writeln('a-imprime n veces un numero');
writeln('b-evalúa el área de un pentágono');
writeln('c-exit')
read(opc);
if opc='a' then
begin
writeln('dame el numero de veces a repetir');
read(sus);
writeln('dame tu nombre');
readln(nom);
repeat
x:=1;
x:=x+1;
writeln('tu nombre es' ,nom, 'bienvenido');
until x:=sus;
readln(stop);
end;
if opc='b' then
begin
writeln('dame la medida de los lados del pentágono');
read(lado);
writeln('dame el apotema');
read(apo);
per:=lado*5
readln(per);
area:=(per*apo)/2;
readln(area)
writeln('el área del pentagono es' ,area, 'gracias por usar el sistema');
end;
until opc='c'
writeln('Daniel Software Inc. 2008');
end.


espero me puedan ayudar :)