Четверг, 09.05.2024
Школьная информатикаАвтор сайта: Кочетов Николай Александрович, учитель информатики, город Суворов Тульская область.
Меню
Поиск
Друзья сайта
  • Сайт МБОУ "СОШ №5 ЦО г. Суворова им. Е.П.Тарасова"
  • Создать сайт в uCoz
  • Рейтинги
    TestEdu v1.13 Паскаль (ветвление, повторение)
    Программирование на Паскале. Ветвление, повторение (цикл)
    Информатика 9-11 класс   |   Дата: 04.02.2016   |   Вопросов: 10   |   Автор: Кочетов Н.А.
    Вопрос № 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 ('a= ',a,' b= ',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
    Вопрос № 8

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

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

    Выберите строки программы необходимые для решения следующей задачи.
    Определить размер вклада (s) через 5 лет, если кажый год вклад увеличивается на 7%.

    k := 0;
    for i := 1 to 5 do
    while s < 5 do
    s := s + s*0.07
    k := k + 1
    writeln ('s = ',s)
    writeln ('k = ',k)
    Вопрос № 10

    Выберите строки программы необходимые для решения следующей задачи.
    Определить через сколько лет (k) размер вклада (s) превысит m рублей, если кажый год вклад увеличивается на 7%.

    k := 0;
    for i := 1 to m do
    while s < m
    s := s + s*0.07;
    k := k + 1;
    writeln ('s = ', s)
    writeln ('k = ', k)
    .
    Время
    Ученикам
    Статистика
       
               

    Создать бесплатный сайт с uCoz