Введите данные о 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
23
24
' Polzovatelskii tip
TYPE Prizivnik
    Family AS STRING * 20
    Rost AS INTEGER
    Ves AS INTEGER
END TYPE
' Massiv bazi dannikh
DIM Pr(5) AS Prizivnik, MinR AS INTEGER, Num AS INTEGER
CLS
' Vvod dannikh
FOR i = 1 TO 5
    PRINT "_____Prizivnik ?:"; i
    INPUT "Vvedite familiju:", Pr(i).Family
    INPUT "Vvedite rost(santimetrov):", Pr(i).Rost
    INPUT "Vvedite ves(kilogram):", Pr(i).Ves
NEXT
'  Prosmotr rosta
MinR = Pr(1).Rost
Num = 1
FOR i = 1 TO 5
    IF Pr(i).Rost < MinR THEN MinR = Pr(i).Rost: Num = i
NEXT
' Vivod rezultta
PRINT "Samyj nuzkij prizivnik "; RTRIM$(Pr(Num).Family); " ego rost:"; Pr(Num).Rost

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

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

Leave a Comment