Загрузка...

Repeating a cycle when pressing a key! - PascalABC.NET

Thread in Programming created by BestSellerMERCH3 Feb 26, 2018. 135 views

  1. BestSellerMERCH3
    BestSellerMERCH3 Topic starter Feb 26, 2018 Banned 2 Aug 26, 2016
    Задача такова. Нам дана программа, которая написана на Pascal ABC Net:

    uses Crt;
    var c:=random(1,16);
    begin
    TextColor(Green);
    writeln('EASYMONEY 1.1');
    TextColor(White);
    case c of
    1,5,7,9,11,13,15: writeln(c,' - Красный');
    2,4,6,8,10,12,14,16: writeln(c,' - Чёрный');
    else writeln(c,' - Зелёный');
    end;
    readln;
    end.

    Необходимо дополнить её, так чтобы при нажатии на клавишу повторялся каждый раз цикл:

    case c of
    1,5,7,9,11,13,15: writeln(c,' - Красный');
    2,4,6,8,10,12,14,16: writeln(c,' - Чёрный');
    else writeln(c,' - Зелёный');
    end;
     
    Feb 26, 2018
Top
Loading...