Создать список работников фирмы. 1. Описать и ввести массив, содержащий 10 записей следующей структуры: фамилия, пол, возраст, адрес (улица, номер дома и квартиры), название отдела 2. Вывести массив в табличном виде. 3. Вывести списки работников не старше 45 лет, затем найти количество работников отдела, название которого введено с клавиатуры. — 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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
CLS
TYPE rabotnik
    fam AS STRING * 20
    pol AS STRING * 2
    vozr AS INTEGER
    adr AS STRING * 40
    otd AS STRING * 20
END TYPE
n = 10
DIM a(n) AS rabotnik
FOR i = 1 TO n
    PRINT "Vvedite dannie rabotnika #"; i
    INPUT "Familiya"; a(i).fam
    INPUT "pol (m,zh)"; a(i).pol
    INPUT "vozrast"; a(i).vozr
    INPUT "adres"; a(i).adr
    INPUT "otdel"; a(i).otd
    CLS
NEXT
PRINT "Familiya";
LOCATE , 20
PRINT "pol";
LOCATE , 25
PRINT "vozrast";
LOCATE , 37
PRINT "adres";
LOCATE , 60
PRINT "otdel"
PRINT
FOR i = 1 TO n
    PRINT a(i).fam;: LOCATE , 20:
    PRINT a(i).pol;: LOCATE , 25
    PRINT a(i).vozr;: LOCATE , 34
    PRINT a(i).adr;: LOCATE , 60
    PRINT a(i).otd
NEXT
PRINT: PRINT
PRINT "Rabotniki ne starshe 45 let"
FOR i = 1 TO n
    IF a(i).vozr <= 45 THEN PRINT a(i).fam
NEXT
DIM p AS STRING * 20
PRINT
INPUT "Vvedite nazvanie otdela"; p
k = 0
FOR i = 1 TO n
    IF p$ = a(i).otd THEN k = k + 1
NEXT
PRINT "Kolvo rabotnikov otdela "; p; "="; k

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

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

Leave a Comment