• 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.00
    - Dt = 20.00
    - Pg = 35.00

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
program CursoEnUnTecnologico;
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 := 10;
            end;
        if procedencia=2 then
            begin
                tarifa := 20;
            end;
        if procedencia=3 then
            begin
                tarifa := 35;
            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.