Question

Помогите создать программу на паскаль:Разработать программу в соответствии со своим вариантом: создать структуру типа «запись», выполнить обработку данных.14. Дан массив записей, содержащий сведения о лекциях: - предмет; - фамилию и преподавателя; - шифр группы;- номер аудитории; - день недели;- номер пары.

Answer 1

type
  teach   = record
    firstName, lastName: string;
  end;
  lecture = record
    teacher: teach;
    subject: string;
    shifr, auditoria, day, para: integer;
    constructor create(teachFirstName, teachLastName, subject_: string; shifr_, auditoria_, day_, para_: integer);
    begin
      teacher.firstName := teachFirstName;
      teacher.lastName := teachLastName;
      subject := subject_;
      shifr := shifr_; auditoria := auditoria_; day := day_; para := para_;
    end;
  end;

var
  a: array [1..2] of lecture;
begin
  for i: byte := 1 to 2 do
  begin
    a[i] := new lecture('Ололош' , 'Джигурдович', 'Джигурдоведение', 2, 5, 6, 7);
  end;
end.

Answer 2

Программа на языке Pascal для создания структуры типа "запись" и обработки данных о лекциях может выглядеть следующим образом:

program Lectures;

type
  Lecture = record
    subject: string;
    teacher: string;
    groupCode: string;
    roomNumber: integer;
    dayOfWeek: string;
    lessonNumber: integer;
  end;

var
  lecturesArray: array[1..10] of Lecture; // пример массива записей о лекциях

// Процедура для заполнения массива записей о лекциях
procedure fillLecturesArray();
var
  i: integer;
begin
  for i := 1 to 10 do
  begin
    lecturesArray[i].subject := 'Subject' + IntToStr(i);
    lecturesArray[i].teacher := 'Teacher' + IntToStr(i);
    lecturesArray[i].groupCode := 'Group' + IntToStr(i);
    lecturesArray[i].roomNumber := i;
    lecturesArray[i].dayOfWeek := 'Monday';
    lecturesArray[i].lessonNumber := i;
  end;
end;

// Процедура для вывода информации о лекциях
procedure printLecturesArray();
var
  i: integer;
begin
  for i := 1 to 10 do
  begin
    writeln('Subject: ', lecturesArray[i].subject);
    writeln('Teacher: ', lecturesArray[i].teacher);
    writeln('Group Code: ', lecturesArray[i].groupCode);
    writeln('Room Number: ', lecturesArray[i].roomNumber);
    writeln('Day of Week: ', lecturesArray[i].dayOfWeek);
    writeln('Lesson Number: ', lecturesArray[i].lessonNumber);
    writeln;
  end;
end;

begin
  fillLecturesArray(); // заполнение массива записей
  printLecturesArray(); // вывод информации о лекциях
end.

В данной программе создается тип данных "Lecture" для хранения информации о лекциях, а затем объявляется массив "lecturesArray" этого типа. Далее создаются процедуры для заполнения массива записей о лекциях и вывода информации о них. В конце программы вызываются эти процедуры для демонстрации работы программы.

Таким образом, данная программа на языке Pascal позволяет создать структуру типа "запись" и выполнить обработку данных о лекциях.