Тест 2 ЭКЗАМЕН

 Задание 9. Запишите зна­че­ние пе­ре­ме­ной s, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

 

Алгоритмический язык	Бейсик	Паскаль
алг нач     цел s, k     s:=0,     нц для k от 1 до 11         s:=s+12     кц     вывод s кон	DIM k, s AS INTEGER s = 0 FOR k = 1 TO 11 s= s+12 NEXT k PRINT s END	Var s,k: integer; Begin     s:=0; for k:=1 to 11 do         s:=s+12;     write(s); End.

 Ответ:

  Задание 9 Запишите зна­че­ние пе­ре­мен­ной s, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

Алгоритмический язык	Бейсик	Паскаль
алг нач цел s, k s := 0 нц для k от 14 до 18 s := s+7 кц вывод s кон	DIM k, s AS INTEGER s = 0 FOR k = 14 TO 18 s = s+7 NEXT k PRINT s	Var s,k: integer; Begin s := 0; for k := 14 to 18 do s := s+7; writeln(s); End.

Ответ:

  Задание 9 Запишите зна­че­ние пе­ре­мен­ной s, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

Алгоритмический язык	Бейсик	Паскаль
алг нач цел s,k s:=100 нц для k от 0 до 10 s:=s-5 кц вывод s кон	DIM s AS INTEGER DIM k AS INTEGER s = 100 FOR k = 0 TO 10 s = s – 5 NEXT k PRINT s END	var s, k:integer; begin s:= 100; for k:= 0 to 10 do s:= s - 5; writeln (s); end.

Ответ:

Определите зна­че­ние пе­ре­мен­ной b после вы­пол­не­ния алгоритма:

a := 4

b := 15

a := b-a*3

b := 24/a*4

В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной b. Ответ: b=

В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор присваивания, знаки «+», «–», «*» и «/» – со­от­вет­ствен­но опе­ра­ции сложения, вычитания, умно­же­ния и деления. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ет пра­ви­лам арифметики.

Определите зна­че­ние пе­ре­мен­ной a после вы­пол­не­ния алгоритма:

a := 4

b := 9

b := 6 * b – a

a := b / 5 * 3 – a

В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной a.  Ответ: a=

В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор присваивания, знаки «+», «–», «*» и «/» – со­от­вет­ствен­но опе­ра­ции сложения, вычитания, умно­же­ния и деления. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ет пра­ви­лам арифметики.

Определите зна­че­ние пе­ре­мен­ной b после вы­пол­не­ния алгоритма:

a := 1

b := 4

a := 2*a+3*b

b := a/2*b

В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной b. Ответ: b=

 

Алгоритмический язык	Бейсик	Паскаль
алг нач     целтаб Dat     цел k, m     Dat := 20; Dat := 25     Dat := 19; Dat := 25     Dat := 26; Dat := 22     Dat := 24; Dat := 28     Dat := 26; Dat := 21     Dat := 27     m := 0     нц для k от 1 до 11         если Dat < 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 of integer; Begin     Dat := 20; Dat := 25;     Dat := 19; Dat := 25;     Dat := 26; Dat := 22;     Dat := 24; Dat := 28;     Dat := 26; Dat := 21;     Dat := 27;     m := 0;     for k := 1 to 11 do         if Dat < 25 then             begin                 m := m + 1             end;         writeln(m) End.

 Ответ:

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

Алгоритмический язык	Бейсик	Паскаль
алг нач целтаб Dat цел k, m Dat := 12 Dat := 15 Dat := 17 Dat := 15 Dat := 14 Dat := 12 Dat := 10 Dat := 13 Dat := 14 Dat := 15 m := 20 нц для k от 1 до 10 если Dat < m то m := Dat все кц вывод 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 of integer; Begin Dat := 12; Dat := 15; Dat := 17; Dat := 15; Dat := 14; Dat := 12; Dat := 10; Dat := 13; Dat := 14; Dat := 15; m := 20; for k := 1 to 10 do if Dat < m then begin m := Dat end; writeln(m); End.

Ответ:

 

Алгоритмический язык	Бейсик	Паскаль
алг нач цел­таб Dat цел k, day Dat := 14; Dat := 10 Dat := 0; Dat := 15 Dat := 0; Dat := 15 Dat := 10 day := 0; нц для k от 1 до 7 если Dat = 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 of integer; begin Dat := 14; Dat := 10; Dat := 0; Dat := 15; Dat := 0; Dat := 15; Dat := 10; day := 0; for k := 1 to 7 do if Dat = 0 then day := k; write(day); end.

Ответ: