Составить программу, которая организует ввод данных о спортсменах: ФИО спортсмена, команда, место в команде, зарплата и записывает их в массиве записей, а затем выводит фамилии капитанов команд- QBasic(Бейсик)

TYPE Sportsmen
 Familiya AS STRING * 20
 Imya AS STRING * 15
 Otchestvo AS STRING * 20
 Mesto AS INTEGER
 Zarplata AS INTEGER
END TYPE
  CLS
  INPUT "Kol-vo spotrsmenov: ", n
  DIM Komanda(n) AS Sportsmen
FOR i = 1 TO n
 PRINT "Vvediye dannye sportsmena pod nomerom"; i
  INPUT "  Vvedite imya         : ", Komanda(i).Imya
  INPUT "  Vvedite familiju     : ", Komanda(i).Familiya
  INPUT "  Vvedite otchestvo    : ", Komanda(i).Otchestvo
  PRINT "  Masta:  1 - kapitan    2..100 - obychnye nomera"
  INPUT "  Vvedite mesto(chislo): ", Komanda(i).Mesto
  INPUT "  Vvedite zarplatu     : ", Komanda(i).Zarplata
NEXT
 PRINT STRING$(80, 196)
 PRINT "Kapitany:"
FOR i = 1 TO n
  IF Komanda(i).Mesto = 1 THEN
  PRINT Komanda(i).Familiya
  END IF
NEXT

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

Leave a Comment