Algoritmia - PEQUEÑA AYUDA

   
Vista:

PEQUEÑA AYUDA

Publicado por Rodrigo Brayan Cardenas Salcedo boyxd969@gmail.com (1 intervención) el 06/06/2016 18:52:02
Se tiene un conjunto de 1,000 tarjetas cada una contiene la información del censo para una persona. Número de censo, Sexo, Edad, Estado civil (A,- soltero, B. Casado, C. Viudo, D. Divorciado) Diseñe un programa que lea todos estos datos; e imprima el número de censo de todas las jóvenes solteras que estén entre 16 y 21 años.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
-1
Responder

PEQUEÑA AYUDA

Publicado por dario (49 intervenciones) el 07/06/2016 07:22:26
Te dejo una muestra hecha en pascal

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
uses crt;
const
    max=1000;
type
    censo=record
        numero:integer;
        sexo:char;
        edad:byte;
        estadoCivil:char;
    end;
var
    tarjetas:array[1..max] of censo;
    i,j:word;
    seguir:boolean;
begin
    clrscr;
    seguir:=true;
    i:=1;
    while seguir do
    begin
        writeln('Tarjeta numero ',i); writeln;
        with tarjetas[i] do
        begin
            write('Numero de censo (0 para terminar): '); readln(numero);
            if numero=0 then
                seguir:=false
            else
            begin
                write('Sexo (F=Femenino, M=Masculino): '); readln(sexo);
                write('Edad: '); readln(edad);
                write('Estado civil [A]=Soltero, [B]=Casado, [C]=Viudo, [D]=Divorciado: '); readln(estadoCivil);
                inc(i);
                clrscr;
            end;
        end;
    end;
 
    {muestra resultado}
    for j:=1 to i do
    begin
        with tarjetas[j] do
        begin
            if (sexo='F') and (estadoCivil='S') and (edad>=16) and (edad<=21) then
                writeln('Numero de censo: ',numero);
        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