Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 1
Регистрация: 11.11.2013
Сообщений: 55
1

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

25.12.2013, 19:20. Показов 644. Ответов 1
Метки нет (Все метки)

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

ЗАДАНИЕ: 1) имя объекта : служащий ; 2) поля записи : а) ФИО б) название отдела в) год рождения г) стаж работы д) должность е) пол ; 3) задачи обработки : распечатать список сотрудников пенсионного возраста на сегодняшний день с указанием стажа работы.

ОЧЕНЬ СРОЧНО НУЖНО РЕШИТЬ!!!!!!!! БУДУ ОЧЕНЬ БЛАГОДАРНА ТОМУ КТО ПОМОЖЕТ

Добавлено через 3 часа 0 минут
Код:


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

ЗАДАНИЕ: 1) имя объекта : служащий ; 2) поля записи :
а) ФИО б) название отдела в) год рождения г) стаж работы д) должность
е) пол ;
3) задачи обработки : распечатать список сотрудников пенсионного
возраста на сегодняшний день с указанием стажа работы.}
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
uses
  dos,crt;
const
  n=2;
type
  sluzh=record
    fam,im,ot:string[64];
    nazv_otd:string[128];
    gd:integer;
    stazh:integer;
    dolzh:string[128];
    pol:string[1];
  end;
var
  spisok:array[1..n] of sluzh;
  chel:sluzh;
  f:file of sluzh;
  i:integer;
  razn:integer;
  Year,Month,Day,WDay : word;
begin
  (* Ввод данных с клавиатуры и запись в файл *)
  assign(f,'spisok.dat');
  rewrite(f);
  for i:=1 to n do
    begin
      clrscr;
      writeln('Введите данные по ',i,'-му работнику.');
      write('Введите фамилию: '); readln(chel.fam);
      write('Введите имя: '); readln(chel.im);
      write('Введите отчество: '); readln(chel.ot);
      write('Введите название отдела: '); readln(chel.nazv_otd);
      write('Введите год рождения: '); readln(chel.gd);
      write('Введите стаж: '); readln(chel.stazh);
      write('Введите должность: '); readln(chel.dolzh);
      write('Введите пол (м - мужской, ж - женский): '); readln(chel.pol);
      write(f,chel); { записали данные в файл}
    end;
  close(f);
 
  clrscr;
  GetDate(Year,Month,Day,WDay);
  (* Чтение из файла и вывод по условию *)
  reset(f);
  while not eof(f) do
    begin
      read(f,chel);
      razn:=year-chel.gd;
      if ((razn>55) and (chel.pol='ж')) or ((razn>60) and (chel.pol='м')) then
          writeln(chel.fam,' ',chel.im,' ',chel.ot,', стаж работы: ',chel.stazh);
    end;
  close(f);
end.
В ПАСКАЛЬ АВС. NET ВЫДАЕТ ОШИБКУ ЕСЛИ КТО ЗНАЕТ КАК ИСПРАВИТЬ ПОДСКАЖИТЕ
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.12.2013, 19:20
Ответы с готовыми решениями:

Составить программу, вырезающую из файла с текстом программы на языке Turbo-Pascal все комментарии
помогите срочно Составить программу, вырезающую из файла с текстом программы на языке Turbo-Pascal...

Составить программу на языке Pascal. NET
Составить программу на языкеPascal. NET

Составить блок-схему и программу на языке Pascal
Составить блок-схему и программу на языке Pascal: Определить, каких элементов положительных или...

Разработать алгоритм и составить программу на языке программирования Pascal
Завтра экзамен, перерыл весь интернет. Помогите, пожалуйста. Хоть одну задачу решить. Заранее...

1
3 / 3 / 1
Регистрация: 07.11.2013
Сообщений: 49
25.12.2013, 20:00 2
Попробуй во фри паскале.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.12.2013, 20:00

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

Составить программу на языке PASCAL. Вычислить значения функции Z .
Z= x / ((x-2,3)*(x-2,3)) t+1,2; t>3 X= { 2+t; t<3 ...

Составить программу на языке Pascal, которая строит график заданной функции
Составить программу на языке Pascal, которая строит график заданной функции (в координатах (F (x),...

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

Составить две программы на языке Pascal
Составить две программы на языке Pascal (одну с операторами присваивания, перехода, условными;...

Составить условия на языке Pascal для утверждений
Немного траблы с заданием в паскале- 1. Составить условия алгоритмично на языке Pascal для...

составьте программу на языке pascal
заполнить массив из 5 элементов числами с клавиатуры и вывести на экран сумму 2 и 5 элементов.


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

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

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