• Lenguaje

    Pascal

  • Descripción

    Acepte nombre, apellido, cédula, sueldo_b y total de descuento (TD). Calcule el sueldo_N (sueldo_N=sueldo_b-TD), si el sueldo_N es mayor o igual a $15,000, entonces descuente un 2% del mismo para la cooperativa de empleados, de lo contrario sólo descuente un 1%, e imprima todas estas variables para 10 empleados.

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
program DescuentoParaLaCooperativa;
uses crt;

var i : integer;
var TD, cooperativa, sueldo_N, sueldo_b : real;
var nombre, apellido, cedula : string;
begin
    for i:=1 to 10 do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el nombre: ');
        readln (nombre);
        write ('Ingresa el apellido: ');
        readln (apellido);
        write ('Ingresa el cedula: ');
        readln (cedula);
        write ('Ingresa el valor de TD: ');
        readln (TD);
        write ('Ingresa el valor de sueldo b: ');
        readln (sueldo_b);
        sueldo_N := sueldo_b-TD;
        if sueldo_N>=15000 then
            begin
                cooperativa := sueldo_N*0.02;
            end
        else
            begin
                cooperativa := sueldo_N*0.01;
            end;
        writeln ('Nombre: ', nombre);
        writeln ('Apellido: ', apellido);
        writeln ('Cedula: ', cedula);
        writeln ('Valor de cooperativa: ', cooperativa:0:6);
        writeln ('Valor de sueldo N: ', sueldo_N:0:6);
        writeln;
    end;
end.