Главное меню
Каталог
13302
13302
Главная
Скачать
Статьи
Контакты
FAQ
Соглашение
Поиск
Вход
Регистрация
VIP - доступ
Паскаль (ветвление, повторение)
Программирование на Паскале. Ветвление, повторение (цикл)
Информатика 9 класс | Автор: Кочетов Н.А. | ID: 8164 | Дата: 21.4.2016
+5 0
Помещать страницу в закладки могут только зарегистрированные пользователи
Зарегистрироваться
Вопрос № 1

Если решение задачи зависит от некоторого условия (структура ветвление), то в программе используется следующая конструкция

Begin ... End
For ... to ... do
While ... do
If ... Then ... Else
Write ... Readln
Вопрос № 2

Определите значения переменных x и y после выполнения следующего фрагмента программы?
x := 8; y:=2;
if x > y then begin x := x - y; y:= x; end
else begin y := y - x; x := y; end;

x = 6, y = 6
x = -6, y = -6
x = 6, y = 8
x = 2, y = -6
x = 6, y = -6
Вопрос № 3

Укажите условия задач, для решения которых необходимо использовать ветвление.

Вывести два числа в порядке возрастания их значений
Определить хватит ли денег на покупку товара
Определить размер сдачи при покупке товара
Определить площадь и периметр прямоугольника
Определить, что больше площадь или периметр прямоугольника
Вопрос № 4

Укажите условия задач, для решения которых необходимо использовать повторение (команды цикла).

Вывести на экран столбец умножения.
Определить через сколько лет сумма вклада удвоится.
Вывести на экран таблицу связи РУБЛЬ - ДОЛЛАР из восьми строк.
Определить площадь и периметр прямоугольника.
Определить, что больше площадь или периметр прямоугольника.
Вопрос № 5

Определите значение переменной n после выполнения следующего фрагмента программы?
k:=0; n:=2;
For i:=1 to 4 do begin
k:=k + 1;
n:=n * k
End;

Введите ответ:
Вопрос № 6

Определите значение переменной k после выполнения следующего фрагмента программы?
k:=10; n:=5;
While n<30 do begin
k:=k + 1;
n:=n + k
End;

Введите ответ:
Вопрос № 7

Определите что появится на экране компьютера (в последней строке) после исполнения данного фрагмента программы? На запрос компьютера было введено значение: 5.
readln (x); a := 3;
for i := 1 to 2 do begin
b := a * x;
writeln (

Вопрос № 8
,a,
Вопрос № 9
,b);
a := a + 4;
end;

7 = a 35 = b
a = 11 b = 55
11 = a 55 = b
a = 7 b = 35
a = 7 b = 11
Вопрос № 10

Укажите все значения a, при которых после исполнения фрагмента программы получится ответ b = 3
if a>5 then b := a - 7 else b := 5 - a;
В ответе запишите найденные значения a через пробел в порядке возрастания.

Введите ответ:
Получение сертификата
о прохождении теста
Доступно только зарегистрированным пользователям