понедельник, 21 ноября 2016 г.

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

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алгнач
цел­таб Dat[1:12]
цел к, m, term
Dat[1] := 2
Dat[2] := 5
Dat[3] := 6
Dat[4] := 8
Dat[5] := 8
Dat[6] := 5
Dat[7] := 3
Dat[8] := 7
Dat[9] := 4
Dat[10] := 4
Dat[11] := 8
Dat[12] := 7
month:=1; m := Dat[1]
нц для к от 2 до 12
если Dat[к] >= m то
m:= Dat[k]
month := k
все
КЦ
вывод month
КОН
DIM Dat(12) AS INTEGER
Dat[1] = 2
Dat[2] = 5
Dat[3] = 6
Dat[4] = 8
Dat[5] = 8
Dat[6] = 5
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 12
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] := 5;
Dat[3] := 6;
Dat[4] := 8;
Dat[5] := 8;
Dat[6] := 5;
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 12 do
if Dat[k] >= m then
begin
m:= Dat[k];
month := k;
end;
write(month);
End.
За­да­ние 10 № 411
2. В таб­ли­це 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
3. В таб­ли­це Dat хра­нят­ся дан­ные из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за 10 дней в гра­ду­сах (Dat[1] — дан­ные за пер­вый день, Dat[2] — за вто­рой и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

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

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алгнач
цел­таб Dat[1:10]
цел к, m
Dat[1] := 16
Dat[2] := 20
Dat[3] := 20
Dat[4] := 41
Dat[5] := 14
Dat[6] := 21
Dat[7] := 28
Dat[8] := 11
Dat[9] := 15
Dat[10] := 35
m := 50
нц для к от 1 до 10
если Dat[к] < m то
m : = Dat[к]
все
КЦ
вывод m
КОН
DIM Dat(10) AS INTEGER
DIM k,m AS INTEGER
Dat(1) = 16: Dat(2) = 20
Dat(3) = 20: Dat(4) = 41
Dat(5) = 14: Dat(6) = 21
Dat(7) = 28: Dat(8) = 11
Dat(9) = 15: Dat(10) = 35
m = 50
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] := 16; Dat[2] := 20;
Dat[3] := 20; Dat[4] := 41;
Dat[5] := 14; Dat[6] := 21;
Dat[7] := 28; Dat[8] := 11;
Dat[9] := 15; Dat[10] := 35;
m := 50;
for k := 1 to 10 do
if Dat[k] < m then
begin
m := Dat[k]
end;
writeln(m);
End.
За­да­ние 10 № 250
5. Со­труд­ник ме­те­о­бю­ро в ходе из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за­пи­сы­вал по­ка­за­ния тер­мо­мет­ра в таб­ли­цу 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
6. В таб­ли­це Dat пред­став­ле­ны дан­ные о ко­ли­че­стве го­ло­сов, по­дан­ных за 10 ис­пол­ни­те­лей на­род­ных песен (Dat[1] — ко­ли­че­ство го­ло­сов, по­дан­ных за пер­во­го ис­пол­ни­те­ля, Dat[2] — за вто­ро­го и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

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

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алгнач
цел­таб Dat[1:10]
цел k, m
Dat[1] := 16
Dat[2] := 20
Dat[3] := 20
Dat[4] := 41
Dat[5] := 14
Dat[6] := 21
Dat[7] := 28
Dat[8] := 12
Dat[9] := 15
Dat[10] := 35
m := 0
нц для k от 1 до 10
если Dat[k]>m то
m := Dat[k]
все
кц
вывод m
кон
DIM Dat(10) AS INTEGER
DIM k,m AS INTEGER
Dat(1) = 16: Dat(2) = 20
Dat(3) = 20: Dat(4) = 41
Dat(5) = 14: Dat(6) = 21
Dat(7) = 28: Dat(8) = 12
Dat(9) = 15:Dat(10) = 35
m = 0
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] := 16; Dat[2] := 20;
Dat[3] := 20; Dat[4] := 41;
Dat[5] := 14; Dat[6] := 21;
Dat[7] := 28; Dat[8] := 12;
Dat[9] := 15; Dat[10] := 35;
m := 0;
for k := 1 to 10 do
if Dat[k]>m then
begin
m := Dat[k]
end;
writeln(m);
End.
За­да­ние 10 № 711
10. В таб­ли­це 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.
on

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

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

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