четверг, 24 ноября 2016 г.

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

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

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алг
нач
цел­таб Tem[1:12]
цел k, b
b := 0
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] < 19 то
b := b + Tem[k]
все
кц
вывод b
кон
DIM Tem(12) AS INTEGER
DIM k,b AS INTEGER
b = 0
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) < 19 THEN
b = b + Tem[k]
END IF
NEXT k
PRINT b
Var k, b: integer;
Tem: array[1..12] of integer;
Begin
b := 0;
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] < 19 Then
b := b + Tem[k];
Writeln(b);
End.
За­да­ние 10 № 909
3. В таб­ли­це 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 := Ves[1]
нц для i от 1 до 14
если Ves[i] < n то
n : = Ves[i]
все
КЦ
вывод 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 = Ves(1)
FOR i = 1 TO 14
IF Ves(i) < n THEN
n : = Ves(i)
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 := Ves[1];
For i := 1 to 14 Do
If Ves[i] < n Then
Begin
n : = Ves[i];
End;
Writeln(n);
End.
За­да­ние 10 № 671
4. В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве уче­ни­ков в клас­сах (Dat[1] — ко­ли­че­ство уче­ни­ков в пер­вом клас­се, Dat[2] — во вто­ром и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алгнач
цел­таб Dat[1:11]
цел к, m
Dat[1] := 20
Dat[2] := 27
Dat[3] := 19
Dat[4] := 28
Dat[5] := 26
Dat[6] := 22
Dat[7] := 24
Dat[8] := 28
Dat[9] := 26
Dat[10] := 21
Dat[11] := 27
m := 0
нц для к от 1 до 11
если Dat[к] < 25 то
m : = Dat[к]
все
КЦ
вывод m
КОН
DIM Dat(11) AS INTEGER
DIM k,m AS INTEGER
Dat[1] = 20
Dat[2] = 27
Dat[3] = 19
Dat[4] = 28
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 =Dat[ k]
ENDIF
NEXT k
PRINT m
Var k, m: integer;
Dat: array[1..11] of integer;
Begin
Dat[1] := 20;
Dat[2] := 27;
Dat[3] := 19;
Dat[4] := 28;
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 := Dat[k];
end;
writeln(m);
End.
За­да­ние 10 № 310
5. В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве дет­ских празд­ни­ков, ко­то­рые про­во­ди­ло кафе за по­след­ний год (Dat[1] — ко­ли­че­ство дет­ских празд­ни­ков в ян­ва­ре, Dat[2] — ко­ли­че­ство празд­ни­ков в фев­ра­ле и т. д.). Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го ал­го­рит­ма, за­пи­сан­но­го на трёх ал­го­рит­ми­че­ских язы­ках.

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

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

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алгнач
цел­таб Dat[1:10]
цел к, m
Dat[1] := 2
Dat[2] := 5
Dat[3] := 7
Dat[4] := 5
Dat[5] := 4
Dat[6] := 2
Dat[7] := 0
Dat[8] := 3
Dat[9] := 4
Dat[10] := 5
m := 10
нц для к от 1 до 10
если Dat[к] < m то
m : = Dat[к]
все
КЦ
вывод m
КОН
DIM Dat(10) AS INTEGER
DIM k,m AS INTEGER
Dat(1) = 2: Dat(2) = 5
Dat(3) = 7: Dat(4) = 5
Dat(5) = 4: Dat(6) = 2
Dat(7) = 0: Dat(8) = 3
Dat(9) = 4: Dat(10) = 5
m = 10
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] := 2; Dat[2] := 5;
Dat[3] := 7; Dat[4] := 5;
Dat[5] := 4; Dat[6] := 2;
Dat[7] := 0; Dat[8] := 3;
Dat[9] := 4; Dat[10] := 5;
m := 10;
for k := 1 to 10 do
if Dat [ k] < m then
begin
m := Dat[k]
end;
writeln(m);
End.
За­да­ние 10 № 110
9. Вла­де­лец круп­но­го яб­ло­не­во­го сада в те­че­ние 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] > 100 то
m := m + 1
все
кц
m := m + 10
вывод 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) > 100 THEN
m = m + 1
END IF
NEXT k
m = m + 10
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] > 100 Then
Begin
m := m + 1;
End;
m : = m + 10;
Writeln(m);
End.
За­да­ние 10 № 806
10. Школь­ни­ца де­ла­ла ла­бо­ра­тор­ную ра­бо­ту по фи­зи­ке, в ходе ко­то­рой из­ме­ри­ла 10 раз силу тока и за­пи­са­ла по­ка­за­ния ам­пер­мет­ра в таб­ли­цу Tok (Tok[1] — ре­зуль­тат пер­во­го из­ме­ре­ния, Tok[2] — вто­ро­го и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

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

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алг
нач
цел­таб Dat[1:10]
цел k, 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] := 10
Dat[9] := 6; Dat[10] := 9
m := 0 ; n := 0
нц для k от 1 до 10
если Dat[k] >= m то
m := Dat[k]
n := k
все
кц
вывод 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) = 10
Dat(9) = 6: Dat(10) = 9
m = 0 : n =0
FOR k = 1 TO 10
IF Dat(k) >= m THEN
m = Dat(k)
n = k
END IF
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] := 10;
Dat[9] := 6; Dat[10] := 9;
m := 0; n := 0;
for k := 1 to 10 do
if Dat[k] >= m then
begin
m := Dat[k]; n := k
end;
writeln(n)
End.
За­да­ние 10 № 1081
12. В таб­ли­це 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.
За­да­ние 10 № 571
13. Школь­ник делал ла­бо­ра­тор­ную ра­бо­ту по фи­зи­ке, в ходе ко­то­рой из­ме­рил 10 раз силу тока и за­пи­сал по­ка­за­ния ам­пер­мет­ра в таб­ли­цу Tok (Tok[1] — ре­зуль­тат пер­во­го из­ме­ре­ния, Tok[2] — вто­ро­го и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алгнач
цел­таб Tok[1:10]
цел k, m
Tok[1] := 10; Tok[2] := 14
Tok[3] := 15; Tok[4] := 4
Tok[5] := 12; Tok[6] := 6
Tok[7] := 3; Tok[8] := 5
Tok[9] := 5; Tok[10] := 10
m := 22
нц для k от 1 до 10
если Tok[k] > 10 то
m := m - 1
все
кц
вывод m
кон
DIM Tok(10) AS INTEGER
DIM k,m AS INTEGER
Tok(1)= 10: Tok(2)= 14
Tok(3)= 15: Tok(4) = 4
Tok(5)= 12: Tok(6)= 6
Tok(7)= 3: Tok(8)= 5
Tok(9)= 5: Tok(10)= 10
m = 22
FOR k = 1 TO 10
IF Tok(k) > 10 THEN
m = m - 1
END IF
NEXT k
PRINT m
Var k, m: integer;
Tok: array[1..10] of integer;
Begin
Tok[1] := 10; Tok[2] := 14;
Tok[3] := 15; Tok[4] := 4;
Tok[5] := 12; Tok[6] := 6;
Tok[7] := 3; Tok[8] := 5;
Tok[9] := 5; Tok[10] := 10;
m := 22;
For k := 1 to 10 Do
If Tok[k] > 10 Then
Begin
m := m - 1;
End;
Writeln(m);
End.
За­да­ние 10 № 754
14. В таб­ли­це 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] < 4 то
m := m + Dat[k]
все
кц
вывод 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) < 4 THEN
m = m + Dat(k)
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] < 4 then
begin
m := m + Dat[k];
end;
writeln(m);
End.
За­да­ние 10 № 868
15. В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве по­ез­дов, от­прав­ля­ю­щих­ся с цен­траль­но­го вок­за­ла го­ро­да на юг в пер­вой де­ка­де июля (Dat[1] — ко­ли­че­ство по­ез­дов пер­во­го числа, Dat[2] — ко­ли­че­ство по­ез­дов вто­ро­го числа и т. д.). Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го ал­го­рит­ма, за­пи­сан­но­го на трёх ал­го­рит­ми­че­ских язы­ках.

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

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

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

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