Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 10.04.2013
Сообщений: 6

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

03.05.2013, 18:18. Показов 1099. Ответов 0
Метки нет (Все метки)

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

программа:
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
uses crt;
type
   firm = record
      f,d,o: string;
      gr,st,okl: integer;
      end;
var
   a: array[1..100] of firm;
   k: array[1..20] of integer;
   filename, obr: string;
   x,y,i,n,min,q:integer;
   t: text; key: char;
begin
   write('название файла: ');
   readln(filename);
   assign(t,filename);
   rewrite(t);
   repeat
      inc(i);
      with a[i] do begin
         write('фамилия: ');
         readln(f);
         writeln(t,'фамилия: ',f);
         write('должность: ');
         readln(d);
         writeln(t,'должность: ',d);
         write('образование: ');
         readln(o);
         writeln(t,'образование: ',o);
         write('год рождения: ');
         readln(gr);
         writeln(t,'год рождения: ',gr);
         write('стаж: ');
         readln(st);
         writeln(t,'стаж: ',st);
         write('оклад: ');
         readln(okl); k[i]:=okl;
         writeln(t,'оклад: ',okl);
      end;
         writeln('выход? (д/н) ');
         readln(key)
   until upcase(key)='д';
   close(t);
   n:=i;
   obr:='высшее';
   for i:=1 to n do
   with a[i] do
      if o=obr then
   writeln(f);
   writeln('максимальный возраст Х: ');
   readln(x);
   q:=2013-x;
   for i:=1 to n do
   with a[i] do
      if (gr>q) then
         writeln('фамилия: ',f,'; стаж: ',st);
min:=k[1];
for i:=2 to n do
  begin
     if min>k[i] then
       min:=k[i];
  end;
    for i:=1 to n do
   with a[i] do
      if (okl=min) then
         writeln('фамилия: ',f,'; минимальный оклад: ',min);
   readkey
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
03.05.2013, 18:18
Ответы с готовыми решениями:

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

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

Создать файл, содержащий сведения о пациентах поликлинники.
Приветствую! прошу решить следующую задачку: Создать файл, содержащий сведения о пациентах поликлинники. Структура записи ...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
03.05.2013, 18:18
Помогаю со студенческими работами здесь

Создать файл toys, содержащий сведения об игрушках
Люди помогите,а.... первые темы по этому паскалю сделала, а дальше всё... не могу.... помогите хоть с чем-нибудь.... Имеется...

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

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

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

Текстовый файл с данными о работниках фирмы. Фильтрация по стажу работы
25. Имеется техтовый файл, в котоpом хpанятся данные о pаботающих в фиpме: фамилия, имя, отчество, адpес(улица,дом,кваpтиpа) и дата...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через 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 На первой гифке отладочные линии отключены, а на второй включены:. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru