Ввести данные об итогах шахматного турнира. В программе предусмотреть ввод исходных данных для 5 шахматистов: фамилии шахматистов, результаты их встреч друг с другом (за победу присуждается одно очко, за ничью – пол-очка, за поражение – ноль очков). Подсчитать и вывести общее количество набранных каждым шахматистом очков — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
TYPE Turnir
    Family AS STRING * 20
    Pobedi AS INTEGER
    Nichji AS INTEGER
    Porajeniya AS INTEGER
END TYPE
' Массив базы данных
DIM Ch(5) AS Turnir
CLS
' Ввод данных
FOR i = 1 TO 5
    PRINT "_____Shahmatist :"; i
    INPUT "Vvedite familiju:", Ch(i).Family
    INPUT "Vvedite kol-vo pobed:", Ch(i).Pobedi
    INPUT "Vvedite kol-vo nuchejnyh situacij:", Ch(i).Nichji
    INPUT "Vvedite kol-vo porajenij:", Ch(i).Porajeniya
NEXT
'  Вывод результата
FOR i = 1 TO 5
    Score = Ch(i).Pobedi + Ch(i).Nichji * .5
    PRINT "U shahmatista pod familiyej "; RTRIM$(Ch(i).Family); " "; Score; "ochkov."
NEXT

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

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

Leave a Comment