Pascal/Turbo Pascal - ¡AYUDA CON PASCAL!

 
Vista:
Imágen de perfil de Elías

¡AYUDA CON PASCAL!

Publicado por Elías (1 intervención) el 02/04/2017 08:43:24
Buenos días, tardes o noches.

Necesito ayuda, pues en mi colegio se me pidió realizar un programa en FreePascal. En base a un planteamiento el susodicho programa debe contener:

2 Ciclos de repetición (diferentes).
1 IF-THEN.
1 IF-THEN-ELSE.
1 Case.
1 Arreglo.

Recurro a pedir de su ayuda para con el planteamiento, y si pueden proporcionar planteamientos con los cuales pueda hacer un programa con los elementos antes mencionados.

Muchas gracias por su tiempo.
:)
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

¡AYUDA CON PASCAL!

Publicado por ramon (2158 intervenciones) el 14/04/2017 13:20:57
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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
{Mira esto}
 
 program ciclos;
 uses
    wincrt;
  var
    numc : integer;
    tec : char;
 
 
  procedure ciclorepeat;
  begin
     clrscr;
     repeat
         clrscr;
         writeln;
         writeln('   Pulse La tecla [ESC] Para Terminar');
         writeln('  Repetira Asta Pulsar ESC');
         tec := readkey;
     until tec = #27;
  end;
 
  procedure ciclofor;
  begin
     clrscr;
     for numc := 1 to 5 do
     begin
       writeln('   Repetira 5 Veces : ',numc);
       readkey;
     end;
  end;
 
  procedure ciclowhile;
  begin
     clrscr;
     numc := 1;
     while numc <  6 do
     begin
        writeln('   Repetira 5 Veces : ',numc);
        readkey;
        numc := numc + 1;
     end;
   end;
 
   procedure if_y_else;
   var
     tecla : char;
   begin
      clrscr;
      write('  Comparacion De Entrada : I=[izquieda] D=[derecha]');
      tecla := upcase(readkey);
      if (tecla = 'I') or (tecla = 'D') then
      begin
         if tecla = 'I' then
         begin
         clrscr;
         gotoxy(1,1);write(' Pulso A La Izquierda');
         gotoxy(1,3);write('  Pulse Una Tecla');
         readkey;
         end;
         if tecla = 'D' then
         begin
           clrscr;
           gotoxy(60,1);write(' Pulso A La Derecha');
           gotoxy(60,3);write('  Pulse Una Tecla');
           readkey;
         end;
       end
   else
       begin
         clrscr;
         if_y_else;
       end;
   end;
 
   procedure arreglas;
   var
      aa : array[1..5] of char;
      hh : integer;
   begin
      for hh := 1 to 5 do
      begin
         write(' Entre Caracter Num. ',hh,' : ');
         readln(aa[hh]);
      end;
      clrscr;
      for hh := 1 to 5 do
      write('   ',aa[hh]);
      writeln;
      writeln('  Pulse Una Tecla');
      readkey;
   end;
 
   procedure menucase;
   var
     tt : char;
     salir : boolean;
   begin
      salir := false;
    repeat
       clrscr;
       writeln('   Menu Con Case');
       writeln;
       writeln('  1 = Ciclo While');
       writeln('  2 = Ciclo For');
       writeln('  3 = Ciclo Repeat');
       writeln('  4 = Comparacion If y Else');
       writeln('  5 = Arreglos');
       writeln('  6 = Salir');
       repeat
           tt := readkey;
       until tt in['1','2','3','4','5','6'];
    case tt of
  '1' : ciclowhile;
  '2' : ciclofor;
  '3' : ciclorepeat;
  '4' : if_y_else;
  '5' : arreglas;
  '6' : salir := true;
  end;
    until salir = true;
   end;
 
   begin
      clrscr;
      menucase;
   end.
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