воскресенье, 2 апреля 2017 г.

Классная работа_9 класс

1. В таб­ли­це Dat хра­нят­ся оцен­ки (по де­ся­ти­балль­ной шкале) сту­ден­та по про­грам­ми­ро­ва­нию за 8 про­шед­ших с на­ча­ла учёбы се­мест­ров (Dat[1] — оцен­ка за пер­вый се­местр, Dat[2] — за вто­рой и т. д.). Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го ал­го­рит­ма, за­пи­сан­но­го на трёх ал­го­рит­ми­че­ских язы­ках.

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алгнач
цел­таб Dat[1:8]
цел к, m, term
Dat[1] := 7
Dat[2] := 7
Dat[3] := 6
Dat[4] := 8
Dat[5] := 4
Dat[6] := 5
Dat[7] := 8
Dat[8] := 7
term:=1; m := Dat[1]
нц для к от 2 до 8
если Dat[к] > m то
m:= Dat[k]
term := k
все
КЦ
вывод term
КОН
DIM Dat(8) AS INTEGER
Dat[1] = 7
Dat[2] = 7
Dat[3] = 6
Dat[4] = 8
Dat[5] = 4
Dat[6] = 5
Dat[7] = 8
Dat[8] = 7
term = 1: m = Dat(1)
FOR k = 2 TO 8
IF Dat(k) > m THEN
m = Dat(k)
term = k
END IF
NEXT k
PRINT term
END
Var k, m, term: integer;
Dat: array[1..8] of integer;
Begin
Dat[1] := 7;
Dat[2] := 7;
Dat[3] := 6;
Dat[4] := 8;
Dat[5] := 4;
Dat[6] := 5;
Dat[7] := 8;
Dat[8] := 7;
term:=1; m := Dat[1];
for k := 2 to 8 do
if Dat[k] > m then
begin
m:= Dat[k];
term := k;
end;
write(term);
End.
2. В таб­ли­це Work хра­нят­ся дан­ные о ко­ли­че­стве за­ка­зов, при­ня­тых фир­мой «Кон­фет­ти» с пер­во­го по 15 де­каб­ря. (Work[1] − число за­ка­зов, при­ня­тых 1 де­каб­ря, Work[2] − 2 де­каб­ря и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния:

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алгнач
цел­таб Work[1:15]
цел к, m
Work[1] := 5; Work[2] := 4
Work[3] := 5; Work[4] := 7
Work[5] := 6; Work[6] := 12
Work[7] := 7; Work[8] := 3
Work[9] := 9; Work[10] := 7
Work[11] := 0;Work[12] := 9
Work[13] := 1;Work[14] := 0
Work[15] := 8
m := 0
нц для к от 1 до 15
если Work[k] > 6 то
m : = m+1
все
КЦ
вывод m
КОН
DIM Work(15) AS INTEGER
DIM k,m AS INTEGER
Work(1)= 5: Work(2)= 4
Work(3)= 5: Work(4) = 7
Work(5)= 6: Work(6)= 12
Work(7)= 7: Work(8)= 3
Work(9)= 9: Work(10)= 7
Work(11)= 0: Work(12)= 9
Work(13)= 1: Work(14)= 0
Work(15)= 8
m = 0
FOR k = 1 TO 15
IF Work(k) > 6 THEN
m = m + 1
END IF
NEXT k
PRINT m
Var k, m: integer;
Work: array[1..15] of integer;
Begin
Work[1] := 5; Work[2] := 4;
Work[3] := 5; Work[4] := 7;
Work[5] := 6; Work[6] := 12;
Work[7] := 7; Work[8] := 3;
Work[9] := 9; Work[10] := 7;
Work[11] := 0; Work[12] := 9;
Work[13] := 1; Work[14] := 0;
Work[15] := 8;
m := 0;
For k := 1 to 15 Do
If Work[k] > 6 Then
Begin
m := m + 1;
End;
Writeln(m);
End.
3. Со­труд­ник ме­те­о­бю­ро в ходе из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за­пи­сы­вал по­ка­за­ния тер­мо­мет­ра в таб­ли­цу Tem (Tem[1] — тем­пе­ра­ту­ра, по­лу­чен­ная в ре­зуль­та­те пер­во­го из­ме­ре­ния, Tem[2] — вто­ро­го и т. д.).
Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алг
нач
цел­таб Tem[1:12]
цел k, b
b := 15
Tem[1] := 22; Tem[2] := 25
Tem[3] := 20; Tem[4] := 18
Tem[5] := 16; Tem[6] := 14
Tem[7] := 20; Tem[8] := 23
Tem[9] := 17; Tem[10] := 19
Tem[11] := 20; Tem[12] := 21
нц для k от 1 до 12
если Tem[k] < 20 то
b := b + 1
все
кц
вывод b
кон
DIM Tem(12) AS INTEGER
DIM k,b AS INTEGER
b = 15
Tem(1)= 22: Tem(2)= 25
Tem(3)= 20: Tem(4) = 18
Tem(5)= 16: Tem(6)= 14
Tem(7)= 20: Tem(8)= 23
Tem(9)= 17: Tem(10)= 19
Tem(11)= 20: Tem(12)= 21
FOR k = 1 TO 12
IF Tem(k) < 20 THEN
b = b + 1
END IF
NEXT k
PRINT b
Var k, b: integer;
Tem: array[1..12] of integer;
Begin
b := 15;
Tem[1] := 22; Tem[2] := 25;
Tem[3] := 20; Tem[4] := 18;
Tem[5] := 16; Tem[6] := 14;
Tem[7] := 20; Tem[8] := 23;
Tem[9] := 17; Tem[10] := 19;
Tem[11] := 20; Tem[12] := 21;
For k := 1 to 12 Do
If Tem[k] < 20 Then
b := b + 1;
Writeln(b);
End.
4. В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве уче­ни­ков в клас­сах (Dat[1] – ко­ли­че­ство уче­ни­ков в пер­вом клас­се, Dat[2] – во вто­ром и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алг
нач
    цел­таб Dat[1:11]
    цел k, m
    Dat[1] := 20; Dat[2] := 25
    Dat[3] := 19; Dat[4] := 25
    Dat[5] := 26; Dat[6] := 22
    Dat[7] := 24; Dat[8] := 28
    Dat[9] := 26; Dat[10] := 21
    Dat[11] := 27
    m := 0
    нц для k от 1 до 11
        если Dat[k] < 25 то
            m := m + 1
        все
    кц
    вывод m
кон
DIM Dat(11) AS INTEGER
DIM k,m AS INTEGER
Dat(1) = 20: Dat(2) = 25
Dat(3) = 19: Dat(4) = 25
Dat(5) = 26: Dat(6) = 22
Dat(7) = 24: Dat(8) = 28
Dat(9) = 26: Dat(10) = 21
Dat(11) = 27
m = 0
FOR k = 1 TO 11
IF Dat(k) < 25 THEN
m = m + 1
END IF
NEXT k
PRINT m
Var k, m: integer;
    Dat: array[1..11] of integer;
Begin
    Dat[1] := 20; Dat[2] := 25;
    Dat[3] := 19; Dat[4] := 25;
    Dat[5] := 26; Dat[6] := 22;
    Dat[7] := 24; Dat[8] := 28;
    Dat[9] := 26; Dat[10] := 21;
    Dat[11] := 27;
    m := 0;
    for k := 1 to 11 do
        if Dat[k] < 25 then
            begin
                m := m + 1
            end;
        writeln(m)
End.
5. В таб­ли­це Ves хра­нят­ся дан­ные о весе в ки­ло­грам­мах по груп­пе уча­щих­ся спор­тив­ной школы (Ves[1] — вес пер­во­го уча­ще­го­ся, Ves[2] — вес вто­ро­го уча­ще­го­ся и т. д.). Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го ал­го­рит­ма, за­пи­сан­но­го на трёх ал­го­рит­ми­че­ских язы­ках:

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алгнач
цел­таб Ves [1:14]
цел i, n
Ves[1]:= 25; Ves[2]:= 21;
Ves[3]:= 23; Ves[4]:= 28;
Ves[5]:= 30; Ves[6]:= 25;
Ves[7]:= 31; Ves[8]:= 28;
Ves[9]:= 25; Ves[10]:= 28;
Ves[11]:= 30; Ves[12]:= 27;
Ves[13]:= 26; Ves[14]:= 24;
n := 0
нц для i от 1 до 14
если Ves[i] > 26 то
n : = n + 1
все
КЦ
вывод n
КОН
DIS Ves(14) AS INTEGER
DIS i,n AS INTEGER
Ves(1)= 25: Ves(2)= 21
Ves(3)= 23: Ves(4)= 28
Ves(5)= 30: Ves(6)= 25
Ves(7)= 31: Ves(8)= 28
Ves(9)= 25: Ves(10)= 28
Ves(11)= 30: Ves(12)= 27
Ves(13)= 26: Ves(14)= 24
n = 0
FOR i = 1 TO 14
IF Ves(i) > 26 THEN
n : = n + 1
END IF
NEXT i
PRINT n
Var i, n: integer;
Ves: array[1..14] of integer;
Begin
Ves[1]:= 25; Ves[2]:= 21;
Ves[3]:= 23; Ves[4]:= 28;
Ves[5]:= 30; Ves[6]:= 25;
Ves[7]:= 31; Ves[8]:= 28;
Ves[9]:= 25; Ves[10]:= 28;
Ves[11]:= 30; Ves[12]:= 27;
Ves[13]:= 26; Ves[14]:= 24;
n := 0;
For i := 1 to 14 Do
If Ves[i] > 26 Then
Begin
n : = n + 1;
End;
Writeln(n);
End.
6. Вла­де­лец круп­но­го яб­ло­не­во­го сада в те­че­ние 12 лет за­пи­сы­вал в таб­ли­цу App ко­ли­че­ство со­бран­но­го уро­жая. (App[1] — ко­ли­че­ство тонн яблок, со­бран­ных за пер­вый год, App[2] — за вто­рой и т. д.). Опре­де­ли­те, какое
число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алг
алг
нач
цел­таб App[1:12]
цел k, m
App[1] := 100; App[2] := 128
App[3] := 80; App[4] := 99
App[5] := 120; App[6] := 69
App[7] := 55; App[8] := 115
App[9] := 84; App[10] := 111
App[11] := 59; App[12] := 100
m := 0
нц для k от 1 до 12
если App[k] < 80 то
m := m + 1
все
кц
m := m + 20
вывод m
кон
DIM App(12) AS INTEGER
DIM k,m AS INTEGER
App(1) = 100: App(2)= 128
App(3) = 80: App(4) = 99
App(5) = 120: App(6)= 69
App(7) = 55: App(8)= 115
App(9) = 84: App(10)= 111
App(11)= 59: App(12)= 100
m = 0
FOR k = 1 TO 12
IF App(k) < 80 THEN
m = m + 1
END IF
NEXT k
m = m + 20
PRINT m
Var k, m: integer;
App: array[1..12] of integer;
Begin
App[1] := 100; App[2] := 128;
App[3] := 80; App[4] := 99;
App[5] := 120; App[6] := 69;
App[7] := 55; App[8] := 115;
App[9] := 84; App[10] := 111;
App[11] := 59; App[12] := 100;
m := 0;
For k := 1 to 12 Do
If App[k] < 80 Then
Begin
m := m + 1;
End;
m : = m + 20;
Writeln(m);
End.
7. В таб­ли­це Dat хра­нят­ся дан­ные из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за 10 дней в гра­ду­сах (Dat[1] — дан­ные за пер­вый день, Dat[2] — за вто­рой и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алг
нач
цел­таб Dat[1:10]
цел k, m
Dat[1] := 12
Dat[2] := 15
Dat[3] := 17
Dat[4] := 15
Dat[5] := 14
Dat[6] := 12
Dat[7] := 10
Dat[8] := 13
Dat[9] := 14
Dat[10] := 15
m := 20
нц для k от 1 до 10
если Dat[k] < m то
m := Dat[k]
все
кц
вывод m
кон
DIM Dat(10) AS INTEGER
DIM k,m AS INTEGER
Dat(1) = 12: Dat(2) = 15
Dat(3) = 17: Dat(4) = 15
Dat(5) = 14: Dat(6) = 12
Dat(7) = 10: Dat(8) = 13
Dat(9) = 14:Dat(10) = 15
m = 20
FOR k = 1 TO 10
IF Dat(k) < m THEN
m = Dat(k)
ENDIF
NEXT k
PRINT m
Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 12; Dat[2] := 15;
Dat[3] := 17; Dat[4] := 15;
Dat[5] := 14; Dat[6] := 12;
Dat[7] := 10; Dat[8] := 13;
Dat[9] := 14; Dat[10] := 15;
m := 20;
for k := 1 to 10 do
if Dat[k] < m then
begin
m := Dat[k]
end;
writeln(m);
End.
8. В таб­ли­це Dat хра­нят­ся дан­ные еже­днев­ных из­ме­ре­ний ко­ли­че­ства осад­ков за не­де­лю в мил­ли­мет­рах (Dat[1] – дан­ные за по­не­дель­ник, Dat[2] – за втор­ник и т.д.). Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го ал­го­рит­ма, за­пи­сан­но­го на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алг
нач
цел­таб Dat[1:7]
цел k, day
Dat[1] := 14; Dat[2] := 10
Dat[3] := 0; Dat[4] := 15
Dat[5] := 0; Dat[6] := 15
Dat[7] := 10
day := 0;
нц для k от 1 до 7
если Dat[k] = 0 то
day := k
все
кц
вывод day
кон
DIM Dat(7) AS INTEGER
Dat(1) = 14: Dat(2) = 10
Dat(3) = 0: Dat(4) = 15
Dat(5) = 0: Dat(6) = 15
Dat(7) = 10
day = 0
FOR k = 1 TO 7
IF Dat(k) = 0 THEN
day=k
ENDIF
NEXT k
PRINT day
END
var k, day: integer;
Dat: array[1..7] of integer;
begin
Dat[1] := 14; Dat[2] := 10;
Dat[3] := 0; Dat[4] := 15;
Dat[5] := 0; Dat[6] := 15;
Dat[7] := 10;
day := 0;
for k := 1 to 7 do
if Dat[k] = 0 then
day := k;
write(day);
end.
9. В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве сде­лан­ных за­да­ний уче­ни­ка­ми (Dat[1] за­да­ний сде­лал пер­вый уче­ник, Dat[2] — вто­рой и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алгнач
цел­таб Dat[1:10]
цел к, m, n
Dat[1] := 7
Dat[2] := 9
Dat[3] := 10
Dat[4] := 5
Dat[5] := 6
Dat[6] := 7
Dat[7] := 9
Dat[8] := 8
Dat[9] := 6
Dat[10] := 9
m := 10; n: = 0
нц для к от 1 до 10
если Dat[к] < m то
m : = Dat[к]
n: = к
все
КЦ
вывод n
КОН
DIM Dat(10) AS INTEGER
DIM k,m,n AS INTEGER
Dat[1] = 7
Dat[2] = 9
Dat[3] = 10
Dat[4] = 5
Dat[5] = 6
Dat[6] = 7
Dat[7] = 9
Dat[8] = 8
Dat[9] = 6
Dat[10] = 9
m = 10; n = 0
FOR k := 1 TO 10
IF Dat(k) < m THEN
m =Dat[k]
n = k
ENDIF
NEXT k
PRINT n
Var k, m, n: integer;
Dat: array[1...10] of integer;
Begin
Dat[1] := 7;
Dat[2] := 9;
Dat[3] := 10;
Dat[4] := 5;
Dat[5] := 6;
Dat[6] := 7;
Dat[7] := 9;
Dat[8] := 8;
Dat[9] := 6;
Dat[10] := 9;
m := 10; n: = 0;
for k := 1 to 10 do
if Dat[k] < m then
begin
m := Dat[k];
n := k
end;
writeln(n);
End.
10. В таб­ли­це Dat хра­нят­ся от­мет­ки уча­щих­ся 9 клас­са за са­мо­сто­я­тель­ную ра­бо­ту (Dat[1] — от­мет­ка пер­во­го уча­ще­го­ся, Dat[2] — вто­ро­го и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алг
нач
цел­таб Dat[1:10]
цел k, m
Dat[1] := 4
Dat[2] := 5
Dat[3] := 4
Dat[4] := 3
Dat[5] := 2
Dat[6] := 3
Dat[7] := 4
Dat[8] := 5
Dat[9] := 5
Dat[10] := 3
m := 0
нц для k от 1 до 10
если Dat[k] > 3 то
m := m + 1
все
кц
вывод m
кон
DIM Dat(10) AS INTEGER
DIM k, m AS INTEGER
Dat(1) = 4: Dat(2) = 5
Dat(3) = 4: Dat(4) = 3
Dat(5) = 2: Dat(6) = 3
Dat(7) = 4: Dat(8) = 5
Dat(9) = 5: Dat(10) = 3
m = 0
FOR k = 1 TO 10
IF Dat(k) > 3 THEN
m = m + 1
END IF
NEXT k
PRINT m
END
Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 4; Dat[2] := 5;
Dat[3] := 4; Dat[4] := 3;
Dat[5] := 2; Dat[6] := 3;
Dat[7] := 4; Dat[8] := 5;
Dat[9] := 5; Dat[10] := 3;
m := 0;
for k := 1 to 10 do
if Dat[k] > 3 then
begin
m := m + 1;
end;
writeln(m);
End.
on

Комментариев нет:

Отправить комментарий

Подписаться на: Комментарии к сообщению (Atom)