Pascal/Turbo Pascal - ayuda por fa urgente un programa en pascal

 
Vista:
sin imagen de perfil

ayuda por fa urgente un programa en pascal

Publicado por carol33 (22 intervenciones) el 01/06/2014 17:02:51
La Clínica “La Mejor”, requiere un sistema automatizado para registrar a los
pacientes que son atendidos, de tal modo, que se puedan obtener datos
específicos tales como: las estadísticas en atención a menores de edad,
adultos mayores, tanto femenino como masculino, los ingresos recaudados
mensualmente según los tipos de patologías atendidas, entre otros. Es
importante destacar, que se han clasificado estas patologías en tres categorías:
las tipo A, las B y las tipo C; y se deberán tomar en cuenta las siguientes
especificaciones, al momento de ser atendidas en la Clínica:
· Los pacientes deberán cancelar Bs. 500 por ingreso a la clínica.
· Deberán pagar diariamente Bs. 550 si son atendidos por patologías
tipo A.
· Bs. 430 si se trata de las tipo B.
· Bs. 620 si es por las tipo C.
Dicho Sistema Automatizado, debe cumplir con las siguientes pautas:
· Presentar un menú de mantenimiento con las opciones siguientes:
 Incluir
 Consultar
 Modificar
 Eliminar
 Reporte
 Salida

Debe registrar, con la opción Incluir, los siguientes datos:
 Cédula de Identidad.
 Apellidos y Nombres.
 Edad.
 Sexo.
 Días de hospitalización.
 Tipo de patologías (A/B/C).
· Debe ordenar el registro de pacientes por el número de la cédula de
identidad.
· Mostrar por pantalla, cuando se consulte a un paciente por su número de
cédula de identidad, toda la información referente al mismo.
· Mostrar por pantalla, en la opción Modificar y en la opción Eliminar, un
mensaje de confirmación, donde el usuario ratifica la acción de modificar
o eliminar datos en el sistema.
· Las opciones Consultar, Modificar y Eliminar, harán uso de los mismos
datos registrados en la opción Incluir.
· La opción Reporte, debe generar un listado impreso que presente la
siguiente información:
 Ingresos recaudados por patologías tipo A.
 Ingresos recaudados por patologías tipo B.
 Ingresos recaudados por patologías tipo C.
 Número de pacientes atendidos menores de 18 años.
 Número de pacientes atendidos mayores de 65 años sexo femenino.
 Número de pacientes atendidos mayores de 65 años sexo masculino.
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
Imágen de perfil de Oscar

ayuda por fa urgente un programa en pascal

Publicado por Oscar (1 intervención) el 01/06/2014 17:03:52
Tienes alguna duda en concreto o solo buscas que te hagamos los deberes....
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
sin imagen de perfil

ayuda por fa urgente un programa en pascal

Publicado por carol33 (22 intervenciones) el 01/06/2014 17:42:18
bueno si me podía ayudar hacerlo yo estudio ing industrial ni idea de programación te lo agradecería.. gracias
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

ayuda por fa urgente un programa en pascal

Publicado por malave lizkeyla (1 intervención) el 10/07/2014 23:06:19
COMO SE PRUEBA EL ALGOORITMO USANDO EL CONCEPTO DE ROBUSTEZ
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

ayuda por fa urgente un programa en pascal

Publicado por ramon (2158 intervenciones) el 02/06/2014 00:36:27
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
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
{Espero esto te ayude}
 
 program clinica;
  uses
    crt, dos;
 
  const
     patoA = 550;
     patoB = 430;
     patoC = 620;
     ingres = 500;
     archi = 'Datospac.dat';
 
  type
     string12 = string[12];
     paciente = record
           activo : boolean;
           nombre : string[80];
           apells : string;
           numpac : longint;
           edad   : integer;
           sexo   : char;
           patolg : char;
          ingreso : real;
          tiempo  : integer;
          fechent : string[12];
          fechalt : string[12];
          total   : real;
        end;
 
   var
     f : file of paciente;
     datos : paciente;
     ayo, mes, dia, sem : word;
 
    function guardardatos(dd : paciente) : boolean;
    var
      tt : longint;
      dt : paciente;
      err : boolean;
    begin
       guardardatos := false;
       assign(f,archi);
   {$I-} reset(f); {$I+}
      if ioresult <> 0 then
      begin
         rewrite(f);
         seek(f,0);
         write(f,dd);
         close(f);
         guardardatos := true;
      end
  else
      begin
          seek(f,filesize(f));
          write(f,dd);
          close(f);
          guardardatos := true;
      end;
    end;
 
    function diaingreso : string12;
    var
      comm, comd : string[2];
      coma : string[4];
    begin
        getdate(ayo,mes,dia,sem);
        str(ayo,coma);
        str(mes,comm);
        str(dia,comd);
        if length(comd) = 1 then
        insert('0',comd,1);
        if length(comm) = 1 then
        insert('0',comm,1);
        diaingreso := comd + '/' + comm + '/' + coma;
    end;
 
    procedure entradapaciente;
    var
      tec : char;
    begin
       clrscr;
          writeln('***** Ingreso Paciente *****');
          writeln;
          with datos do
          begin
             activo := true;
             write('   Entre Nombre         : ');
             readln(nombre);
             write('   Entre Apellidos      : ');
             readln(apells);
             write('   Entre Num. Pacit.    : ');
             readln(numpac);
             write('   Entre Edad           : ');
             readln(edad);
             write('   Entre Sexo [F/M]     : ');
             readln(sexo);
             write('   Entre Patol. [A/B/C] : ');
             readln(patolg);
             ingreso := ingres;
             fechent := diaingreso;
             writeln;
             writeln('  >>> Acectar Datos [S/N] <<<');
             repeat
                 tec := upcase(readkey);
             until tec in['S','N'];
            if tec = 'S' then
            begin
              if guardardatos(datos) = true then
              writeln(' Datos De Paciente Guardados ')
           else
              writeln(' Error El Numero Paciente Existe No Guardado ');
              writeln(' Pulse Una Tecla ');
            end;
        end;
    end;
 
    procedure consultar(num : longint);
    var
      tt : longint;
      dto : paciente;
      si : boolean;
    begin
        si := false;
        tt := 0;
        assign(f,archi);
    {$I-} reset(f); {$I+}
      if ioresult <> 0 then
      begin
         writeln('  Error Archivo No Encontrado Pulse Una Tecla');
         readkey;
      end
   else
       begin
          for tt := 0 to filesize(f) - 1 do
          begin
             seek(f,tt);
             read(f,dto);
             if dto.numpac = num then
             begin
                 si := true;
                 break;
             end;
          end;
            if si = true then
            begin
               if dto.activo = true then
               begin
               with dto do
               begin
                writeln('  Nombre          = ',nombre);
                writeln('  Apellidos       = ',apells);
                writeln('  Numero Paciente = ',numpac);
                case edad of
             0..18 : writeln('  Categoria       = Menor De Edad');
            19..64 : writeln('  Categoria       = Adulto');
           65..107 : writeln('  Categoria       = Mayor');
               end;
                writeln('  Patologia       = ',patolg);
                writeln('  Importe Ingreso = ',ingreso:0:2);
                writeln('  Fecha Ingreso   = ',fechent);
               if fechalt <> ' ' then
                writeln('  Fecha Actual    = ',fechalt)
             else
                writeln('  Fecha Actual    = ',diaingreso);
                writeln('  Total Importe   = ',total:0:2);
                writeln;
               end;
              end
           else
              writeln('  El Paciente No Esta En Lista ');
            end
         else
            writeln('  Numero Paciente No Encontrado ');
            writeln('  Pulse Una Tecla');
            readkey;
       end;
    end;
 
   procedure modificadatos(num : longint);
   var
     mo, mdi : paciente;
     kk, jh : longint;
     term : boolean;
     deci : char;
    begin
       term := false;
       assign(f,archi);
    {$I-} reset(f); {$I+}
      if ioresult <> 0 then
      begin
         writeln('  Error Archivo No Encontrado Pulse Una Tecla');
         readkey;
      end
   else
       begin
          for jh := 0 to filesize(f) - 1 do
          begin
             seek(f,jh);
             read(f,mdi);
             if mdi.numpac = num then
             begin
                 term := true;
                 kk := jh;
                 mo := mdi;
                 break;
             end;
          end;
            if term = true then
            begin
              if mdi.activo = true then
              begin
              term := false;
              repeat
               clrscr;
            writeln('  ***** Menu Modificaciones *****');
            writeln;
            writeln('  N = Nombre');
            writeln('  A = Apellidos');
            writeln('  P = Num. Paciente');
            writeln('  E = Edad');
            writeln('  G = Patologia');
            writeln('  F = Fecha Ingreso');
            writeln('  S = Salir Y Guardar Cambios');
            writeln;
            writeln('  <<< Elija Opcion >>>');
            repeat
                deci := upcase(readkey);
            until deci in['N','A','P','E','G','F','S'];
            clrscr;
      case deci of
  'N' : begin
         write(' Nombre : ');
         readln(mo.nombre);
       end;
  'A' : begin
         write(' Apellidos : ');
         readln(mo.apells);
       end;
  'P' : begin
         write(' Num. Paciente : ');
         readln(mo.numpac);
       end;
  'E' : begin
         write(' Edad : ');
         readln(mo.edad);
       end;
  'G' : begin
         write(' Patologia: ');
         readln(mo.patolg);
       end;
  'F' : begin
         write(' Fecha Ingreso : ');
         readln(mo.fechent);
       end;
  'S' : begin
         term := true;
       end;
     end;
     until term = true;
     mdi := mo;
     seek(f,kk);
     write(f,mdi);
    end;
   end;
     close(f);
  end;
 end;
 
    procedure eliminapaciente(num : longint);
    var
      bn, hh : longint;
    begin
      assign(f,archi);
    {$I-} reset(f); {$I+}
      if ioresult <> 0 then
      begin
         writeln('  Error Archivo No Encontrado Pulse Una Tecla');
         readkey;
      end
   else
       begin
          bn := 0;
          for hh := 0 to filesize(f) - 1 do
          begin
             seek(f,hh);
             read(f,datos);
             if datos.numpac <> num then
             begin
             end
          else
             begin
                datos.activo := false;
                seek(f,hh);
                write(f,datos);
             end;
          end;
           close(f);
      end;
    end;
 
   procedure reportefinal(num : longint);
   var
     totl : real;
     pul : char;
     pos, tt : longint;
     sil : boolean;
     d, m, an : word;
     d1, m1, an1 : word;
     d3, m3, an3 : word;
     dar : string[2];
     ay : string[4];
     totaldias, error : integer;
   begin
       assign(f,archi);
    {$I-} reset(f); {$I+}
      if ioresult <> 0 then
      begin
         writeln('  Error Archivo No Encontrado Pulse Una Tecla');
         readkey;
      end
   else
       begin
       sil := false;
       for tt := 0 to filesize(f) - 1 do
       begin
           seek(f,tt);
           read(f,datos);
           if datos.numpac = num then
           begin
              sil := true;
              pos := tt;
              break;
           end;
       end;
         if sil = true then
         begin
            if datos.activo = true then
            begin
            writeln('   Entrada Fecha Alta Como [A]=Automatico O [M]=Manual');
            repeat
                pul := upcase(readkey);
            until pul in['A','M'];
            if pul = 'A' then
            datos.fechalt := diaingreso;
            if pul = 'M' then
            begin
               writeln('  Entre Fecha De Alta d/m/a¤o ');
               writeln;
               write('   Fecha : ');
               readln(datos.fechalt);
               if datos.fechalt[2] = '/' then
               insert('0',datos.fechalt,1);
               if datos.fechalt[5] = '/' then
               insert('0',datos.fechalt,4);
            end;
            dar := copy(datos.fechent,1,2);
            val(dar,d,error);
            dar := copy(datos.fechent,4,2);
            val(dar,m,error);
            ay := copy(datos.fechent,7,4);
            val(ay,an,error);
            dar := copy(datos.fechalt,1,2);
            val(dar,d1,error);
            dar := copy(datos.fechalt,4,2);
            val(dar,m1,error);
            ay := copy(datos.fechalt,7,4);
            val(ay,an1,error);
            d3 := 0;
            m3 := 0;
            an3 := 0;
            d3 := d1 - d;
            m3 := m1 - m;
            an3 := an1 - an;
            totaldias := (m3 * 30) + d3;
            if (datos.patolg = 'A') or (datos.patolg = 'a') then
            begin
               datos.total := (patoA * totaldias);
            end;
            if (datos.patolg = 'B') or (datos.patolg = 'b') then
            begin
               datos.total := (patoB * totaldias);
            end;
            if (datos.patolg = 'C') or (datos.patolg = 'c') then
            begin
               datos.total := (patoC * totaldias);
            end;
            datos.activo := false;
            clrscr;
            writeln('  ***** Reporte De Alta *****');
            writeln;
            writeln('  Fecha De Ingreso = ',datos.fechent);
            writeln('  Fecha De Alta    = ',datos.fechalt);
            writeln('  Dias De Ingreso  = ',totaldias);
            writeln('  Patologia        = ',datos.patolg);
            writeln('  Total Importe    = ',datos.total:0:2);
            writeln;
            writeln('  <<< Pulse Una Tecla >>>');
            readkey;
            seek(f,pos);
            write(f,datos);
            close(f);
         end
    else
        begin
          writeln('  El Paciente No Esta Actovo ');
          writeln('  <<< Pulse Una Tecla >>>');
          readkey;
          close(f);
        end;
      end;
   end;
 end;
 
    procedure menu;
    var
      tecla : char;
      sal : boolean;
      nnm : longint;
    begin
       sal := false;
    repeat
        clrscr;
        writeln('   ***** Menu Jeneral *****');
        writeln;
        writeln('   I = Incluir');
        writeln('   C = Consultar');
        writeln('   M = Modificar');
        writeln('   E = Eliminar');
        writeln('   R = Reporte Alta');
        writeln('   S = Salir');
        writeln;
        writeln('   <<< Elija Opcion >>>');
      repeat
          tecla := upcase(readkey);
      until tecla in['I','C','M','E','R','S'];
      clrscr;
    case tecla of
  'I' : entradapaciente;
  'C' : begin
          write('   Entre Num. Paciente : ');
          readln(nnm);
          consultar(nnm);
        end;
  'M' : begin
        write('   Entre Num. Paciente : ');
        readln(nnm);
        modificadatos(nnm);
        end;
  'E' : begin
           write('   Entre Num. Paciente : ');
           readln(nnm);
           eliminapaciente(nnm);
        end;
  'R' : begin
          write('   Entre Num. Paciente : ');
          readln(nnm);
          reportefinal(nnm);
        end;
  'S' : sal := true;
    end;
    until sal = true;
  end;
 
    begin
        clrscr;
        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
sin imagen de perfil

ayuda por fa urgente un programa en pascal

Publicado por carol33 (22 intervenciones) el 02/06/2014 01:18:07
muchas gracias por su ayuda.
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
sin imagen de perfil

ayuda por fa urgente un programa en pascal

Publicado por carol33 (22 intervenciones) el 06/06/2014 04:29:03
buenas noches oscar sabe q falto incluir cédula de identidad tiene que estar en todos lo menu.. gracias espero pronto una respuesta
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
sin imagen de perfil

ayuda por fa urgente un programa en pascal

Publicado por carol33 (22 intervenciones) el 16/06/2014 23:56:37
hola buenas tardes mira me puedes ayudar en la parte q falta lo de cédula.. disculpe y gracias..
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
sin imagen de perfil

ayuda por fa urgente un programa en pascal

Publicado por pedro (1 intervención) el 26/06/2014 14:19:21
amigo yo copie este programa para practicar y cuando trato de compilar me da un error que no reconoce readkey. por favor me podrias 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
sin imagen de perfil

ayuda por fa urgente un programa en pascal

Publicado por José Noel (4 intervenciones) el 18/07/2014 17:54:12
Buenos días. Amigo copia el programa nuevamente de donde lo tomaste ó si tu lo hiciste, copia y pega en el editor de block de nota de microsoft window lo guardas y lo abres de nuevo. luego copias y pegas en el editor de free pascal lo compilas y si te sale succesful exit. guardalo con extensión .pas. luego lo corres
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
sin imagen de perfil

ayuda por fa urgente un programa en pascal

Publicado por José Noel (4 intervenciones) el 18/07/2014 05:34:25
Saludos a los compañeros. Hice la prueba del programa y funciona, pero el procedimiento de reporte final no es lo que piden. Si me pudieran enviar al menos el bloque del reporte para concatenar al programa, sería estupendo. De antemano les agradezco ya que tengo el programa casi listo
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

ayuda por fa urgente un programa en pascal

Publicado por ramon (39 intervenciones) el 18/07/2014 10:22:11
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
{Este es el reporte actual me puedes decir que es lo que te piden para prepararte el proceso}
 
procedure reportefinal(num : longint);
   var
     totl : real;
     pul : char;
     pos, tt : longint;
     sil : boolean;
     d, m, an : word;
     d1, m1, an1 : word;
     d3, m3, an3 : word;
     dar : string[2];
     ay : string[4];
     totaldias, error : integer;
   begin
       assign(f,archi);
    {$I-} reset(f); {$I+}
      if ioresult <> 0 then
      begin
         writeln('  Error Archivo No Encontrado Pulse Una Tecla');
         readkey;
      end
   else
       begin
       sil := false;
       for tt := 0 to filesize(f) - 1 do
       begin
           seek(f,tt);
           read(f,datos);
           if datos.numpac = num then
           begin
              sil := true;
              pos := tt;
              break;
           end;
       end;
         if sil = true then
         begin
            if datos.activo = true then
            begin
            writeln('   Entrada Fecha Alta Como [A]=Automatico O [M]=Manual');
            repeat
                pul := upcase(readkey);
            until pul in['A','M'];
            if pul = 'A' then
            datos.fechalt := diaingreso;
            if pul = 'M' then
            begin
               writeln('  Entre Fecha De Alta d/m/a¤o ');
               writeln;
               write('   Fecha : ');
               readln(datos.fechalt);
               if datos.fechalt[2] = '/' then
               insert('0',datos.fechalt,1);
               if datos.fechalt[5] = '/' then
               insert('0',datos.fechalt,4);
            end;
            dar := copy(datos.fechent,1,2);
            val(dar,d,error);
            dar := copy(datos.fechent,4,2);
            val(dar,m,error);
            ay := copy(datos.fechent,7,4);
            val(ay,an,error);
            dar := copy(datos.fechalt,1,2);
            val(dar,d1,error);
            dar := copy(datos.fechalt,4,2);
            val(dar,m1,error);
            ay := copy(datos.fechalt,7,4);
            val(ay,an1,error);
            d3 := 0;
            m3 := 0;
            an3 := 0;
            d3 := d1 - d;
            m3 := m1 - m;
            an3 := an1 - an;
            totaldias := (m3 * 30) + d3;
            if (datos.patolg = 'A') or (datos.patolg = 'a') then
            begin
               datos.total := (patoA * totaldias);
            end;
            if (datos.patolg = 'B') or (datos.patolg = 'b') then
            begin
               datos.total := (patoB * totaldias);
            end;
            if (datos.patolg = 'C') or (datos.patolg = 'c') then
            begin
               datos.total := (patoC * totaldias);
            end;
            datos.activo := false;
            clrscr;
            writeln('  ***** Reporte De Alta *****');
            writeln;
            writeln('  Fecha De Ingreso = ',datos.fechent);
            writeln('  Fecha De Alta    = ',datos.fechalt);
            writeln('  Dias De Ingreso  = ',totaldias);
            writeln('  Patologia        = ',datos.patolg);
            writeln('  Total Importe    = ',datos.total:0:2);
            writeln;
            writeln('  <<< Pulse Una Tecla >>>');
            readkey;
            seek(f,pos);
            write(f,datos);
            close(f);
         end
    else
        begin
          writeln('  El Paciente No Esta Actovo ');
          writeln('  <<< Pulse Una Tecla >>>');
          readkey;
          close(f);
        end;
      end;
   end;
 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

ayuda por fa urgente un programa en pascal

Publicado por lisbeth (10 intervenciones) el 18/07/2014 13:15:37
buena este es lo que piden

La opción Reporte, debe generar un listado impreso que presente la
siguiente información:
 Ingresos recaudados por patologías tipo A.
 Ingresos recaudados por patologías tipo B.
 Ingresos recaudados por patologías tipo C.
 Número de pacientes atendidos menores de 18 años.
 Número de pacientes atendidos mayores de 65 años sexo femenino.
 Número de pacientes atendidos mayores de 65 años sexo masculino.

yo también probé el programa, hace falta ordenar por cedula. gracias
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
sin imagen de perfil

ayuda por fa urgente un programa en pascal

Publicado por Gregory (2 intervenciones) el 12/08/2014 19:28:05
Hola Ramón, los reportes deben ser generales, debemos indicar los ingresos por cada patología e indicar cuantos pacientes son menores de edad y cuantos son mayores de 65 años, tanto masculinos como femeninos.
es lo único que falta para terminar el programa!!!!
Agradecidos con tu ayuda!
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
sin imagen de perfil

ayuda por fa urgente un programa en pascal

Publicado por José Noel (4 intervenciones) el 18/07/2014 17:43:57
Amigo Ramón lisbeth envío lo que piden en el reporte, es el mismo trabajo. es una especie de totalización de ingresos por patologías A/B/C. Y número de pacientes menores de 18 años y números de pacientes mayores de 65 años femeninos y masculinos respectivamente. Lisbeth lo muestra en el mensaje textualmente. Echale un vistazo y danos una manito.
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
sin imagen de perfil

ayuda por fa urgente un programa en pascal

Publicado por José Noel (4 intervenciones) el 06/08/2014 06:45:36
A todos los compañeros que están en este sitio y que me orientaron para resolver el trabajo practico en donde salí excelente, ya que abarcaba (El trabajo) 4 objetivos, los cuales los aprobé en la defensa y en la corrida del programa. A todos esos verdugos de la programación muchas gracias por sus aportes, me dieron muchas luces para presentar dicho trabajo de forma impecable.

Los saludo desde Venezuela, hasta la próxima ocasión.
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
Imágen de perfil de jose

ayuda por fa urgente un programa en pascal

Publicado por jose (3 intervenciones) el 06/06/2014 19:55:08
amigo ramón agradezco tu valioso aporte pero falto la parte de incluir cedulas en todo el programa por favor si puedes modificarlo te lo agradecería grandemente
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

ayuda por fa urgente un programa en pascal

Publicado por ramon (2158 intervenciones) el 17/06/2014 10:52:26
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
{ Fijate en esto quizas no tenga el nombre que tu le das pero es lo mismo
 
paciente = record
           activo : boolean;
           cedula : longint;
           nombre : string[80];
           apells : string;
           numpac : longint;  [ Esto es numero cedula si lo prefieres llamar asi]
           edad   : integer;
           sexo   : char;
           patolg : char;
          ingreso : real;
          tiempo  : integer;
          fechent : string[12];
          fechalt : string[12];
          total   : real;
        end;
  Espero sea esto lo que pides}
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
sin imagen de perfil

ayuda por fa urgente un programa en pascal

Publicado por carol33 (22 intervenciones) el 25/06/2014 01:48:03
GRACIAS POR SU AYUDA SALÍ BIEN..
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