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

18.05.2017, 04:25. Показов 1179. Ответов 0

Метки нет (Все метки)

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

в чем ошибка,не пойму!как сделать через процедуры и функции
В-7.
1. Составить базу данных о сотрудниках фирмы, предусмотрев поля: Ф.И.О., поощрения (выделить премии и нематериальные виды поощрений), количество замечаний. Составить программу, позволяющую
-вывести весь список сотрудников,
-всех, имеющих поощрения,
-всех, имеющих премии с общей суммой всех премий.

Комментарий модератора

2-ю и 3-ю задачу, пожалуйста, оформите в отдельных темах.

как сделать через процедуры и функции не могу дать ума!!

Pascal
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
Uses Crt; 
Type Sotr=Record 
FIO:string[20]; 
premii:string; 
ne_mat_premii:string; 
kol_vo_zamech:string; 
poochrenia:string ; 
End; 
Var A:array[1..100] of Sotr; 
i,n:byte; 
sr:real; 
s:string; 
Begin 
ClrScr; 
write('vvedite kol-vo sotrudnikov: ');readln(n); 
sr:=0; 
For i:=1 to n do 
Begin 
writeln('vvedite inform. o',i,'-om sotrudnike: '); 
write('FIO: ');readln(A[i].FIO); 
write('premii: ');readln(A[i].premii); 
write('ne_mat_premii: ');readln(A[i].ne_mat_premii); 
write('kol-vo zamech: ');readln(A[i].kol_vo_zamech); 
write('poochrenia: ');readln(A[i].poochrenia); 
 
End; 
 
writeln('-----------------------------------------------------------------------------------------------'); 
writeln(' fio | ',' premii | ',' ne_mat_premii | ',' kol-vo zamech ','| poochrenia '); 
writeln('------------------------------------------------------------------------------------------------'); 
For i:=1 to n do 
writeln(A[i].FIO:20,'|':1,A[i].premii:12,'|':1,A[i].ne_mat_premii:15,'|':1,A[i].kol_vo_zamech:2,'|':1,A[i].poochrenia:2); 
 
readln; 
End.

Добавлено через 11 часов 3 минуты
это все одна задача а не раздельные

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

18.05.2017, 04:25

Ответы с готовыми решениями:

Составить базу данных о сотрудниках фирмы
Файлы input.txt и output.txt не использовать. Организовать ввод данных с клавиатуры. Работу с данными организовать с помощью меню. ...

Информация о сотрудниках фирмы
Помогите пожалуйста! Завтра сдавать! Информация о сотрудниках фирмы включает: Ф.И.О. сотрудников; сабельный номер; количество...

Вывести данные о старейших сотрудниках фирмы и о тех, кто был принят на работу позже всех.
Помогите решить:Имеются данные о 10 сотрудниках фирмы: фамилия, имя, отчество, год рождения, должность, год поступления на работу. Вывести...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

18.05.2017, 04:25

Помогаю со студенческими работами здесь

Составить базу данных о студентах ВУЗа
Составить базу данных о студентах ВУЗа,предусмотрев поля: Ф.И.О.,курс,специальность,экзаменационные оценки за семестр. Составить...

Составить базу данных о студентах ВУЗа
помогите, пожалуйста, написать программу через процедуры или функции Составить базу данных о студентах ВУЗа,предусмотрев поля: ...

Составить базу данных об учащихся. Составить программу позволяющую выводить полный список учащихся, список выбравших предмет, список лучших учеников
Составить базу данных об учащихся, предусмотрев поля: Ф.И.О., предметы по выбору, экзаменационные оценки по каждому из них. Составить...

Помочь директору фирмы развезти сотрудников фирмы по домам на такси
После затянувшегося совещания директор фирмы решил заказать такси, чтобы развезти сотрудников по домам. Он заказал N машин - ровно столько,...

Составить базу данных о сотрудниках. Структура: фио, должность, адрес, зарплата
Составить базу данных о сотрудниках,предусмотрев поля:фио,должность,дом.адрес,зарплата.Вывести:весь список сотрудников;всех,кто живет на...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.

Наверх