Pascal/Turbo Pascal - necesito realizar un programa en turbo pascal

   
Vista:

necesito realizar un programa en turbo pascal

Publicado por angeles (2 intervenciones) el 17/01/2013 15:04:11
el programa tiene que tener
-estructura del programa
-instrucciones de repetición
-arreglo
- funciones y procedimientos


ayúdeme !!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

necesito realizar un programa en turbo pascal

Publicado por ramon (2072 intervenciones) el 17/01/2013 17:00:18
A ver pascal es un programa estructurado por lo cual es la estructura, a que llamas instrucciones de repetición, arreglos vale, funciones y procedimientos vale, y ahora me puedes decir de que tratara el
programa sera de algo eso es lo que necesito saber que quieres hacer con el.
Sino mira esto es un programa en pascal :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
program pantallas;
 uses
   crt, dos;
  type
     pantalla = array[1..25,1..80] of integer;
 
  var
    lineas : array[0..3] of ^pantalla;
    reg : registers;
 
  procedure moverpagina(maxp : byte);
  var
     n, i, d : byte;
     cad : string;
     tec : char;
   begin
          cad := 'Estamos En Pagina N0    '^M^J;  {Pajina N 0}
          lineas[0] := ptr($b800,0 * $1000);
          cad[23] := char($30 + n);
          for d := 1 to 22 do
          lineas[0]^[2,20 + d] := 256 * (n + 8) + byte(cad[d]);
 
          cad := 'Estamos En Pagina N1    '^M^J; {Pajina N 1}
          lineas[0] := ptr($b800,1 * $1000);
          cad[23] := char($30 + n);
          for d := 1 to 22 do
          lineas[0]^[4,20 + d] := 256 * (n + 8) + byte(cad[d]);
 
          cad := 'Estamos En Pagina N2    '^M^J; {Pajina N 2}
          lineas[0] := ptr($b800,2 * $1000);
          cad[23] := char($30 + n);
          for d := 1 to 22 do
          lineas[0]^[6,20 + d] := 256 * (n + 8) + byte(cad[d]);
 
          cad := 'Estamos En Pagina N3    '^M^J; {Pajina N 3}
          lineas[0] := ptr($b800,3 * $1000);
          cad[23] := char($30 + n);
          for d := 1 to 22 do
          lineas[0]^[8,20 + d] := 256 * (n + 8) + byte(cad[d]);
 
      repeat
          tec := readkey;
          if tec in['0'..'3'] then
          begin
 
             reg.ax := $0500 + byte(tec) - $30;
             intr($10,reg);
          end;
       until tec = '4';
     end;
 
 
  begin
      clrscr;
      textmode(c80);
      moverpagina(3);
      reg.ax := $0500;
      intr($10,reg);
  end.


Dime que tienes que hacer y te intentare ayudar.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

necesito realizar un programa en turbo pascal

Publicado por angeles (2 intervenciones) el 17/01/2013 22:54:33
gracias corazón, el programa como tal no lo tengo debo realizar uno que me cumpla con todas esa que le nombre mi duda esta en que no se como crearlo .
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

necesito realizar un programa en turbo pascal

Publicado por ramon (2072 intervenciones) el 19/01/2013 11:21:50
Disculpa pero se trata me informes del anunciado que te an dado para poder vasar el programa
en algo que se parezca a lo pedido solo trato de tener información para crear el programa que te
ayude.

Lo que tu pides seria :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Estructura del programa
 
   program  idea;   nombre del programa
   uses       clausula llamadas a unidades
          crt;     unidad
  const     constante en el programa
           pi = 3.1416;   una constante
  type   tipes del programa
       nombre = string[80];    un type definido por el usuario
 var      variables globales
     dato : integer;    la variable global para todo el programa
 
   procedure entrada;   un procedimiento
   var
        nom : string;  variable local solo para el procedimiento
   begin
                  a qui los datos
    end;
 
   function cierto : boolean;  una función devuelve el estado del proceso false o true
   begin
          a qui los datos
    end;
 
   begin   programa principal
             a qui lo ejecuta lo que tengas
   end.   final del programa


como puedes ver esto es la estructura de un programa en pascal a groso modo.

Las instrucciones de repetición serian aquellas que se repetirían en el proceso ejemplo:

1
2
3
4
5
6
7
8
while d > 1 do se repetirá asta que d sea igual o menor de 1
 
 for d := 1 to 10 do se repetirá asta que d sea mayor de 10
 
  n := 0;
 repeat
        n := n + 1;
  until n > 10;  se repetirá asta que n sea mayor de 10


Estas son algunas de las instrucciones de repetición
así como llamadas re cursivas en procedimiento o funciones

Los arreglos estructuras como esta
var
nombres : array[1..20] of string[80];

Las procedure y funciones las del programa anterior.

Por eso te pido mas información puesto que no se en realidad lo que necesitas hacer.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar