Файл записей. Структура: фамилия, имя, подразделение, оклад

@Twiger · Регистрация: 22.12.2011

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

написать программу в которой описывается массив записей,хранящий следующую информацию (фио сотрудника,подразделение,оклад).
программа должна выполнять следующие действия (ввод данных,просмотр списка сотрудников заданного подразделения по одному человеку с командами "перейти к следующему" и "перейти к предыдущему"

так же добавить следующие действия
1.сохранение информации в текстовый файл
2.загрузка информации из текстового файла
3.сохранение информации в типизированный файл
4.загрузка информации из типизированного файла

все действия оформить в виде процедур.

@Twiger · 22.12.2011, 23:56 **[ТС]**

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
uses crt;
cоnst n=100;
type
sotrud = record
oklad: integer;
fam,name,podrazd : string[20];
end;
 
Var
mas:array[1..n] of sotrud;
count: word;
oper: char;
f:integer;
f1,f2 : file of char;
procedure add;
begin
inc (count);
write('fam:');
readln(mas[count].fam);
write('name:');
readln(mas[count].name);
write('podrazd:');
readln(mas[count].podrazd);
write('oklad:');
readln(mas[count].oklad);
end;
 
procedure list;
var i:integer;
begin
if count >0 then
begin
writeln ('n fam name podrazd oklad');
 
for i := 1 to count do
with mas do
writeln (i:2, fam:6 , name:5,podrazd:7 , oklad:9 ); readln;
end
else
writeln ('net zapisi');
end;
 
begin {MAIN}
assign (f1,'imput.txt');
assign (f2,'res.txt');
 
while (true) do
begin
clrscr;
Writeln('Viberite deistvie: 1-Dobavit,2-Spisok 3 - vihod');
readln(f);
if f=1 then add;
if f=2 then list;
if f=3 then break;
end;
end. {MAIN}

@WebMax 2.0 · 23.12.2011, 00:00

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
uses crt;
const n=100;
type
sotrud = record
oklad: integer;
fam,name,podrazd : string[20];
end;
 
Var
mas:array[1..n] of sotrud;
count: word;
oper: char;
f:integer;
f1,f2 : file of char;
procedure add;
begin
inc (count);
write('fam:');
readln(mas[count].fam);
write('name:');
readln(mas[count].name);
write('podrazd:');
readln(mas[count].podrazd);
write('oklad:');
readln(mas[count].oklad);
end;
 
procedure list;
var i:integer;
begin
if count >0 then
begin
writeln ('n fam name podrazd oklad');
 
for i := 1 to count do
with mas[i] do
writeln (i:2, fam:6 , name:5,podrazd:7 , oklad:9 ); readln;
end
else
writeln ('net zapisi');
end;
 
begin {MAIN}
assign (f1,'imput.txt');
assign (f2,'res.txt');
 
while (true) do
begin
clrscr;
Writeln('Viberite deistvie: 1-Dobavit,2-Spisok 3 - vihod');
readln(f);
if f=1 then add;
if f=2 then list;
if f=3 then break;
end;
end.

Добавлено через 1 минуту

Сообщение от Twiger

cоnst

Использован символ кириллицы =)

Сообщение от Twiger

with mas do

Не указан индекс.
mas[i]

@Twiger · 23.12.2011, 00:02 **[ТС]**

WebMax 2.0, можешь исправленный вариант программы написать пожалуйста)

@WebMax 2.0 · 23.12.2011, 00:02

Сообщение от Twiger

WebMax 2.0, можешь исправленный вариант программы написать пожалуйста)

Выше написал

@Twiger · 23.12.2011, 00:04 **[ТС]**

WebMax 2.0, спасибо большое,в очередной раз выручил!)

@Twiger · 23.12.2011, 23:06 **[ТС]**

нужно сделать переход от сотрудника к сотруднику и сделать правильную работу с файлом.буду очень благодарен.
вот задание(написать программу в которой описывается массив записей,хранящий следующую информацию (фио сотрудника,подразделение,оклад).
программа должна выполнять следующие действия (ввод данных,просмотр списка сотрудников заданного подразделения по одному человеку с командами "перейти к следующему" и "перейти к предыдущему"

так же добавить следующие действия
1.сохранение информации в текстовый файл
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
uses crt;
const n=100;
type
sotrud = record
oklad: integer;
fam,name,podrazd : string[20];
end;
 
Var
mas:array[1..n] of sotrud;
count: word;
oper: char;
f:integer;
f1,f2 : file of char;
procedure add;
begin
inc (count);
write('fam:');
readln(mas[count].fam);
write('name:');
readln(mas[count].name);
write('podrazd:');
readln(mas[count].podrazd);
write('oklad:');
readln(mas[count].oklad);
end;
 
procedure list;
var i:integer;
begin
if count >0 then
begin
writeln ('n fam name podrazd oklad');
 
for i := 1 to count do
with mas[i] do
writeln (i:2, fam:6 , name:5,podrazd:7 , oklad:9 ); readln;
end
else
writeln ('net zapisi');
end;
 
begin {MAIN}
assign (f1,'imput.txt');
assign (f2,'res.txt');
 
while (true) do
begin
clrscr;
Writeln('Viberite deistvie: 1-Dobavit,2-Spisok 3 - vihod');
readln(f);
if f=1 then add;
if f=2 then list;
if f=3 then break;
end;
end.

@Twiger · 05.01.2012, 22:15 **[ТС]**

программа написана,ругается на IOresult.помогите исправить

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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
uses crt;
const n=100;
type
sotrud = record
oklad: integer;
fam,name,podrazd : string[20];
end;
 
Var
m:array[1..n] of sotrud;
count,p: word;
c: char;
f: file of sotrud;
 
procedure load;
begin
assign(f,'sotrud.dat');
{$I-}
Reset(F);
{$I+}
if IOResult=0 then
begin
count:=0;
while not eof(f) do
begin
inc(count);
read(f,m[count])
end;
end
else
begin
rewrite(f);
end;
close(f);
end;
procedure add;
var
i:integer;
begin
writeln;writeln;writeln;
writeln('Vvesti dannye o sotrudnike:');writeln;
inc (count);
write('fam: ');
readln(m[count].fam);
write('name: ');
readln(m[count].name);
write('podrazd: ');
readln(m[count].podrazd);
write('oklad: ');
readln(m[count].oklad);
rewrite(f);
for i:=1 to count do write(f,m[i]);
close(f);
end;
 
procedure list;
var i:integer;
begin
writeln;writeln;writeln;
if count>0 then
begin
if (c in ['n','N']) and (p<count) then inc(p);
if (c in ['p','P']) and (p>1) then dec(p);
writeln('Dannye o sotrudnike #',p,':');writeln;
write('fam: '); writeln(m[p].fam);
write('name: '); writeln(m[p].name);
write('podrazd: '); writeln(m[p].podrazd);
write('oklad: '); writeln(m[p].oklad);
end
else writeln('No data found')
end;
 
begin {MAIN}
load;
p:=0;
repeat
writeln;writeln;writeln;
Writeln('Viberite deistvie:');
writeln(' A: add->Dobavit');
writeln(' P: previous->Predydushiy sotrudnik');
writeln(' N: next->Sleduyushiy sotrudnik');
writeln(' Esc - vihod');
c:=readkey;
clrscr;
case c of
'a','A':add;
'p','P','n','N':list;
end;
until c=#27;
end.

@WebMax 2.0 · 05.01.2012, 22:53

Twiger, функции IOResult вообще нет в Pascal ABC

Добавлено через 7 минут
Можно заменить на это:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Uses crt;
 
var f:text;
 
begin
   assign(f,'in.txt');
   try
   Reset(f);
   except
   writeln('Ошибка');
   end;
end.

@Twiger · 05.01.2012, 23:08 **[ТС]**

щас попробую.

@WebMax 2.0 · 05.01.2012, 23:40

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure load;
  begin
  assign(f,'sotrud.dat');
  try
  Reset(F);
  count:=0;
  while not eof(f) do
    begin
    inc(count);
    read(f,m[count])
    end;
  except
  writeln('Ошибка');
  rewrite(f);
  close(f);
  end;
  end;

Добавлено через 16 минут

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
75
76
77
78
79
80
81
82
83
84
85
uses crt;
const n=100;
type
sotrud = record
oklad: integer;
fam,name,podrazd : string[20];
end;
 
Var
m:array[1..n] of sotrud;
count,p: word;
c: char;
f: file of sotrud;
 
procedure load;
begin
  assign(f,'sotrud.dat');
  try
  Reset(F);
  count:=0;
  while not eof(f) do
    begin
    inc(count);
    read(f,m[count])
    end;
  except
  writeln('Ошибка');
  end;
end;
 
procedure add;
var
i:integer;
begin
writeln;writeln;writeln;
writeln('Vvesti dannye o sotrudnike:');writeln;
inc (count);
write('fam: ');
readln(m[count].fam);
write('name: ');
readln(m[count].name);
write('podrazd: ');
readln(m[count].podrazd);
write('oklad: ');
readln(m[count].oklad);
rewrite(f);
for i:=1 to count do write(f,m[i]);
close(f);
end;
 
procedure list;
var i:integer;
begin
writeln;writeln;writeln;
if count>0 then
begin
if (c in ['n','N']) and (p<count) then inc(p);
if (c in ['p','P']) and (p>1) then dec(p);
writeln('Dannye o sotrudnike #',p,':');writeln;
write('fam: '); writeln(m[p].fam);
write('name: '); writeln(m[p].name);
write('podrazd: '); writeln(m[p].podrazd);
write('oklad: '); writeln(m[p].oklad);
end
else writeln('No data found')
end;
 
begin {MAIN}
load;
p:=0;
repeat
writeln;writeln;writeln;
Writeln('Viberite deistvie:');
writeln(' A: add->Dobavit');
writeln(' P: previous->Predydushiy sotrudnik');
writeln(' N: next->Sleduyushiy sotrudnik');
writeln(' Esc - vihod');
c:=readkey;
clrscr;
case c of
'a','A':add;
'p','P','n','N':list;
end;
until c=#27;
end.

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

@Twiger 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 20

	Файл записей. Структура: фамилия, имя, подразделение, оклад 22.12.2011, 22:37. Показов 3665. Ответов 10 Метки нет (Все метки) написать программу в которой описывается массив записей,хранящий следующую информацию (фио сотрудника,подразделение,оклад). программа должна выполнять следующие действия (ввод данных,просмотр списка сотрудников заданного подразделения по одному человеку с командами "перейти к следующему" и "перейти к предыдущему" так же добавить следующие действия 1.сохранение информации в текстовый файл 2.загрузка информации из текстового файла 3.сохранение информации в типизированный файл 4.загрузка информации из типизированного файла все действия оформить в виде процедур. 0

@Twiger 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 20
	23.12.2011, 00:02 [ТС]
	WebMax 2.0, можешь исправленный вариант программы написать пожалуйста) 0

@Twiger 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 20
	23.12.2011, 00:04 [ТС]
	WebMax 2.0, спасибо большое,в очередной раз выручил!) 0

@Twiger 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 20
	05.01.2012, 23:08 [ТС]
	щас попробую. 0