Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
YuliaWWW
0 / 0 / 0
Регистрация: 03.04.2016
Сообщений: 3
1

Напечатать сведения о работающих на данном предприятии

23.04.2016, 19:47. Просмотров 771. Ответов 1

Разработать программу в Pascal, выполняющую следующие функции:
1. Ввод данных (в массив записей).
2. Печать данных.
3. Обработка данных согласно требованиям:

Структура записи: ФИО, место работы, должность, оклад, адрес человека;
Задача: напечатать сведения о работающих на данном предприятии.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.04.2016, 19:47
Ответы с готовыми решениями:

Напечатать все сведения о количестве сотрудников имеющих среднее и высшее образование
есть задание. Структура записи исходного документа имеет вид: Ном. отдела...

Напечатать все сведения о машинах, сумма цифр номера которых равна 10, а также подсчитать их количество
нужно решить под буквой Б Даны сведения о владельцах автомобилей: фамилия,...

Исходная строка содержит сведения о человеке-Вывести эти сведения на экран в следующем виде:
к.р. вар14! помогите) Эти сведения расположены в произвольном порядке,...

Реализовать список сотрудников, работающих на предприятии
если честно я уже не понимаю почему он выдает ошибки(на подобии что birthday...

В файле содержатся следующие сведения о студентах нескольких групп: фамилия, N группы, экзаменационный рейтинг. Напечатать сведения о тех студент
В файле содержатся следующие сведения о студентах нескольких групп:...

1
Peoples
1347 / 836 / 749
Регистрация: 06.02.2016
Сообщений: 2,232
Записей в блоге: 17
Завершенные тесты: 4
23.04.2016, 21:24 2
Лучший ответ Сообщение было отмечено YuliaWWW как решение

Решение

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
program pr;
 
type
  worker = record
    fio: string[50];
    place: string[50];
    post: string[50];
    pay: integer;
    addres: string[50];
  end;
  arr = array [1..100] of worker;
 
var
  work: arr;
  n, g, c: integer;
 
procedure input(var x: arr);
var
  i: integer;
begin
  writeln('Введите количество рабочих');
  readln(n);
  for i := 1 to n do
  begin
    writeln('Введите фио');
    readln(x[i].fio);
    writeln('Введите место');
    readln(x[i].place);
    writeln('Введите должность');
    readln(x[i].post);
    writeln('Введите оклад');
    readln(x[i].pay);
    writeln('Введите адрес');
    readln(x[i].addres);
    writeln;
  end;
end;
 
procedure show(var x: arr);
var
  i: integer;
begin
  for i := 1 to n do
  begin
    writeln(x[i].fio);
    writeln(x[i].place);
    writeln(x[i].post);
    writeln(x[i].pay);
    writeln(x[i].addres);
    writeln;
  end;
end;
 
begin
  input(work);
  show(work);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.04.2016, 21:24

Напечатать список лиц, работающих (учащихся) в университете
Здравствуйте!Помогите пожалуйста написать программу!Нужно срочно!Заранее...

Определить город, наиболее удаленный от Чебоксар, и вывести сведения о данном маршруте
1)Сведения о автобусных перевозках представлены в виде таблицы: \Пункт...

Напечатать все согласные буквы, встречающиеся в данном предложении
Напечатать все согласные буквы, встречающиеся в данном предложении. Каждую...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru