Utilizamos Cookies de terceros para generar estadísticas de audiencia y mostrar publicidad personalizada analizando tu navegación. Si sigues navegando estarás aceptando su uso. Más información X
PortadaForo AyudaTutoriales
InicioForosForo Programación

Problema Programacion Turbo Pascal(otro xD)

manelgg
2007-03-24 17:31 - Respuestas: 3 - Tema nº: 2441158


Características: Windows XP Profesional, x.

Despues de saber como usar el "case", ahora tengo otro problema.

Bueno, lo q tengo es esto:

Writeln('Selecciona la incognita del problema, posicion inicial -1-, posicion final -2-...');
Readln(numero)
case numero of
1: Writeln('La incognita del problema es la posicion inicial');
2: Writeln('La incognita.... es la posicion final');
....

Asi todas las q son.

Bueno, yo lo q quiero es dentro de el (1), dentro del (2)... etc... poder poner mas Writeln y Readln para recojer los datos del problema y aplicar la formula correspondiente, y si pongo un Writeln o Readln despues del q ai puesto en el ejemplo, no me deja.

Alguna idea?:S:S:S es bastante urgente... y llevo muxo tiempo intentando i nada :S

Posibles soluciones:
Problema programacion turbo pascal(otro xd)Problema programacion turbo pascal(otro xd)
Problema programacion turbo pascalProblema programacion turbo pascal
Ayuda programación turbo pascalAyuda programación turbo pascal
Problemas con ejercicios de programación turbo pascalProblemas con ejercicios de programación turbo pascal
Problema en turbo pascalProblema en turbo pascal
Hurricane

Re: Problema Programacion Turbo Pascal(otro xD) - 2007-03-24 17:51 - Respuesta 2

Sé más explícito. Danos un ejemplo de lo que quieres hacer (no es necesario que esté en Pascal. Puede ser en términos normales).

Saludos
manelgg

Re: Problema Programacion Turbo Pascal(otro xD) - 2007-03-24 18:06 - Respuesta 3

Oks xDD

El programa resuelve (o eso intenta) problemas sencillos fisicos cinematicos, concretamente MRU y MRUA.

En un principio, pense en utilizar un seguido de "if,then,else". Primero el programa pide que selecciones el tipo de problema: MRU(1) y MRUA(2).
Despues de esto, venia un IF numero=1 -> Has seleccionado el MRU... etc.
A continuacion, dentro de este apartado, te pedia que seleccionaras la incognita: posicion(1),tiempo(2)... y aqui enlazaba mas IF-THEN...
Al final, el programa funcionaba, pero los if,then,else no funcionaban y si pedias que la incognita era la velocidad(4), primero hacia como si tubiera q resolver la posicion(1), el tiempo... etc

Asi que intente utilizar "case".

Ahora mismo el programa es asi:

Writeln('Escribe el tipo de movimiento con el que quieres trabajar');
Writeln('MRU -1-, MRUA -2-');
Readln(numeroA);
IF
____NumeroA=1
THEN
____Writeln('Selecciona la incognita');
____Writeln('Posicion inicial -1-,Posicion Final -2-,Velocidad -3-...');
____Readln(numeroB)
______case numeroB of
________1: Writeln ('El elemento que quieres conocer es la posicion inicial');
________2: Writeln ('El elemento que quieres conocer es la posicion final');
... etc

Bueno, lo que yo quiero, es que despues del 1: Writeln('El elemento....); pedir los datos que da el problema a resolver y que son necesarios para aplicar la formula, es decir:

________1: Writeln ('El elemento que quieres conocer es la posicion inicial');
__________Writeln('Cual es la posicion final?');
__________Readln(xf);
__________Writeln('Cual es la velocidad?');
__________Readln(v);
__________ .....
__________Writeln('La posicion inicial es' aqui la formula);

Pero, TurboPascal no me lo acepta, y no se como se puede hacer esto :S
Hurricane

Re: Problema Programacion Turbo Pascal(otro xD) - 2007-03-24 20:24 - Respuesta 4

Los bloques de instrucciones dentro IF/THEN, CASE y otras instrucciones que comúnmente sean delimitadas por sólo una instrucción, debes delimitarlas con BEGIN y END. Ej:
IF NumeroA=1 THEN
__Begin
____Writeln('Selecciona la incognita');
____Writeln('Posicion inicial -1-,Posicion Final -2-,Velocidad -3-...');
____Readln(numeroB);
____case numeroB of
________1: Writeln ('El elemento que quieres conocer es la posicion inicial');
________2: Writeln ('El elemento que quieres conocer es la posicion final');
____end; {case}
__End; {IF}


Así mismo, para el caso de tu segundo ejemplo, debería quedar así:
________1:
__________Begin
_____________Writeln ('El elemento que quieres conocer es la posicion inicial');
_____________Writeln('Cual es la posicion final?');
_____________Readln(xf);
_____________Writeln('Cual es la velocidad?');
_____________Readln(v);
_____________ .....
_____________Writeln('La posicion inicial es' aqui la formula);
__________End; {Suponiendo aquí termina el Case/OF al comparar con el 1}


Saludos

Página:1

Respuestas relacionadas:

Problema turbo pascalProblema turbo pascalForo
Problema con un programa de turbo pascalProblema con un programa de turbo pascalForo
Turbo pascalTurbo pascalForo
Turbo pascalTurbo pascalForo
Turbo pascalTurbo pascalForo
Turbo pascalTurbo pascalForo
Matrices en turbo pascal!Matrices en turbo pascal!Foro
Turbo pascal- programasTurbo pascal- programasForo
Matrices en turbo pascalMatrices en turbo pascalForo
Ayuda con turbo pascalAyuda con turbo pascalForo
InicioSecciones
^ SubirAviso legal
Política Privacidad
Configurarequipos28 Noviembre 2021