Саня111

1 задача. Сформировать запись, имеющую следующую структуру
type предмет=record
название:string; количество часов:integer; преподаватель:string; кафедра:string; форма отчетностизачет,экзамен); end;
и определить:
преподавателя, у которого самое большое количество часов;
список предметов, по которым сдают экзамен;
кафедру и преподавателя, который ведет данный предмет.
2 задача. Составить программу, выводящую на экран инвентаризационную ведомость (инвентаризационный номер, наименование, дата учета)
3 задача. Определить и вывести на экран множество символов входящих одновременно в имя, отчество, и фамилию, введённые с клавиатуры.

Саня111

1 задача. Сформировать запись, имеющую следующую структуру
type предмет=record
название:string; количество часов:integer; преподаватель:string; кафедра:string; форма отчетности: (зачет,экзамен); end;
и определить:
преподавателя, у которого самое большое количество часов;
список предметов, по которым сдают экзамен;
кафедру и преподавателя, который ведет данный предмет.
2 задача. Составить программу, выводящую на экран инвентаризационную ведомость (инвентаризационный номер, наименование, дата учета)
3 задача. Определить и вывести на экран множество символов входящих одновременно в имя, отчество, и фамилию, введённые с клавиатуры.

Vladimir_S

VAR
S1,S2,S3:STRING;
i,j,k:INTEGER;
BEGIN
Write('Name: '); Readln(S1);
Write('Patronymic: '); Readln(S2);
Write('Surname: '); Readln(S3);
FOR i:=1 TO Length(S1) DO
FOR j:=1 TO Length(S2) DO
FOR k:=1 TO Length(S3) DO
IF (S1[i]=S2[j]) AND (S2[j]=S3[k]) THEN Write(S1[i]+' ');
WriteLn;
ReadLn;
END.

Остальные задачи - самостоятельно. Рутинная работа.
P.S. И перестаньте дублировать посты - нарветесь на неприятности с администрацией.

Революционерка

csbwalker
Спасибо вам большое)))

Саня111

Спасибо!но именно первые две я и не понял как делать???

Vladimir_S

Взять любой учебник по Паскалю и посмотреть, как работать с записями. Тем более, что в первой задаче запись практически описана.

Бракс

Vladimir_S: спасибо большое за помощь я вам очень благодарен!!!

timyselani

Уважаемый Vladimir_S!Прошу вас помочь мне с написанием проги на языке Турбо Паскаль.(самому непосильно).Тема проги:Объекты.

Написать программу хаотичного движения разноцветных снежинок(слева направо,снежинок не менее 10 штук).

Vladimir_S

Помочь, к сожалению, не смогу. Объектно-ориентированного программирования так и не освоил - просто нужды в том не было.

Саня111

1.Построить график указанной функции.


http://www.tehnari.ru/imagehosting/2...9161b01439.bmp



2.Изобразить кисть смородины с отпадающими ягодками