Вопрос 11

Безусловный оператор это оператор который позволяет перейти без проверки условия либо на один из предедущих операторов, либо на один из последуйщих тоесть изменить порядок выполнея програм.

Перед оператором на который осуществляется без условный переход следует поставить метку - целое число, состоящие не боле чем из 4 цыфр

Вид оператора: goto n;

где n меткаис

labe1,2;

var a,b:integer;

begin

write('введите два натуральных числа')

readln(а,b)

1:if a=b then goto2;

if a >b then a : =a-b

Вопрос 12

Умова - це вираз типу Boolean. Якщо умова виконується то відповідний вираз істинний. Якщо умова не виконується, то вираз хибний(0).

Для побудови складних умов в паскалі використовують логічні операції:

and(і) or(або) not(ні)

X Y Х and Y X Y X or Y X not X

1 1 1 1 1 1 1 0

1 0 1 0 1 0 1

0 1 0 1 1

0 0

например

0<[

Вопрос 13

оператор

+ -

да нет

Оператор цикла «пока» имеет вид:

While условие do оператор;

И выполняется таким образом: оператор повторяется до тех пор, пока выполняется условие. Оператор может быть простым или составным. Помещённым в операторные скобки begin…end.

Для алгоритма Евклида программа приобретает вид:

Program E6

var a,b: integer;

begin

write (`a b`);

readln (a,b);

while a< >b do

if a>b then a:=a-b

else b:=b-a;

writeln (`НОД=`,a) end.

Вопрос 14

Оператор цикла ДО

Оператор

+ -

z

да нет

Оператор цикла „до” имеет вид:

repeat оператор until условие;

И выполняется таким образом: оператор (тело цикла) повторяется до выполнения условия (логическое выражение истинноДля алгоритма Евклида программа приобретет вид:

program E7;

var a,b: integer;

begin

write (‘введите два натуральных числа’)

readln (a,b);

repeat

if a>b then a := a-b

else b :=b-a

until a = b;

writeln (‘НОД=’,a)

end.

Вопрос 15

Операторы цикла "перечень" используется когда известно число повторений.Существует два вида:

1.Прямой

for i :=n1 to n2 do оператор;

читается как "для i, начиная с n1 до n2, выполнить оператор".

Переменная і называется переменной цыкла, которая при прямом перечне всегда изменяется от меньшего значения к большему. Надо обратить внимание, что для выполнения оператора n1 должно быть не больше, чем n2(n1<=n2).При i=n1 цикл выполняется первый раз.Потом к значению переменной і прибавляется единица и осущиствляется проверка,не стало ли полученное значение больше чем n2. i+1<=n2, то оператор выполняется, а если i+1>n2, то происходит выход из цикла и выполняется оператор программы, следующий за оператором цикла. Поскольку рператор цикла for сам изменяет значение переменной цикла то ёё нельзя изменять другим способом, например, присваиванием ей кокого-нибудь значения в теле цикла (она не должна появиться слева от знака:=).

program E8;

var a,p: real; i,n: integer;

begin

write ('введите а - основу степени а= ');

readln (a);

write('введите целое n - показатель степени, n = ');

readln(n);

p :=1;

for i :=1to n do

p:= p*a;

writeln('p=',p)

end.

2.Оператор цикла обратного перечня работает аналогично оператору цикла прямого перечня, но переменная цикла не увеличивается на еденицу с каждым шагом, а уменьшается. Этот оператор имеет вид: for и :=n2 downto n1 do оператор;