Итоговая работа по программированию. 9класс

Вариант 1

1.     Напишите программу, которая  находит периметр прямоугольника.

2.     Пользователь вводит три числа, программа должна посчитать, сколько положительных чисел было введено.

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

Var s,k: integer;

Begin

s := 0;

for k := 7 to 11 do

s := s + 11;

writeln(s);

End.

4.     Запишите зна­че­ние переменной c, по­лу­чен­ное в ре­зуль­та­те работы сле­ду­ю­щей программы

A:=10 ; b:=3;

while a>b do

begin

a:= (a+2)-b;

c:=c+1;

end;

writeln(c);

5.     Запишите зна­че­ние переменной которую программа выведет на экран.

Var k, m, n: integer;

 Dat: array[1..10] of integer;

 Begin

 Dat[1] := 10; Dat[2] := 9;

 Dat[3] := 10; Dat[4] := 5;

 Dat[5] := 6; Dat[6] := 7;

 Dat[7] := 9; Dat[8] := 10;

 Dat[9] := 10; Dat[10] := 9;

 m := 0; n := 0;

 for k := 3 to 10 do

 if Dat[k] >= m then

 begin

 m := Dat[k]; n := k

 end;

 writeln(n)

 End.

Вариант 2

1.     Напишите программу, которая находит значение переменной S по формуле: S=a*2b – c/2d

2.     Даны два числа, выведите на экран максимальное число.

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

Var s,k: integer;

Begin

s := 0;

for k := 8 to 12 do

s := s + 12;

writeln(s);

End.

4.      Запишите зна­че­ние переменной c, по­лу­чен­ное в ре­зуль­та­те работы сле­ду­ю­щей программы

A:=12 ; b:=5;

while a>b do

begin

a:= (a+2)-b;

c:=c+1;

end;

writeln(c);

5.     Запишите зна­че­ние переменной которую программа выведет на экран.

Var k, m, n: integer;

smail: array[1..10] of integer;

 Begin

 smail [1] := 7; smail [2] := 14;

 smail [3] := 10; smail [4] := 5;

 smail [5] := 6; smail [6] := 7;

 smail [7] := 14; smail [8] := 13;

 smail [9] := 6; smail [10] := 14;

 m := 0; n := 0;

 for k := 1 to 10 do

 if smail [k] >= m then

 begin

 m := smail [k]; n := k

 end;

 writeln(n)

End.

Вариант 3

1.     Напишите программу, которая находит значение переменной S по формуле: S=2a/b + c*2d

2.     Даны два числа. Вывести на экран сначала большее, потом меньшее.

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

Var s,k: integer;

Begin

s := 0;

for k := 9 to 13 do

s := s + 9;

writeln(s);

End.

4.     Запишите зна­че­ние переменной c, по­лу­чен­ное в ре­зуль­та­те работы сле­ду­ю­щей программы

A:=12 ; b:=5;

while a>b do

begin

a:= (a+2)-b;

c:=c+1;

end;

writeln(c);

5.     Запишите зна­че­ние переменной которую программа выведет на экран.

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.