Pascal/Turbo Pascal - Ayuda para hacer un menu de todas las tablas de multiplicar

   
Vista:

Ayuda para hacer un menu de todas las tablas de multiplicar

Publicado por eduardo (1 intervención) el 01/10/2014 23:51:25
hola amigo como soy nuevo en esto.y no se como colocar mi pregunta quisiera q me sacaras de duda quien me puede ayudar cn esto.. quien sabe trabajar con pascal para q me heche una ayudada.de hacer un menu de todas las tablas de multiplicar.promedio den n cantidad de notas para n cantidad de alumno.
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 para hacer un menu de todas las tablas de multiplicar

Publicado por ramon (2072 intervenciones) el 02/10/2014 23:18:51
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
{A ver si esto te sirve}
 
 
program tablas;
  uses
     crt;
   const
      ln = 5;
 
   var
     multp : integer;
     tecla : char;
 
   function result(mul1, mul2 : integer) : integer;
   begin
      result :=  mul1 * mul2;
   end;
 
   procedure presentatabla(n : integer);
   var
     i : integer;
     begin
        writeln('   Tabla Del [',n,']');
        writeln;
        for i := 1 to 10 do
        if i < 10 then
        writeln('   ',n,' x ',i,'  = ',result(n,i))
     else
        writeln('   ',n,' x ',i,' = ',result(n,i));
        writeln;
        writeln('   Pulse Una Tecla ');
        readkey;
     end;
 
   procedure notas_y_promedio;
   var
     alun : array[1..ln] of real;
     media : real;
     u : integer;
   begin
      media := 0.0;
      for u := 1 to ln do
      begin
          write('  Nota Alucno Num. ',u,' : ');
          readln(alun[u]);
          media := media + alun[u];
      end;
        clrscr;
        writeln('  Las Notas Fueron ');
        writeln;
        for u := 1 to ln do
        begin
            write('  ',alun[u]:0:2);
        end;
        writeln;
        writeln('  La Media Es = ',media / ln:0:2);
        writeln;
        writeln('   Pulse Una Tecla ');
      readkey;
   end;
 
   procedure menu;
   var
     sal : boolean;
    begin
       sal := false;
     repeat
        clrscr;
        textcolor(15);
        writeln('              **** Menu Tablas Multiplicar Y Notas ****');
        writeln;
        writeln('   Elija La Tabla De Multiplicar Del ',
                                   '1..[10] = 0 / N=Notas ESC = Termina');
        writeln;
        repeat
             tecla := upcase(readkey);
        until tecla in['1','2','3','4','5','6','7','8','9','0','N',#27];
        clrscr;
   case tecla of
 '1' : presentatabla(1);
 '2' : presentatabla(2);
 '3' : presentatabla(3);
 '4' : presentatabla(4);
 '5' : presentatabla(5);
 '6' : presentatabla(6);
 '7' : presentatabla(7);
 '8' : presentatabla(8);
 '9' : presentatabla(9);
 '0' : presentatabla(10);
 'N' : notas_y_promedio;
 #27 : sal := true;
    end;
     until sal = true;
    end;
 
 
 
  begin
     menu;
  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