Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
3 / 3 / 2
Регистрация: 12.05.2011
Сообщений: 269
1

Написать программу, которая позволяет получить следующую справочную информацию

27.06.2011, 19:29. Показов 814. Ответов 1
Метки нет (Все метки)

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


вот программа создающая файл:

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
uses crt;
type Sotr=record
fam:string[20];
otd:string[20];
god:word;
stz:byte;
dlz:string[20];
okl:integer;
end;
var sp:array[1..100]of Sotr;
n,i:integer;
f:file of Sotr;
k:char;
begin
clrscr;
assign(f,'Sotrudniki.dat');
rewrite(f);
{sozdat fail}
k:=#0; 
i:=1;
repeat           {povtorit' poka ne nazhata klavisha Esc}
 begin
     writeln('Sotrudnik ',i);
     write('Familia: ');readln(sp[i].fam);
     write('Otdel: ');readln(sp[i].otd);
     write('God rozdenia: ');readln(sp[i].god);
     write('Staz raboty: ');readln(sp[i].stz);
     write('Dolznost: ');readln(sp[i].dlz);
     write('Oklad: ');readln(sp[i].okl);
     write(f,sp[i]);
     inc(i);
     k:=readkey;{zhdet nazhatie klavishi:(esli klavisha nazhata Esc vixod iz cikla;}
end;            {esli nazhata lyubaya drugaya prodolzhaetsya zapis' sotrudnikov )   }      
until k=#27{kod klavishi Esc};
writeln('Fail zapisan!');
readln;
close(f);
{prochitat fail}
clrscr;
reset(f);
i:=0;
while not eof(f) do
     begin
        i:=i+1;
        read(f,sp[i]);
        write(sp[i].fam,' Otdel ',sp[i].otd,' God rozdenia ',sp[i].god);
        write(' Staz ',sp[i].stz,' Dolznost ',sp[i].dlz,' Oklad ',sp[i].okl);
        writeln;
    end;
close(f);
readln
end.
помогите пожалуйста. Заранее спасибо)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.06.2011, 19:29
Ответы с готовыми решениями:

Написать программу которая позволяет за один сеанс работы добавить информацию о нескольких людях в файл
Написать программу которая позволяет за один сеанс работы добавить информацию о нескольких людях в...

Написать программу, которая позволяет получит следующую информацию
Написать программу, которая позволяет получит следующую информацию: - всю программу телепередач...

Написать программу, выдающую на печать следующую информацию: фамилию пассажира и нашли вес багажа
Написать программу, выдающую на печать следующую информацию: фамилию пассажира и нашли вес багажа;...

Написать программу, которая позволяет просматривать текстовые файлы
Написать программу, которая позволяет просматривать текстовые файлы...

__________________
1
16 / 16 / 19
Регистрация: 13.12.2010
Сообщений: 76
27.06.2011, 22:09 2
Цитата Сообщение от SkN[i
lpl[e][r];1799087]-список сотрудников пенсионного возраста на сегоднешний день с указанием стажа работы;
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
uses crt;
type Sotr=record
fam:string[20];
otd:string[20];
god:word;
stz:byte;
dlz:string[20];
okl:integer;
end;
var sp:array[1..100]of Sotr;
n,i:integer;
f:file of Sotr;
k:char;
begin
clrscr;
writeln('Sotrudnik      Staz');
assign(f,'Sotrudniki.dat');
reset(f);
i:=0;
while not eof(f) do
     begin
        i:=i+1;
        read(f,sp[i]);
        if sp[i].god<1956 then
        begin
         write(sp[i].fam,'        ',sp[i].stz);   {iz razcheta, chto pensionnuj vozrast ot 55}
         writeln;
        end;
    end;
close(f);
readkey;
end.
Добавлено через 1 час 30 минут
Цитата Сообщение от SkN[i
lpl[e][r];1799087]-средний стаж работающих в отделе Х.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
write('Vvedite otdel: ');
readln(k);
i:=0; n:=0; g:=0;
reset(f);
while not eof(f) do
     begin
      inc(i);
      read(f,sp[i]);
      if sp[i].otd=k then
      begin
         n:=n+sp[i].stz;
         inc(g);
      end;
     end;
writeln('Srednij stazh rabotajuchih v otdele ',k,': ',n div g);
close(f);
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.06.2011, 22:09

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Написать программу, которая позволяет нарисовать закрашенный треугольник
Задание 4. Написать программу, которая позволяет нарисовать закрашенный треугольник. ...

Написать программу, которая отображает следующую строку
если не трудно можете еще 2 задачи решить 1)написать программу, которая отображает следующую...

Написать программу, которая позволяет игроку расположить на доске M коней
Дана шахматная доска размером NxN. Написать программу, которая позволяет игроку расположить на...

Написать программу, которая позволяет найти нужные сведения в телефонном справочнике
2.Написать программу, которая позволяет найти нужные сведения в телефонном справочнике. Программа...


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

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

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