1. Якщо умова у циклі While приймає значення False, то тіло циклу а) виконається 1 раз;
б) не виконається жодного разу;
в) наступить «зациклення» .
2. В якому випадку, при k = 3, тіло циклу буде виконуватись:
1) скінчене число раз;
2) жодного разу;
3) наступить «зациклення»
а) For i:= k to 10 do S:= S + k;
б) For i:= k to 2 do S:= S + k;
в) For i:= k to 3 do S:= S + k;
3. Виконайте фрагмент програми і вкажіть значення змінної S.
Begin
S:= 1; i:= 1;
While i < 4 do
Begin
i:= i+1;
S:= S * i;
End;
Edit1.Text:= FloatToStr(S);
End;
4. Виконайте фрагмент програми і вкажіть значення змінної S.
Begin
S:= 1;
For i:= 1 to 6 do
S:= S * 4 2;
Edit1.Text:= FloatToStr(S);
End;
5*. Виконайте фрагмент програми і вкажіть значення змінної S.
Begin
S:= 2; i:= 0;
While i < 5 do
i:= i+1;
S:= S + 1 / і;
Edit1.Text:= FloatToStr(S);
End;
Объяснение:
1) четным. Функция a mod 2 возвращает остаток от деления числа а на 2.
Если остаток равен 0, то число а четное.
2) 20.
a = 100; b = 30; a = 100 - 3*30 = 10
c = b - a = 30 - 10 = 20
3) if переводится как если, и не только в условном операторе, а вообще по-английски.
4) (x=3) or (x=4).
Вообще-то любое из этих выражений может быть использовано, как условие.
Если нет проверки на равенство числу, то подразумевается проверка на равенство нулю.
Но, скорее всего, имеется ввиду именно это выражение.
5) if a<b then min := a; else min := b;
Ошибка: после min := a точка с запятой не нужна.
6) Условие: a < 17
7) Нет верного ответа, потому что не бывает треугольника с тремя прямыми углами.
8) Не могу ответить, потому что нет фрагмента программы.
Объяснение:
1) четным. Функция a mod 2 возвращает остаток от деления числа а на 2.
Если остаток равен 0, то число а четное.
2) 20.
a = 100; b = 30; a = 100 - 3*30 = 10
c = b - a = 30 - 10 = 20
3) if переводится как если, и не только в условном операторе, а вообще по-английски.
4) (x=3) or (x=4).
Вообще-то любое из этих выражений может быть использовано, как условие.
Если нет проверки на равенство числу, то подразумевается проверка на равенство нулю.
Но, скорее всего, имеется ввиду именно это выражение.
5) if a<b then min := a; else min := b;
Ошибка: после min := a точка с запятой не нужна.
6) Условие: a < 17
7) Нет верного ответа, потому что не бывает треугольника с тремя прямыми углами.
8) Не могу ответить, потому что нет фрагмента программы.