Помогите создать программу на паскаль:
10-11 класс
|
Разработать
программу в соответствии со своим вариантом: создать структуру типа «запись», выполнить
обработку данных.
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.
Другие вопросы из категории
t >= 6 t= 9 t >= 10 t < 10 t>= 6 И t<10 t< 4 И t<10 t<4 ИЛИ t<10 б) Обведи столбик с простыми высказываниями
фирма С получит максимальную прибыль , если максимальную прибыль получит фирма В или не получит фирма А
стороной 141, пока это возможно. Затем вновь отрезают квадраты со стороной,
равной 324-2*141=42 и т.д. На какие квадраты и насколько будет разделен прямоугольник?
Решение программы в Pascal ABC
Читайте также
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
Даны
действительные числа х, у, и z. Вычислить
max (x + y + z, xyz).
(только пожалуйста напишите полное решение, а не кусок)
Сами задачи во вложении.