importo el .pas y no me genera nada
estoy haciendo algo mal ?

Ricitos leíste el leeme?

Fijate si por casualidad pusiste en algún lado dos instrucciones en un mismo renglón.

Segun el leeme
1) Seleccionar el boton "P", y determinar la ubicación del .pas para generar sus respectivos diagramas
hice eso y nada

Cargue el mismo programita que hiciste vos el de los numeros ...

me genera un OW file, con que lo abro?

Ricitos escribió:Segun el leeme
1) Seleccionar el boton "P", y determinar la ubicación del .pas para generar sus respectivos diagramas
hice eso y nada

Cargue el mismo programita que hiciste vos el de los numeros ...

me genera un OW file, con que lo abro?

Hola!! a ver..vos apretas la P y elegis el .pas, y ahi en pantalla te deberia aparecer los diagramas, no generar ningun archivo,mostrartelos en la pantalla. (sino podes hacer Archivo - Importar .Pas)
Despues, si esos diagramas los queres guardar en imaganes (.bmp) elegis el icono de la fotito y elegis donde guardarlos.

Si seguis teniendo problema, te pediria si me pasas el .pas con el que te genera el problema, para analizarlo y ver que que esta interpretando mal mi programa y darte una solucion!

Por las dudas tenes en cuenta, como bien puso aye : no mas de una isntruccion x linea
x ej
readln(a);readln(b); {asi no}
y el if:
if lo que quieras then lo que quieras ; {no poner todo en una linea }


Saludos y espero tu respuesta

Mariano

Che, parece que está bueno. Pero si cursando la materia tuvieron la capacidad de hacer esto... ¿qué hacen en la facultad? Salgan a llevarse el mundo por delante!!!

Ahora estaría copado también que haga el paso inverso, es decir, desde los diagramas, que te genera el .PAS, y ahí ya sería como usar el Rational.

Aunque analizando la situación, no debe ser algo fácil hacer este programa. ¿En qué lenguaje lo hicieron? Porque es casi como hacer un compilador, tienen que parsear todas las sentencias de Pascal. Lo veo como muy complejo.

LeaTex escribió:Che, parece que está bueno. Pero si cursando la materia tuvieron la capacidad de hacer esto... ¿qué hacen en la facultad? Salgan a llevarse el mundo por delante!!!

Ahora estaría copado también que haga el paso inverso, es decir, desde los diagramas, que te genera el .PAS, y ahí ya sería como usar el Rational.

Aunque analizando la situación, no debe ser algo fácil hacer este programa. ¿En qué lenguaje lo hicieron? Porque es casi como hacer un compilador, tienen que parsear todas las sentencias de Pascal. Lo veo como muy complejo.

jajaja todavia falta para "llevarnos el mundo por delante" jaja, hay mucho que aprender.
Lo hicimos en visual c++, y lo hicimos a partir de un "lenguaje interpretado", es decir, primero leiamos el .pas y generabamos un sub lenguaje en un archivo de texto, y luego el programa a partir de ese archivo de texto, pinta las estructuras

es la gloria este programa...

lastima que ya la curse jajaja...

si habre perdido tiempo en el visio haciendo dibujitos de mierda y encima que no me entraban...y queria romper todooooo!!!

Sigue andando mal, puede ser q el codigo este mal ??

Ricitos escribió:Sigue andando mal, puede ser q el codigo este mal ??

Fijate la interface entre el teclado y la pc jajajaja

Ricitos escribió:Sigue andando mal, puede ser q el codigo este mal ??

Hola Ricitos, te agradeceria mucho si me mandas por PM o lo colgas al foro el .pas con el que te esta generando problemas, asi lo chequeo, y veo si es un problema del programa y lo intento solucionar

Aca te adjunto el ejercicio, no me deja subir con extension.pas
Te lo subi en .txt

Hola Ricitos, primero te doy las gracias por haber subido el codigo.
Segundo te cuento que hay algunas formas de programacion que el programa no soporta. Algunas las acabo de notar en el codigo que pasaste. Te detallo las que me acuerdo:
- las condiciones de los iF tiene que estar en el mismo renglon no se puede hacer
IF condicion and
condicion and
condicion then
- no se pueden poner 2 instrucciones en un mismo renglon, ej:
IF condicion then inc(i);
-no se pueden poner estructuras vacias. Ej:
repeat
until keypressed;
o
repeat until keypressed;

bueno por el momento me acuerdo de esas. Modifique estas cosas a tu codigo y funciono bien. Adjunto abajo el codigo modificado y el ejecutable ultimo del distructure.
Espero en algun momento con Mariano tener el tiempo para modificar estas cosas y reducir las limitaciones del programa. Pero por el momento si uno se adapta a estas 3 o 4 condiciones, se ahorra mucho tiempo en dibujar los horribles diagramas de estructuras para los TPs de algoritmos.

saludos
El Negro

Buenas, la verdad una joyita el programa pero tengo un problemita
tengo el siguiente codigo pero no me deja pasarlo a diagrama, aparece error y se me cierra el programa.
alguien tiene idea por que??
les paso el codigo.
muchas gracias!!
(creo q el problema pasa por el repeat until)

codigo:

program tppostales1;
uses crt, dos;
type
ts30=string[30];
ts9=string[9];
tvector=array[1..3] of char;
tregreceptor=record
apellidonombre:ts30;
mail:ts30;
pais:ts9;
acontecimiento:tvector;
end;
tarchreceptores=file of tregreceptor;
TMAT=ARRAY[1..4,1..3,1..2] OF BYTE;
var
archrec, archout:tarchreceptores;
regrec:tregreceptor;
bol:boolean;
n:longint;
nopciones:byte;
siono:char;
MATRIZ:TMAT;
archivo:text;

begin
bol:=false;
repeat
clrscr;
writeln('ELIJA UNA DE LAS SIGUIENTES OPCIONES');
writeln('');
writeln('':5,'1. Alta de receptores de Postales');
writeln('':5,'2. Listado de Receptores');
writeln('':5,'3. Generaci¢n de Postales a Enviar');
writeln('':5,'4. Listado de Postales');
writeln('':5,'5. Finalizar el programa');
readln(nopciones);
writeln('');
case nopciones of
1:begin
clrscr;
writeln('Eligio la opcion 1. ¨Desea continuar (S= Si, N= No)?');
readln(siono);
if (siono = 's') or (siono = 'S')
then begin
clrscr;
opcion1 (archrec,archout,regrec,n);
end;
end;

2:begin
clrscr;
writeln('Eligio la opcion 2. ¨Desea continuar (S= Si, N= No)?');
readln(siono);
if (siono = 's') or (siono = 'S')
then begin
clrscr;
opcion2(archrec,regrec);
readln();
end;
end;

3:begin
clrscr;
writeln('Eligio la opcion 3. ¨Desea continuar (S= Si, N= No)?');
readln(siono);
if (siono = 's') or (siono = 'S')
then begin
clrscr;
opcion3();
readln();
end;
end;

4:begin
clrscr;
writeln('Eligio la opcion 4. ¨Desea continuar (S= Si, N= No)?');
readln(siono);
if (siono = 's') or (siono = 'S')
then begin
clrscr;
opcion4(matriz);
end;
end;

5:begin
clrscr;
writeln('Eligio la opcion SALIR DEL PROGRAMA. ¨Desea continuar (S= Si, N= No)?');
readln(siono);
if (siono = 's') or (siono = 'S')
then begin
bol:=true;
end;
end;
end;
until bol;
end.

Hola Pablo!!
Gracias primero que nada por usar nuestro programa!.

Estuvimos viendo tu codigo, y en base a eso, hicimos unas pequeñas modificaciones al programa, es por esto, que vuelvo NUEVAMENTE a subir la
VERSION 3.3 DISTRUCTURE

[attachment=0]

y ademas, adjunto el .pas con tu codigo, para que ahora si te funcione!

[attachment=1]

Saludos, y cualquier duda o problema que tengas, no dudes en consultar

cuando curse algoritmos, al parecer, te voy a levantar un monumento...


graciela por el soft!