Файл записей. Структура: ФИО, год рождения, должность, стаж, образование

@zet13 · Регистрация: 10.05.2012

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

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

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

Пожалуйста помогите, самому не решить пропустил практику по болезни

@CodeR · 13.05.2012, 09:59

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
Type Anketa=Record
     FIO:string[30];
     God:byte;
     Dolj:string[15];
     Staj:byte;
     Obraz:string[2];
     End;
Var f:file of Anketa;
    f1:Anketa;
    j,s,n,x:integer;
Procedure Zapol(n:integer);
Var i:integer;
Begin
    Assign(f,'anketa.dat');Rewrite(f);
    For i:=1 to n do Begin
    WitH f1 do Begin
    write('Введите Ф.И.О [',i,']-го сотрудника ');readln(FIO);
    write('Введите год рождения [',i,']-го сотрудника ');readln(God);
    write('Введите должность [',i,']-го сотрудника ');readln(Dolj);
    write('Введите Стаж [',i,']-го сотрудника ');readln(Staj);
    write('Введите оброзование [',i,']-го сотрудника (sr/vs) ');readln(Obraz);
    End;
    write(f,f1);
    End;
End;
Begin
    Repeat
    Writeln('1: Заполнение анкет сотрудников');
    Writeln('2: Просмотр среднего стажа сотрудников (Нужно чтобы файл был заполнен) ');
    Writeln('3: Выход');
    Write('Введите число 1-3: ');readln(x);
    Case x of
    1:Begin
    Write('Введите кол-во сотрудников ');readln(n);Zapol(n);End;
    2:Begin
    Assign(f,'Anketa.dat');Reset(f);
    s:=0;j:=0;
    While not Eof(f) do Begin
     Read(f,f1);
     With f1 do
      if (Obraz='vs')or(Obraz='Vs') tHen Begin s:=s+Staj;inc(j);End;
     End;
     writeln('Средний стаж= ',s/j:0:2);
     End;
     End;
    Until x=3;
End.

Только я незнаю как поверх остальных добавлять новые записи и удалять записи (у меня в коде заполнение идёт затирая старое) просто пару дней назад опробовал файл записей.

@zet13 · 13.05.2012, 11:45 **[ТС]**

Спасибо большое хоть что то, дальше уже сам с книгой попробую разобраться )) а то с нуля никак

@zet13 · 15.05.2012, 07:53 **[ТС]**

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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Program Matrih;
 uses crt;
Type Anketa=Record
     FIO:string[30];
     God:byte;
     Dolj:string[15];
     Staj:byte;
     Obraz:string[2];
     End;
Var f:file of Anketa;
    f1:Anketa;
    j,s,n,x,k:integer;
Procedure Zapol(n:integer);
Var i:integer;
Begin
    Assign(f,'E:\6\Anketa.dat');Rewrite(f);
    For i:=1 to n do Begin
    WitH f1 do Begin
    write('‚Введите Ф.И.О  [',i,'] -го сотрудника* ');readln(FIO);
    write('‚Введите год рождения[',i,'] -го сотрудника ');readln(God);
    write('‚Введите должность [',i,']-го сотрудника ');readln(Dolj);
    write('‚Введите Стаж*¦ [',i,'] -го сотрудника* ');readln(Staj);
    write('‚Введите оброзование[',i,'] -го сотрудника* (sr/vs) ');readln(Obraz);
    End;
    write(f,f1);
    End;
End;
Begin
    clrscr;
    Repeat
    Writeln('1: Заполнение анкет сотрудников');
    Writeln('2: Просмотри анкет сотрудников');
    Writeln('3: Добавление новых анкет сотрудников');
    Writeln('4: Просмотр среднего стажа сотрудников (Нужно чтобы файл был заполнен*) ');
    Writeln('5: Выход');
    Write('‚Введите число 1-5: ');readln(x);
    Case x of
    1:Begin
    Write('‚Введите количество сотрудников ');readln(n);Zapol(n);End;
    2:Begin
    assign (f,'E:\6\Anketa.dat'); reset(f);
    Writeln('‘Список анкет сотрудников');
    while not eof(f) do
     begin
       read (f,f1);
       Write (f1.FIO,' ');
       Write (f1.God,' ' );
       Write (f1.Dolj,' ');
       Write (f1.Staj,' ');
       Write (f1.Obraz,' ');  end;end;
    3:Begin
      assign (f,'E:\6\Anketa.dat'); reset(f);
      seek (f,filesize(f));
     WitH f1 do Begin
    write('‚Введите Ф.И.О сотрудника ');readln(FIO);
    write('‚Введите год сотрудника  ');readln(God);
    write('‚Введите должность сотрудника* ');readln(Dolj);
    write('‚Введите стаж сотрудника ');readln(Staj);
    write('‚Введите образование сотрудника* (sr/vs) ');readln(Obraz);
    End;
     write(f,f1); End;
    4:Begin
    Assign(f,'E:\6\Anketa.dat');Reset(f);
    s:=0;j:=0;
    While not Eof(f) do Begin
     Read(f,f1);
     With f1 do
      if (Obraz='sr')or(Obraz='vs') tHen Begin s:=s+Staj;inc(j);End;
     End;
     writeln('Средний стаж= ',s/j:0:2);
     End;
     End;
    Until x=5;
End.

Приблизительный вариант готовой задачи, выкладываю если кому вдруг понадобиться

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@zet13 2 / 0 / 0 Регистрация: 10.05.2012 Сообщений: 3

	Файл записей. Структура: ФИО, год рождения, должность, стаж, образование 10.05.2012, 14:20. Показов 9798. Ответов 3 Метки нет (Все метки) Составить программу для обработки анкет сотрудников некоторой фирмы. 1)Анкета содержит следующие сведения: фамилия , имя, отчество, год рождения, должность, стаж, образование. 2)Для хранения информации необходимо использовать файл записей. 3)В программе предусмотреть возможность ввода новых данных и удаление записей. Организовать выборку сотрудников с высшим образованием и вычислить их средний стаж. Пожалуйста помогите, самому не решить пропустил практику по болезни 0

@zet13 2 / 0 / 0 Регистрация: 10.05.2012 Сообщений: 3
	13.05.2012, 11:45 [ТС]
	Спасибо большое хоть что то, дальше уже сам с книгой попробую разобраться )) а то с нуля никак 0