Форум программистов, компьютерный форум, киберфорум
Наши страницы

PascalABC.NET

Войти
Регистрация
Восстановить пароль
 
YuliaWWW
0 / 0 / 0
Регистрация: 03.04.2016
Сообщений: 3
#1

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

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

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

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

Напечатать все сведения о количестве сотрудников имеющих среднее и высшее образование - Pascal
есть задание. Структура записи исходного документа имеет вид: Ном. отдела | Таб. номер | ФИО | Должность | Образование | Стаж ...

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

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

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

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

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

1
Peoples
1172 / 677 / 426
Регистрация: 06.02.2016
Сообщений: 1,782
Записей в блоге: 13
Завершенные тесты: 4
23.04.2016, 21:24 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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
Привет! Вот еще темы с ответами:

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

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

Напечатать таблицу значений функции sinx и cosx на данном отрезке - Free Pascal
Напечатать таблицу значений функции sinx и cosx на отрезке с шагом Pi/20 (считать что при печати на каждое вещественное число отводится по...

Напечатать в алфавитном порядке все согласные буквы, которые не повторяются в данном предложении - C#
Дан текст на русском языке. Напечатать в алфавитном порядке все согласные буквы, которые не повторяются в данном предложении. Windows...


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

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

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