Задачки. Паскаль АВС.
Добавлено: 29 дек 2010, 21:23
Дорогие программисты, помогите пожалуйсто решить 2 задачки=(
1)В квадратной матрице найти номер строки с минимальной суммой её элементов и номер столбца с максимальной суммой элементов. Элементы найденной строки поменять местами с соответствующим элементом найденного столбца.
2)Описать, используя структуру данных запись, расписание(предмет, предподаватель, номер, группы, день недели, часы, аудитория). Составить программу определяющую, какая нагрузка у заданного предподавателя на этой недели и список групп, у которых он ведёт занятия.
С матрицами вообще непонимаю, во 2й начала и то наверн неправильно, незнаю как составить программу которая определиткакая нагрузка у препода и тд.
2)
1)В квадратной матрице найти номер строки с минимальной суммой её элементов и номер столбца с максимальной суммой элементов. Элементы найденной строки поменять местами с соответствующим элементом найденного столбца.
2)Описать, используя структуру данных запись, расписание(предмет, предподаватель, номер, группы, день недели, часы, аудитория). Составить программу определяющую, какая нагрузка у заданного предподавателя на этой недели и список групп, у которых он ведёт занятия.
С матрицами вообще непонимаю, во 2й начала и то наверн неправильно, незнаю как составить программу которая определиткакая нагрузка у препода и тд.
2)
Код: Выделить всё
program zapisi;
type
dannie=record
p,pr,dn:string[20];
ng,ch,aud:1..500;
end;
var
a:dannie;
begin
write('vvedite predmet');
readln(a.p);
write('vvedite predpodavatela');
readln(a.pr);
write('vvedite nomer gruppi');
readln(a.ng);
write('vvedite den nedeli');
readln(a.dn);
write('vvedite chasi');
readln(a.ch);
write('vvedite auditoriu');
readln(a.aud);
writeln(a.p,',',a.pr,'.',a.ng,', ',a.dn,',',a.ch,' chasov ',a.aud,' auditoria.');