-
Lenguaje
Pascal
-
Descripción
Pida el nombre de un usuario y código de seguro y salud y muestre lo siguiente:
a) Si el código de seguro es 20 o 21 muestre día "Cita Lunes".
b) Si el código de seguro es 22 o 23 muestre día "Cita Martes".
c) Si el código de seguro es 24 o 25 muestre día "Cita Miércoles".
d) Si el código de seguro es 26 o 27 muestre día "Cita Jueves".
e) Si el código de seguro es 28 o 29 muestre día "Cita Viernes".
f) Si es un numero diferente a los mencionados debe mostrar "Código no válido".
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
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
program CitaPorCodigoDeSeguro;
uses crt;
var codigo_de_seguro : integer;
var nombre_de_usuario : string;
begin
write ('Ingresa el nombre de usuario: ');
readln (nombre_de_usuario);
write ('Ingresa el valor de codigo de seguro: ');
readln (codigo_de_seguro);
if (codigo_de_seguro=20) or (codigo_de_seguro=21) then
begin
writeln ('Cita Lunes');
end;
if (codigo_de_seguro=22) or (codigo_de_seguro=23) then
begin
writeln ('Cita Martes');
end;
if (codigo_de_seguro=24) or (codigo_de_seguro=25) then
begin
writeln ('Cita Mi'#130'rcoles');
end;
if (codigo_de_seguro=26) or (codigo_de_seguro=27) then
begin
writeln ('Cita Jueves');
end;
if (codigo_de_seguro=28) or (codigo_de_seguro=29) then
begin
writeln ('Cita Viernes');
end;
if (codigo_de_seguro<20) or (codigo_de_seguro>29) then
begin
writeln ('C'#162'digo no v'#160'lido');
end;
writeln ('Nombre de usuario: ', nombre_de_usuario);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var codigo_de_seguro : integer;
var nombre_de_usuario : string;
begin
write ('Ingresa el nombre de usuario: ');
readln (nombre_de_usuario);
write ('Ingresa el valor de codigo de seguro: ');
readln (codigo_de_seguro);
if (codigo_de_seguro=20) or (codigo_de_seguro=21) then
begin
writeln ('Cita Lunes');
end;
if (codigo_de_seguro=22) or (codigo_de_seguro=23) then
begin
writeln ('Cita Martes');
end;
if (codigo_de_seguro=24) or (codigo_de_seguro=25) then
begin
writeln ('Cita Mi'#130'rcoles');
end;
if (codigo_de_seguro=26) or (codigo_de_seguro=27) then
begin
writeln ('Cita Jueves');
end;
if (codigo_de_seguro=28) or (codigo_de_seguro=29) then
begin
writeln ('Cita Viernes');
end;
if (codigo_de_seguro<20) or (codigo_de_seguro>29) then
begin
writeln ('C'#162'digo no v'#160'lido');
end;
writeln ('Nombre de usuario: ', nombre_de_usuario);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.