Создать список работников фирмы.

@regon · Регистрация: 13.06.2010

Студворк — интернет-сервис помощи студентам

Создать список работников фирмы.
1. Описать и ввести массив, содержащий 10 записей следующей структуры: фамилия, пол, возраст, адрес (улица, номер дома и квартиры), название отдела
2. Вывести массив в табличном виде.
3. Вывести списки работников не старше 45 лет, затем найти количество работников отдела, название которого введено с клавиатуры.
Заранее спасибо!!

@Lyohich84 · 16.06.2010, 10:26

QBasic/QuickBASIC
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

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@regon 1 / 1 / 0 Регистрация: 13.06.2010 Сообщений: 17

	Создать список работников фирмы. 15.06.2010, 16:12. Показов 1782. Ответов 1 Метки нет (Все метки) Создать список работников фирмы. 1. Описать и ввести массив, содержащий 10 записей следующей структуры: фамилия, пол, возраст, адрес (улица, номер дома и квартиры), название отдела 2. Вывести массив в табличном виде. 3. Вывести списки работников не старше 45 лет, затем найти количество работников отдела, название которого введено с клавиатуры. Заранее спасибо!! 1

Опции темы

Создать список работников фирмы.

Решение