Составить программу ,которая организует ввод данных о пациентах поликлиники :Ф.О.И. пациента , количество посещаемых врачей ,возраст пациента и записывает их в массиве записей, а затем выводит фамилии пациентов ,поситивших клинику более 10 раз и с возрастом 60 лет — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CLS
TYPE patient
 familiya AS STRING * 15
 nVrachey AS INTEGER
 vozrast AS INTEGER
END TYPE
INPUT "Kolvo vvodimih zapisey="; n
DIM a(n) AS patient
FOR i = 1 TO n
 PRINT "Vvedite danniye o patiente #"; i
 INPUT "Vvedite familiyu patienta"; a(i).familiya
 INPUT "kolvo posesh vrachey"; a(i).nVrachey
 INPUT "vozrast"; a(i).vozrast
 CLS
NEXT i
FOR i = 1 TO n
 IF a(i).nVrachey > 10 THEN PRINT "Patient "; a(i).familiya; " posetil bolnicu bolee 10 raz"
 IF a(i).vozrast > 60 THEN PRINT "Patientu "; a(i).familiya; " bolshe 60 let"
NEXT i

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

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

Leave a Comment