Pascal/Turbo Pascal - ¿INFORMATICA! diseñar Pseudocodigo para este enunciado en pascal:

   
Vista:
Imágen de perfil de Jose

¿INFORMATICA! diseñar Pseudocodigo para este enunciado en pascal:

Publicado por Jose jmiguelrm22@hotmail.com (2 intervenciones) el 20/05/2015 23:21:03
"se esta realizando una encuesta, sexo, edad y estado civil, determinar: A) cuantas personas son mayores de 30 años. B) cuantas personas del sexo femenino hay en total? C) cuantas personas del sexo masculino hay en total? D) cuantas personas del sexo masculinos casados se encuestaron. E) cuantas personas del sexo femenino solteras se encuentaron. F) cuantas personas viudas se encuestaron?. eso es todo espero pronta respuesta gracias de ante mano!

TURBO PASCAL!!
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

¿INFORMATICA! diseñar Pseudocodigo para este enunciado en pascal:

Publicado por dario (41 intervenciones) el 21/05/2015 10:54:22
Te dejo el codigo en pascal.
Saludos.

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
uses crt;
type
    persona=record
        sexo:char;
        edad:byte;
        ec:char; {estado civil}
    end;
var
   mayores,femenino,masculino,mc,fc,v:integer;
   flag:boolean;
   datos:persona;
begin
     clrscr;
     flag:=true;
     while flag do begin
         write('Edad:');
         readln(datos.edad);
 
         if datos.edad > 30 then
            mayores:=mayores+1;
 
         if datos.edad = 0
            then
                flag:=false
            else
                begin
                    write('Sexo [M]asculino, [F]emenino:');
                    readln(datos.sexo);
                    if datos.sexo = 'F' then
                       femenino:=femenino+1
                    else
                        masculino:=masculino+1;
                    write('Estado civil [S]oltero, [C]asado, [V]iudo, [D]ivorciado:');
                    readln(datos.ec);
                    if (datos.sexo = 'M') and (datos.ec = 'C') then
                        mc:=mc+1;
                    if (datos.sexo = 'F') and (datos.ec = 'C') then
                       fc:=fc+1;
                    if datos.ec = 'V' then
                       v:=v+1;
                end;
     end;
     writeln('Mayores de 30 anios:',mayores);
     writeln('Personas de sexo femenino:',femenino);
     writeln('Personas de sexo masculino:',masculino);
     writeln('Hombres casados:',mc);
     writeln('Mujeres casadas:',fc);
     writeln('Mujeres viudas:',v);
     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
2
Comentar
Imágen de perfil de Jose

¿INFORMATICA! diseñar Pseudocodigo para este enunciado en pascal:

Publicado por Jose jmiguelrm22@hotmail.com (2 intervenciones) el 21/05/2015 13:10:53
Muchisimas gracias estimado dario, anoche pude hacerlo y bueno ahora que veo el que me mandaste quedo igual, solo las varibles un poco diferente, de todas manera gracias de verdad futuro colega ;)
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