Torneo de apertura en lenguaje Pascal

Lenguaje

Pascal
Descripción

Ingresar el número de partidos ganados, perdidos y empatados, de los equipos que participan en el torneo de apertura. Se debe de mostrar el puntaje total, considerando que cada partido ganado obtendrá 3 puntos, empatado 1 punto y perdido 0 puntos.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

program TorneoDeApertura;

uses crt;

var partidos_empatados, partidos_ganados, partidos_perdidos, puntaje_total : integer;

var tecla_repetir : char;

begin

    repeat

        clrscr;

        write ('Ingresa el valor de partidos empatados: ');

        readln (partidos_empatados);

        write ('Ingresa el valor de partidos ganados: ');

        readln (partidos_ganados);

        write ('Ingresa el valor de partidos perdidos: ');

        readln (partidos_perdidos);

        puntaje_total := partidos_ganados*3+partidos_empatados+partidos_perdidos*0;

        writeln ('Valor de puntaje total: ', puntaje_total);

        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');

end.