Турбопаскаль

 
 
 
 

г)

   Program x4;

   Type b=array[1..5,1..6]of real;

    Var a1,a2,a3:b;s,SA_SUM:real;

             m,n,i,j,k:integer;

Procedure V(n,m:integer;var a:b);

Begin

Writeln (‘ввести’,n,’на’,m,’элементов’);

For i:=1 to n do

For j:=1 to m do readln(A[i,j]);end;

Function P(n,m;integer;a:b):real;

Begin

S:=0;K:=0;

For i:=1 to n do

For j:=1 to m do

If (I mod 2 =0) and (j mod 2=0) then begin

                                                          S:=S+A[i,j];

                                                          K:=K+1;end;

SA_SUM:=s/k;

Writeln(‘ср.ар.сум из ‘,n,’на’,m,’ эл-тов с индексами кр.2=’,SA_SUM:5:3);

P:=SA_SUM;end;

Begin

V(4,5,a1); V(4,4,a2); V(5,4,a3);

P(4,5,a2); P(4,4,a2); P(5,4,a3);

END. 

д)

      Вв 4 на 5 эл-тов.        Вв 4 на 4 эл-тов.           Вв 5 на 4 эл-тов.       

    2.3 4.4 6.6 7.6 6.6          4.4 7.9 6.4 4.5               4.9 5.5 4.4 5.2

3.3 6.6 2.2 4.4 6.6          6.3 5.5 7.7 9.9               2.2 4.5 6.7 4.2

4.4 6.6 4.4 5.5 2.3          5.5 6.6 3.3 5.5               3.4 6.6 8.6 4.8

8.8 6.6 4.4 3.4 6.8          7.7 6.5 3.5 6.7               4.7 8.6 4.7 5.3

                             4.5 3.4 5.6 4.3 

е)

    Вв 4 на 5 эл-тов

    ср.ар.сум  из 4 на 5 эл-тов с индексами кр.2=5.250

    Вв 4 на 4 эл-тов.          

    ср.ар.сум  из 4 на 4 эл-тов с индексами кр.2=7.150

   Вв 5 на 4 эл-тов

    ср.ар.сум  из 4 на 5 эл-тов с индексами кр.2=5.650 
 

6.Задание №5

 а)

    Описать анкетные данные на 23 работника предприятия по структуре: Ф.И.О: фамилия, имя, отчество; Дата рождения: год, месяц, число; место работы, стаж работы. Вывести данные в таблице во внешний файл на работников “Оренбургнефть”, со стажем>5 лет, упорядочив список по алфавиту. 
 
 

б)

RABOTNIK – основная запись, FIO – запись, FAM-фамилия, IM-имя, OT-отчество. DATA_R – запись, состоящая из 3-х полей: GOD-год, MES-месяц, CHIS-число, MESTO_R – место работы, STAZH_R – стаж работы.Z- файловая переменная.Dulo.TXT- файл

в)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 
 
 

 

 
 
 

 

  

 

г)

    Program ANKETA;

  Type RABOTNIK=RECORD

                  FIO: RECORD

                FAM: STRING[10];

  IM: STRING[10];           

                      OT: STRING[10];END;

            DATA_R: RECORD

                  GOD:1960..1987;

                  MES:1..12;

                 CHIS:1..31;

       MESTO_R : STRING[20];

         STAZH_R:1..40;END;

Var a=array[1..23] of RABOTNIK; z:text;

        I,j,k:integer;x: STRING[10];y: RABOTNIK;

Begin

assign (z,’Dulo.TXT’);

rewite(z);

For i:=1 to 23 do with a[i],fio,data_r do begin

Writeln(‘ввести фамилию’,I,’ рабочего’);Readln(fam);

Writeln(‘ввести имя’);Readln(im);

Writeln(‘ввести отчество’);Readln(ot);

Writeln(‘ввести год’);Readln(god);

Writeln(‘ввести месяц’);Readln(mes);

Writeln(‘ввести число’);Readln(chis);

Writeln(‘ввести место работы’);Readln(mesto_r);

Writeln(‘ввести стаж работы’);Readln(stash_r);end;

For i:=1 to 22 do begin

                                     K:=I;

                                     X:=a[i].fio.fam;

                                     For j:=1 to 23 do

                                     If a[j].fio.fam<x then begin

                                     K:=j;

                                     X:=a[i].fio.fam; end;x:= a[i].fam

                                      y:=a[k].fio.fam;

                                     a[k].fio.fam:=a[i].fio.fam;

                                     a[i].fio.fam:=y;end;

Writeln (z‘---------------------------------------------------------------------------------------’);

Writeln (z’|   |                 ФИО                    |Дата рождения |       место        |  стаж |’);      

Writeln (z’| n|----------------------------------|--------------------|        рабо          | рабо  |’);

Writeln (z’|   |фамилия|   имя   | отчество | год | мес | чис  |          ты           |   ты   |’);      

Writeln (z’|   |-----------|---------|-------------|------|------|-------|-------------------|--------|');

For i:=1 to 23 do with a[i],fio,data_r do

If (mesto_r=’Оренбургнефть’) and (stash_r>5) then begin

Writeln (z,’|’,i:3,’|’, fam:10,’|’, im:10,’|’, ot:10,’|’, god:5,’|’, mes:5,’|’, chis:5,’|’, mesto_r:20,’|’, stash_r:5,’|’);end;

Writeln (z’---------------------------------------------------------------------------------------‘);readln;

close(z);

end. 
 
 

д)

    ввести  фамилию 1  рабочего

    Лавкин 

    ввести  имя

    Олег 

    ввести  отчество 

 Николаевич 

 ввести год

1972

ввести месяц

10

ввести число

30

ввести место  работы

Оренбургнефть

ввести стаж работы

15

ввести фамилию 2  рабочего

Темкин 

ввести имя

Александр

ввести отчество 

Дмитриевич

ввести год

1980

ввести месяц

5

ввести число

15

ввести место  работы

Оренбургэнерго

ввести стаж работы

20

ввести фамилию 3  рабочего

Тин

ввести имя

Алексей

ввести отчество 

Евгеньевич

   ввести  год

1983

ввести месяц

6

ввести число

20

ввести место  работы

Хлебкомбинат 

ввести стаж работы

5

ввести фамилию 4  рабочего

Рунковская

ввести имя

Елена

ввести отчество 

Петровна

ввести год

1987

ввести месяц

8

   ввести  число

13

ввести место  работы

Парикмахерская

ввести стаж работы

2

ввести фамилию 5  рабочего

Четверов

ввести имя

Александр

    ввести  отчество 

Николаевич

ввести год

1976

ввести месяц

4

ввести число

1

ввести место  работы

Оренбургнефть

   ввести стаж работы

10

ввести фамилию 6  рабочего

Котова

ввести имя

Мария

ввести отчество 

Степановна

ввести год

1982

ввести месяц

5

   ввести  число

9

ввести место  работы

Гор.больница

ввести стаж работы

9

ввести фамилию 7  рабочего

Жуковский

ввести имя

Сергей

ввести отчество 

Александрович

ввести год

1977

ввести месяц

12

ввести число

13

ввести место  работы

Оренбургнефть

   ввести  стаж работы

7

ввести фамилию 8  рабочего