-
Lenguaje
Pascal
-
Descripción
Un tecnológico, ofrece un curso “x” y desea realizar un algoritmo que permita determinar y dar como salida la cantidad de dinero recaudado por concepto del curso; teniendo en cuenta que se tiene por cada participante la siguiente información:
- Cédula de identidad
- Nombre del participante
- Procedencia (At = Alumno del Tecnológico, Dt = Docente del Tecnológico, Pg = Publico en General).
Tomando en cuenta que la procedencia se cobra de la siguiente tarifa:
- At = $10,000
- Dt = $20,000
- Pg = $35,000
Nota: El cupo para el curso no es limitado.
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
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
program CursoEnUnTecnologico2;
uses crt;
var dinero_recaudado, procedencia, tarifa : integer;
var cedula_de_identidad, nombre_del_participante : string;
var tecla_repetir : char;
begin
dinero_recaudado := 0;
repeat
clrscr;
write ('Ingresa el cedula de identidad: ');
readln (cedula_de_identidad);
write ('Ingresa el nombre del participante: ');
readln (nombre_del_participante);
tarifa := 0;
writeln ('Selecciona el valor de procedencia.');
writeln (' 1.- At = Alumno del tecnol'#162'gico');
writeln (' 2.- Dt = Docente del tecnol'#162'gico');
writeln (' 3.- Pg = P'#163'blico en general');
write (' : ');
repeat
readln (procedencia);
if (procedencia<1) or (procedencia>3) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (procedencia>=1) and (procedencia<=3);
if procedencia=1 then
begin
tarifa := 10000;
end;
if procedencia=2 then
begin
tarifa := 20000;
end;
if procedencia=3 then
begin
tarifa := 35000;
end;
dinero_recaudado := dinero_recaudado+tarifa;
writeln ('Cedula de identidad: ', cedula_de_identidad);
writeln ('Nombre del participante: ', nombre_del_participante);
writeln ('Valor de tarifa: ', tarifa);
writeln;
write (#168'Deseas repetir el proceso? (S/N): ');
repeat
tecla_repetir := readkey;
until (tecla_repetir = 's') or (tecla_repetir = 'n') or (tecla_repetir = 'S') or (tecla_repetir = 'N');
until (tecla_repetir <> 's') and (tecla_repetir <> 'S');
writeln ('Valor de dinero recaudado: ', dinero_recaudado);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var dinero_recaudado, procedencia, tarifa : integer;
var cedula_de_identidad, nombre_del_participante : string;
var tecla_repetir : char;
begin
dinero_recaudado := 0;
repeat
clrscr;
write ('Ingresa el cedula de identidad: ');
readln (cedula_de_identidad);
write ('Ingresa el nombre del participante: ');
readln (nombre_del_participante);
tarifa := 0;
writeln ('Selecciona el valor de procedencia.');
writeln (' 1.- At = Alumno del tecnol'#162'gico');
writeln (' 2.- Dt = Docente del tecnol'#162'gico');
writeln (' 3.- Pg = P'#163'blico en general');
write (' : ');
repeat
readln (procedencia);
if (procedencia<1) or (procedencia>3) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (procedencia>=1) and (procedencia<=3);
if procedencia=1 then
begin
tarifa := 10000;
end;
if procedencia=2 then
begin
tarifa := 20000;
end;
if procedencia=3 then
begin
tarifa := 35000;
end;
dinero_recaudado := dinero_recaudado+tarifa;
writeln ('Cedula de identidad: ', cedula_de_identidad);
writeln ('Nombre del participante: ', nombre_del_participante);
writeln ('Valor de tarifa: ', tarifa);
writeln;
write (#168'Deseas repetir el proceso? (S/N): ');
repeat
tecla_repetir := readkey;
until (tecla_repetir = 's') or (tecla_repetir = 'n') or (tecla_repetir = 'S') or (tecla_repetir = 'N');
until (tecla_repetir <> 's') and (tecla_repetir <> 'S');
writeln ('Valor de dinero recaudado: ', dinero_recaudado);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.