Задание..., Файлы с записами... Опции

[-zara44-]

1. Создать файл с записями следующей структуры:

-шифр факультета

-курс

-номер группы

-кол-во не явившихся по уважительной причине
-кол-во не явившихся по не уважительной причине

-кол-во очисленных

2. Распечатать файл в виде сводки таблицы.
3. Для двух, трех групп скорректировать 3-ри последних поля.

[Tan]

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

Uses crt;
Const N = 10;
      filename = 'Data.txt';
 type school = Record
    FacultyCode : integer;
    Course      : integer;
    Number      : integer;
    GoodGuys    : integer;
    BadGuys     : integer;
    VeryBadGuys : integer;
  end;
var
   f : file of school;
  ms : array [1..N] of school;
   K : byte;
   i : integer;
begin
Clrscr;
assign (f,filename);
Rewrite (f);
Writeln ('How much records you will create ? ');
readln (K);
 for i:= 1 to K do
   With ms[i] do
    begin
     Clrscr;
      Writeln ('Input faculty code of ',i, ' record');
      Readln (ms[i].FacultyCode);
      Writeln ('Input course of ',i, ' record');
      Readln (ms[i].Course);
      Writeln ('Input number of ',i, ' record');
      Readln (ms[i].Number);
      Writeln ('Input amount of GoodGuys of ',i, ' record');
      Readln (ms[i].GoodGuys);
      Writeln ('Input amount of BadGuys of ',i, ' record');
      Readln (ms[i].BadGuys);
      Writeln ('Input amount of VeryBadGuys in ',i, ' record');
      Readln (ms[i].VeryBadGuys);
      write (f,ms[i]);
      Writeln ('Data has been written. Press any key...');
      readkey;
    end;
Close (f);
end.

Сообщение отредактировано: Tan - 30.04.2007 16:25