• Lenguaje

    Pascal

  • Descripción

    Determinar el costo que tendrá que realizar n llamadas telefónicas con base en el tiempo (en segundos) que dura la llamada y en costo por minuto.

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

var costo_por_llamada, i, minutos, n, tiempo_en_segundos : integer;
var costo_por_minuto, costo_total : real;
begin
    costo_total := 0;
    write ('Ingresa el valor de costo por minuto: ');
    readln (costo_por_minuto);
    write ('Ingresa el valor de n: ');
    readln (n);
    for i:=1 to n do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el valor de tiempo en segundos: ');
        readln (tiempo_en_segundos);
        minutos := (tiempo_en_segundos-tiempo_en_segundos mod 60) div 60;
        if tiempo_en_segundos mod 60<>0 then
            begin
                minutos := minutos+1;
            end;
        costo_por_llamada := costo_por_minuto*minutos;
        costo_total := costo_total+costo_por_llamada;
        writeln ('Valor de costo por llamada: ', costo_por_llamada);
        writeln ('Valor de minutos: ', minutos);
        writeln;
    end;
    writeln ('Valor de costo total: ', costo_total:0:6);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.