1 / 1 / 0
Регистрация: 28.11.2012
Сообщений: 25
1

Создать файл, содержащий сведения о стаже работы сотрудников

22.05.2013, 23:00. Показов 1638. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите, пожалуйста, составить программу. Очень нужно

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

Заранее, огромное спасибо!!!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.05.2013, 23:00
Ответы с готовыми решениями:

Файл содержит сведения о стаже работы сотрудников, каждая запись которого содержит поля: наименование кафедры
Ребят,помогите с паскалем 1. Файл содержит сведения о стаже работы сотрудников, каждая запись...

Создать файл, содержащий сведения о месячной заработной плате сотрудников отдела
Создать файл, содержащий сведения о месячной заработной плате сотрудников отдела. Каждая запись...

Создать файл f, содержащий сведения о книгах. Сведения о каждой из книг - это фамилия автора, название книги и год издан
Создать файл f, содержащий сведения о книгах. Сведения о каждой из книг - это фамилия автора,...

Дан файл содержащий сведения. Сформировать новый файл содержащий все сведения
Сведения о земельном участке состоят из ФИО (Иванов И.И.) владельца,адреса (населенный...

1
77 / 77 / 52
Регистрация: 28.02.2013
Сообщений: 206
Записей в блоге: 9
23.05.2013, 03:52 2
Лучший ответ Сообщение было отмечено genya как решение

Решение

Цитата Сообщение от genya Посмотреть сообщение
Помогите, пожалуйста, составить программу. Очень нужно

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

Заранее, огромное спасибо!!!
Добавил имя сотрудника в запись,так по красивее будет, если не устроит все что связано с полем Name удалите

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
program xxx;
 
const x = 3; // кол-во работников
 
type data = record
    Name : string;
    Namec : string;
    Job : integer;
end;
 
var f : file of data;
        a : array [1..x] of data;
        path : string;
 
procedure addData();
var i : integer;
begin
    rewrite(f);
    for i := 1 to x do
        begin
            write('Имя сотрудника: ');
            readln(a[i].Name);
            write('Наименование кафедры: ');
            readln(a[i].Namec);
            write('Средний стаж работы: ');
            readln(a[i].Job);
            write(f,a[i]);
        end;
    Close(f);
end;
 
procedure TestRead();
var i : integer;
begin
    reset(f);
    for i := 1 to x do
        begin
            read(f,a[i]);
            writeln(a[i].Name);
            writeln(a[i].NameC);
            writeln(a[i].Job);
        end;
    close(f);
end;
 
begin
write('Введите путь до файла: ');
readln(path);
assign(f,path);
addData();
TestRead();
readln;
end.
1
23.05.2013, 03:52
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.05.2013, 03:52
Помогаю со студенческими работами здесь

Создать файл содержащий сведения
Создать файл содержащий сведения о сдаче студентами первого курса сессии. структура записи индекс...

Создать файл, содержащий сведения о сотрудниках
Очень прошу вас помочь:help: Я уже 3 ночь бьюсь:wall: Задача: Создать программу, которая...

Создать файл, содержащий сведения о фильмах
Создать файл, содержащий сведения о фильмах. Каждая запись файла должна содержать название фильма ,...

Создать файл, содержащий сведения о сотрудниках
Создать файл, содержащий сведения о сотрудниках. Каждая запись файла должна содержать фамилию,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru