Не выводиться всё содержимое файла,только последняя строка

@lait123 · Регистрация: 30.07.2013

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

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

Структура записи:

TN – табельный номер (целочисленный тип, 4 цифры);

FIO – фамилия и инициалы (25 символов);

S – сумма, заработанная за месяц (число вида xxxxx.xx);

PR – признак (один символ). Значение признака может быть 1,2,3 (1-премия не начисляется, 2-премия q% от суммы заработанной за месяц, 3-премия f%)

Значение q и f ввести с клавиатуры.

2. Сформировать «Ведомость на выдачу премии». В ней должна быть «шапка» и в каждой строке: TN, FIO, сумма премии.

3. В конце ведомости должна быть строка «итого».

4. Ведомость поместить в файл PREM .

5. Вывод ведомости на экран осуществить из файла PREM

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
program lab;
uses crt;
type k=record
  name:string;
    s:integer;
  tn:integer;
  pr:integer;
  spr:integer;
end;
var f:file of k;
    f2:file of k;
  i,s:integer;
  q,ff:integer;
    a:k;
begin
  clrscr;
  assign(f,'c:\temp\spraw.txt');        {Присваеваем переменной файл}
  assign(f2,'c:\temp\prem.txt');
  rewrite(f);
  rewrite(f2);
  writeln('введите число рабочих');readln(s);
  writeln('введите значение приоритета 2');readln(q);
  writeln('введите значение приоритета 3');readln(ff);
   for i:=1 to s do
begin
writeln('табельный номер');readln(a.tn);   {Заполняем файл spraw данными}
writeln('Фамилия');readln(a.name);
writeln('зарплата');readln(a.s);
writeln('признак');readln(a.pr);
if a.pr=1 then a.spr:=0 else
if a.pr=3 then a.spr:=(a.s div 100)*ff else
if a.pr=2 then a.spr:=(a.s div 100)*q;
write(f,a);
end;
  close(f);
  reset(f);
while not(eof(f)) do
begin
  read(f,a); write(f2,a);
  end;
  close(f);
  close(f2);
  reset(f);
  reset(f2);
while not(eof(f2)) do
read(f2,a);
  begin
begin
  writeln(' табельный номер | Фамилия   | сумма премии');
  writeln('______________________________________________'); end;
  writeln('        ', a.tn:4,'   ', a.name:10,'     ', a.spr );
end;
close(f2);
end.

@Samhain · 31.07.2013, 08:35

lait123,

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
type k=record
    name:string[25];
    s:integer;
    tn:integer;
    pr:integer;
    spr:integer;
  end;
var f,f2:file of k;
    i,s,q,ff,itog:integer;
    a:k;
begin
  clrscr;
  itog:=0;
  assign(f,'spraw.txt');        {Присваеваем переменной файл}
  assign(f2,'prem.txt');
  rewrite(f);
  rewrite(f2);
  writeln('введите число рабочих');readln(s);
  writeln('введите значение приоритета 2');readln(q);
  writeln('введите значение приоритета 3');readln(ff);
  for i:=1 to s do
    begin
      writeln('табельный номер');readln(a.tn);   {Заполняем файл spraw данными}
      writeln('Фамилия');readln(a.name);
      writeln('зарплата');readln(a.s);
      writeln('признак');readln(a.pr);
      if a.pr=1 then a.spr:=0
      else if a.pr=3 then a.spr:=(a.s div 100)*ff
        else if a.pr=2 then a.spr:=(a.s div 100)*q;
      Itog:=itog+a.spr;
      write(f,a);
    end;
  close(f);
  reset(f);
  while not(eof(f)) do
    begin
      read(f,a); write(f2,a);
    end;
  close(f);
  close(f2);
  reset(f);
  reset(f2);
  writeln(' табельный номер | Фамилия   | сумма премии');
  while not(eof(f2)) do
    begin
      read(f2,a);
      writeln('______________________________________________');
      writeln('        ', a.tn:4,'   ', a.name:10,'     ', a.spr );
    end;
  writeln('______________________________________________');
  writeln('Итого: ', itog:26 );
  close(f2);
end.

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .