FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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 area:=(per*apo)/2; writeln('el área del pentagono es' ,area, 'gracias por usar el sistema'); end; until opc='c' writeln('Daniel Software Inc. 2008'); end. aquí me marca error en statement y me apunta al end. y si lo intento poner con ; me marca de nuevo el error el rojo no sirve y el verde si me saca pero no escribe lo que le pido que escriba por favoor ayudenme |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Turbo Pascal cumple 25 años | dec | Noticias | 26 | 16-11-2009 13:32:02 |
Comparativa entre Free Pascal 2.2.0 y Turbo Pascal 7.0 | esocrates | Varios | 2 | 14-07-2008 15:56:24 |
Pasar de Turbo Pascal 7 a DELPHI7 | BEPAI | Varios | 6 | 14-03-2007 12:44:19 |
From turbo pascal to delphi6 | Roberto Sánchez | Varios | 10 | 12-09-2006 04:22:44 |
compatibilidad entre Turbo Pascal 7 y Delphi 7 !! | Jat | Varios | 0 | 14-12-2004 00:24:34 |
|