Загрузка...

Повторение цикла при нажатии на клавишу! - PascalABC.NET

Тема в разделе Программирование создана пользователем BestSellerMERCH3 26 фев 2018. 134 просмотра

  1. BestSellerMERCH3
    BestSellerMERCH3 Автор темы 26 фев 2018 Заблокирован(а) 2 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;
     
    26 фев 2018
Top
Загрузка...