Подготовка к ИКР
.pdf
Пример задачи 1 итоговой контрольной работы
Алгоритм изображен в виде блок-схемы. а) Найти значение переменной А при X=5,
Y=4, Z=10.
б) Записать процедуру.
1
2
1.А=60
2.
x:=strtoint(edit1.text);
y:=strtoint(edit2.text);
z:=strtoint(edit3.text); if x>y+z
then begin if x>0
then a:=x-y-z else a:=x+y+z;
a:=-a; end;
else begin if x<y
then a:=-x*y-z else a:=x*y+z;
a:=a*2; end;
edit3.text:=inttostrt(a);
3
Пример задачи 2 итоговой контрольной работы
Дан фрагмент программы на алгоритмическом языке. Необходимо:
а) записать данный фрагмент, используя оператор case;
б) определить значения переменных p и d после выполнения алгоритма; в) определить тип всех переменных.
4
k=10;
p=mod(k,11);
выбор
при p=7: d=sqr(k) при p>7: d=sqr(2k) при p<=5: d=0
иначе d=10 все
k:=10;
p:=k mod 11; case p of
7: d:=sqr(k); 8,9,10: d:=sqr(2*k); 0..5: d:=0
else d:=10; end;
5
Пример задачи 3 итоговой контрольной работы
Дана блок-схема.
1.Найти значения переменных a и b при b=10, y=5. Решение записать по шагам.
2.Сколько раз выполнится тело цикла?
3.Записать процедуру, соответствующую
блок-схеме.
6
7
1шаг. b=10-10=0 a=2 k=7<10
2шаг.
b=0-10=-10 a=4 k=9<10
3 шаг. b=-10-10=-20 a=6
k=11>10
a=6, b=-20
Тело цикла выполнится 3 раза.
8
b:=strtoint(edit1.text);
y:=strtoint(edit2.text);
a:=0;
k:=5;
Repeat b:=b-y*2; a:=a+2; k:=k+2;
Until k>10; edit3.text:=inttostr(a); edit4.text:=inttostr(b);
9
Пример задачи 4 итоговой контрольной работы
Дан вектор f: array [1..10] of integer;
1 2 5 –3 4 –5 8 3 12 –4
Найти:
а) k:=0;
for i:=3 to 7 do if i mod 2 =0
then k:=k+2; {Вывод k}
10