Pascal/Turbo Pascal - pascal

   
Vista:

pascal

Publicado por Sara (6 intervenciones) el 11/11/2013 07:47:33
Hola me podrian por favor ayudar con la modiicacion de un programa: tengo el codigo que voy a modificar de modo que el programa tambien imprima cuantas personas tienenun numero de identificacion no valido y cuantas las tienen bien, y si hay o no el mismo numero de personas en cada grupo. Haga que el cuerpo principal del programa llame a los procedimientos DECIDE e IMPRIME TOTAL

este es el codigo
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
program ejercicio14;
 
uses wincrt;
var  nombre_empleado:string; numero_identificacion:integer;
     archivo:text;
 
procedure decide;
    var  centena,decena,unidad:integer;
 
begin
     assign(archivo,'identificacion.dat');
     reset(archivo);
 
while not eof( archivo ) do begin
      readln(archivo, nombre_empleado );
      writeln( '      Nombre: ', nombre_empleado );
      readln(archivo,numero_identificacion);
      writeln( '      Numero de identificacion :',numero_identificacion);
 
        centena:= numero_identificacion div 100;
        decena:= ( numero_identificacion div 10 ) mod 10;
        unidad:= numero_identificacion mod 10;
 
        if centena = decena +  unidad then
           writeln('      Todo Correcto')
        else
           Writeln('      La clave que ingresastes no es correcta');
 
    end;
end;
 
begin
decide;
end.

y este es el archivo de texto

Josias
211
Maria
122
Karla
532
Mario
981
Luis
633
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

pascal

Publicado por ramon (2072 intervenciones) el 11/11/2013 13:22:58
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
{Mira esto es lo que quieres}
 
program ejercicio14;
 uses
   wincrt;
 var
    nombre_empleado : string;
    numero_identificacion : integer;
    archivo : text;
    totalsi, totalno : integer;
 
  procedure decide;
  var
    centena, decena, unidad : integer;
    begin
       totalno := 0;
       totalsi := 0;
       assign(archivo,'identifi.dat');
       reset(archivo);
      while not eof(archivo) do
      begin
        readln(archivo,nombre_empleado);
        readln(archivo,numero_identificacion);
        centena := numero_identificacion div 100;
        decena := ( numero_identificacion div 10 ) mod 10;
        unidad := numero_identificacion mod 10;
        if centena = decena +  unidad then
        begin
           writeln;
           writeln('      Nombre: ', nombre_empleado );
           writeln('      Numero de identificacion :',numero_identificacion);
           writeln('      Todo Correcto');
           totalsi := totalsi + 1;
         end
        else
           begin
           writeln;
           writeln('               Nombre: ', nombre_empleado );
           writeln('               Numero de identificacion :',numero_identificacion);
           Writeln('               La clave que ingresastes no es correcta');
           totalno := totalno + 1;
        end;
    end;
end;
 
begin
clrscr;
decide;
writeln;
writeln('   Total Ok    = ',totalsi);
writeln('   Total No Ok = ',totalno);
if totalsi = totalno then
  writeln('   Hay Las Mismas Personas En cada Grupo : Si')
 else
  writeln('   Hay Las Mismas Personas En cada Grupo : No');
readkey;
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