Написать счетчик времени,ну точнее таймер чтоль,чтобы он шел на 1 високосный год,то есть чтобы в нем были миллисекунды,секунды,минуты,часы,дни,месяцы,недели и.т.д.- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CLS
dney = 366
chasov = 23
minut = 59
sek = 60
DO UNTIL sek = 0 AND chasov = 0 AND minut = 0 AND dney = 0
    sek = sek - 1
    IF sek = 0 THEN sek = 59
    IF sek = 0 THEN minut = minut - 1
    IF minut = 0 THEN minut = 59
    IF minut = 0 THEN chasov = chasov - 1
    IF chasov = 0 THEN chasov = 23
    IF chasov = 0 THEN dney = dney - 1
    nedel = dney \ 7
    CLS
    PRINT "nedel", "dney", "chasov", "minut", "sekund"
    PRINT nedel, dney, chasov, minut, sek
    SLEEP 1
LOOP

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment