Name: TП-12 Записи
Item: TП-12 Записи
Author: Nihtalak

3 Nihtalak (16.03.2009 21:43)

0

Program records;
Uses Crt;
Const n = 30;
type Tlr = Record
name: string;
lections: integer;
labworks: integer;
practic: integer;
self: integer;
semester: byte;
examenation: char;
end;
Tlesson = array[1..n] of Tlr;
var lesson: Tlesson;
count: integer;
i: integer;
c: char;

Procedure Input(var x: Tlesson; var y: integer);
var i: integer;
Begin
ClrScr;
WriteLn('vvedite kol-vo zapisey');
ReadLn(y);
ClrScr;
for i := 1 to y do
with x[i] do
begin
WriteLn('vvedite nazvanie discipliny');
Readln(name);
ClrScr;
WriteLn('vvedite kol-vo laboratornyh rabot ', name);
ReadLn(labworks);
ClrScr;
WriteLn('vvedite kol-vo lekcii ', name);
ReadLn(lections);
ClrScr;
WriteLn('vvedite kol-vo pract zanyatii ', name);
ReadLn(practic);
ClrScr;
WriteLn('vvedite kol-vo samostoyatelnyh ', name);
ReadLn(self);
ClrScr;
WriteLn('vvedite semestr ', name);
ReadLn(semester);
ClrScr;
WriteLn('vvedite Z - zachot / E - eksamen ', name);
ReadLn(examenation);
ClrScr;
end;
end;

Procedure Output(x: Tlesson; y, zy: integer; b: boolean);
var i: integer;
c: char;
Begin
zy := zy + y;
if b then
begin
GotoXY(1, zy);
WriteLn('vvedite');
WriteLn('m - tolko matematiki');
WriteLn('any key - dlya vseh');
ReadLn©;
GotoXY(1, zy);
WriteLn(' ');
WriteLn(' ');
WriteLn(' ');
WriteLn(' ');
GotoXY(1, zy - 2);
WriteLn('Vyhidni danni');
end;
GotoXy(1, zy - 1);
for i := 1 to 80 do
Write('-');
Write('|');
GotoXY(7, zy);
Write('nazvanie');
GotoXY(20, zy);
Write('| lekcii | laborator | practika | samost | semestr | eksamen|');
for i := 1 to 80 do
Write('-');
For i := 1 to y do
with lesson[i] do
Begin
if (c = 'm') and (name <> 'matematika') then
continue;
Write('| ', name);
GotoXY(20, i + zy + 1);
Write('| ', lections);
GotoXY(29, i + zy + 1);
Write('| ', labworks);
GotoXY(41, i + zy + 1);
Write('| ', practic);
GotoXY(52, i + zy + 1);
Write('| ', self);
GotoXY(61, i + zy + 1);
Write('| ', semester);
GotoXY(71, i + zy + 1);
Write('| ', examenation);
GotoXY(80, i + zy + 1);
Write('|');
end;
for i := 1 to 80 do
Write('-');
end;
Begin
input(lesson, count);
WriteLn('Laboratorna robota TP - 12');
WriteLn('z discipliny OPAM');
WriteLn('studenta grupy PZ-08-1');
WriteLn('Oberemka Volodimira');
WriteLn(#10#13, ' Variant 13');
WriteLn(#10#13, 'Vhidni danni');
output(lesson, count, 10, FALSE);
Output(lesson, count, 18, TRUE);
readkey;
End.

2 slashovanton (23.02.2009 21:11)

0

Вариант 17

Code

PROGRAM Proba;
Uses
    CRT;
Const
    FacultyMax=10;
Type
    SNP = Record
     Surname,Name,Patronymic:String;
     end;
    Faculty = Record
     Name:String;
     YearOfCreation:Integer;
     Dean:SNP;
     WorkersCount,StudentsCount:Integer;
     End;
    FacultyS = Record
     Faculty:array[1..FacultyMax] of Faculty;
     Count:Integer;
     End;
var
    VUZ:FacultyS;
procedure LAB(i:integer);
     begin
     ClrScr;
      WriteLn('Лабораторна робота TP-',i);
      WriteLn('Студента групи ПЗ-08-1');
      WriteLn('Слащова Антона Iгоровича');
    WriteLn;
     end;
Procedure InputFile(var ob:FacultyS;FaleName:string);
Var
    F:text;
begin
    Assign(F, FaleName);
     Reset(F);
    ob.Count:=0;
    While Not EOF(F) Do
     Begin
      ob.Count:=ob.Count+1;
      ReadLn(F,ob.Faculty[ob.Count].Name);
      ReadLn(F,ob.Faculty[ob.Count].YearOfCreation);
      ReadLn(F,ob.Faculty[ob.Count].Dean.Surname);
      ReadLn(F,ob.Faculty[ob.Count].Dean.Name);
      ReadLn(F,ob.Faculty[ob.Count].Dean.Patronymic);
      ReadLn(F,ob.Faculty[ob.Count].WorkersCount);
      ReadLn(F,ob.Faculty[ob.Count].StudentsCount);
     End;
    close(F);
end;
Procedure Output(var ob:FacultyS);
Var
    i:integer;
begin
    WriteLn('-------------------|------|-----------------------|----------------|-----------');
    WriteLn('Название факультета| Год  |  ФИО декана  | Преподавателей | Студентов');
    WriteLn('-------------------|------|-----------------------|----------------|-----------');
    for i:=1 to ob.Count do
     Begin
      WriteLn(
       ob.Faculty[i].Name,'  | ',
       ob.Faculty[i].YearOfCreation,' | ',
       ob.Faculty[i].Dean.Surname,' ',
       ob.Faculty[i].Dean.Name,' ',
       ob.Faculty[i].Dean.Patronymic,'|  ',
       ob.Faculty[i].WorkersCount,'  |  ',
       ob.Faculty[i].StudentsCount);
      End;
    WriteLn('-------------------|------|-----------------------|----------------|-----------');
end;
Procedure Sort(var ob:FacultyS);
Var
    i,j:integer;
    p:Faculty;
begin
    for i:=1 to ob.Count-1 do
     for j:=i+1 to ob.Count do
      if ob.Faculty[i].StudentsCount<ob.Faculty[j].StudentsCount then
       Begin
        p:=ob.Faculty[i];
        ob.Faculty[i]:=ob.Faculty[j];
        ob.Faculty[j]:=p;
       End;
end;
Begin
    clrscr;
    LAB(11);
    InputFile(VUZ,'TP12.txt');
    Sort(VUZ);
    Output(VUZ);
    ReadKey;
End.

TP12.txt

Code

факультет номер 1
1990
Иванов
Иван
Иванович
3
20
факультет номер 2
1980
Петров
Петя
Печаткин
4
60
факультет номер 3
1991
Пупкин
Вася
Озбестович
5
40

1 EXTRASTAGE (20.02.2009 21:41)

0

сделайте мне кто-нибудь ТП-9, 10, 12 cry

:'(