Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » establecimiento de comida rápida

Pascal/Turbo Pascal - establecimiento de comida rápida

Volver
Nuevo Tema
<<>>
 
Vista:

establecimiento de comida rápida

Publicado por augusto (1 intervención) el 11/06/2013 03:16:32
Un establecimiento de comida rápida desea procesar las ventas del dia. Para ello dispone de los siguientes datos:
Precio del desayuno
Total de dsayunos pedidos
Precio del almuerzo
Total de almuerzos pedidos
Precio de la cena
Total de la cena pedidos
Diseña un algoritmo que imprima lo siguiente
Ingreso por tipo de comida
Ingreso promedio
Total de ingresos por dia



ayudenmeeeeee :(
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

establecimiento de comida rápida

Publicado por ramon (2158 intervenciones) el 13/06/2013 18:52:38
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
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
{Sera Algo Así}
 
 program ventas;
 uses
    crt;
 type
   desayuno = record
        pedidos : integer;
        precio  : real;
        total   : real;
      end;
   almuerzo = record
        pedidos : integer;
        precio  : real;
        total   : real;
      end;
   cena = record
        pedidos : integer;
        precio  : real;
        total   : real;
      end;
 
   conjunto = record
         desa : desayuno;
         almu : almuerzo;
         cen  : cena;
       end;
 
  var
    datos : array[1..100] of conjunto;
    cont  : integer;
 
 
  procedure untradapedidos(cual : char);
  begin
    clrscr;
      cont := cont + 1;
      if cont > 100 then
      cont := 100;
    case upcase(cual) of
  'D' : begin
           writeln('**** Entrada Pedidos Desayonos ****');
           writeln;
           write('   Inidades Pedidas : ');
           readln(datos[cont].desa.pedidos);
           write('   Precio Unidad    : ');
           readln(datos[cont].desa.precio);
           datos[cont].desa.total := (datos[cont].desa.precio *
                                      datos[cont].desa.pedidos);
        end;
  'A' : begin
           writeln('**** Entrada Pedidos Almuerzos ****');
           writeln;
           write('   Inidades Pedidas : ');
           readln(datos[cont].almu.pedidos);
           write('   Precio Unidad    : ');
           readln(datos[cont].almu.precio);
           datos[cont].almu.total := (datos[cont].almu.precio *
                                      datos[cont].almu.pedidos);
        end;
  'C' : begin
           writeln('**** Entrada Pedidos Cenas ****');
           writeln;
           write('   Inidades Pedidas : ');
           readln(datos[cont].cen.pedidos);
           write('   Precio Unidad    : ');
           readln(datos[cont].cen.precio);
           datos[cont].cen.total := (datos[cont].cen.precio *
                                      datos[cont].cen.pedidos);
        end;
    end;
  end;
 
  procedure impresionresultados;
  var
     totaldesa, totalalmu, totalcen : real;
     prome, totaltodo : real;
     i : integer;
  begin
     totaldesa := 0.0;
     totalalmu := 0.0;
     totalcen := 0.0;
     prome := 0.0;
     totaltodo := 0.0;
     clrscr;
     if cont > 0 then
     begin
     for i := 1 to cont do
     begin
         if datos[i].desa.pedidos > 0 then
         begin
            totaldesa := totaldesa + datos[i].desa.total;
         end;
         if datos[i].almu.pedidos > 0 then
         begin
            totalalmu := totalalmu + datos[i].almu.total;
         end;
         if datos[i].cen.pedidos > 0 then
         begin
            totalcen := totalcen + datos[i].cen.total;
         end;
     end;
        clrscr;
        writeln('  Los Resultados Son ');
        writeln;
        writeln('   Desayunos Total : ',totaldesa:0:2);
        writeln('   Almuerzos Total : ',totalalmu:0:2);
        writeln('   Cenas     Total : ',totalcen:0:2);
        writeln('   El Total Dia Es : ', (totaldesa + totalalmu +
                                           totalcen):0:2);
        writeln('   El Promedio Es  : ', (totaldesa + totalalmu +
                                         totalcen) / 3:0:2);
        writeln;
        writeln('   Pulse Una Tecla');
        readkey;
    end
  else
      begin
         writeln('    No Datos Entrados Pulse Una Tecla');
         readkey;
      end;
   end;
 
 
  procedure menu;
   var
      sal : boolean;
      tecla : char;
   begin
      sal := false;
    repeat
      clrscr;
      writeln('   **** Menu Entrada Pedidos ****');
      writeln;
      writeln('   D = Desayunos');
      writeln('   A = Almuerzos');
      writeln('   C = Cenas');
      writeln('   P = Impresion Datos');
      writeln('   S = Salir');
      writeln;
      writeln('  <<< Elija Opcion >>>');
      repeat
      tecla := upcase(readkey);
      until tecla in['D','A','C','P','S'];
  case tecla of
 'D' : untradapedidos('d');
 'A' : untradapedidos('a');
 'C' : untradapedidos('c');
 'P' : impresionresultados;
 'S' : sal := true;
   end;
  until sal = true;
  end;
 
 
  begin
      cont := 0;
      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