Курсовая работа. Курсовая Терунова. Программирования
Скачать 160.19 Kb.
|
Было проведено 9 запусков программы, при которых в качестве значений переменных s и k вводились следующие пары чисел: (2, 2); (5, 9); (7, −12); (5, 5); (2, 12); (—10, —13); (—11, 11); (1, 4); (2, 6). Сколько было запусков, при которых программа напечатала «ДА»? Решение. Заметим, что программа напечатает «ДА», если переменная Заметим, что программа напечатает «ДА», если переменная s будет меньше 5 или переменная k — меньше 5. Значит, было 7 запусков, при которых программа напечатала «ДА». В качестве значений переменных s и k в этих случаях вводились следующие пары чисел: (2, 2); (7, −12); (2, 12); (—10, —13); (—11, 11); (1, 4); (2, 6) Ответ: 7. Ниже приведена программа, записанная на пяти языках программирования.
Было проведено 9 запусков программы, при которых в качестве значений переменных s и k вводились следующие пары чисел: (2, 2); (5, 9); (7, −12); (5, 5); (2, 12); (—10, —13); (—11, 11); (1, 4); (2, 6). Сколько было запусков, при которых программа напечатала «ДА»? Решение. Заметим, что программа напечатает «ДА», если переменная s будет больше 5 или переменная k — больше 5. Значит, было 5 запусков, при которых программа напечатала «ДА». В качестве значений переменных s и k в этих случаях вводились следующие пары чисел: (5, 9); (7, −12); (2, 12); (—11, 11); (2, 6) Ответ: 5. Ниже приведена программа, записанная на пяти языках программирования.
Было проведено 9 запусков программы, при которых в качестве значений переменных s и k вводились следующие пары чисел: (1, 2); (8, 4); (6, −12); (−5, −5); (3, 11); (—10, 12); (—10, −2); (4, 1); (2, 5). Сколько было запусков, при которых программа напечатала «ДА»? Решение. Заметим, что программа напечатает «ДА», если переменная s будет больше или равна 2k. Значит, было 4 запуска, при которых программа напечатала «ДА». В качестве значений переменных s и k в этих случаях вводились следующие пары чисел: (8, 4); (6, −12); (−5, −5); (4, 1). Ответ: 4. Ниже приведена программа, записанная на пяти языках программирования.
Было проведено 9 запусков программы, при которых в качестве значений переменных s и k вводились следующие пары чисел: (1, 2); (8, 4); (6, −12); (−5, −5); (3, 11); (—10, 12); (—10, −2); (4, 1); (2, 5). Сколько было запусков, при которых программа напечатала «ДА»? Решение. Заметим, что программа напечатает «ДА», если переменная s будет меньше или равна 2k. Значит, было 6 запусков, при которых программа напечатала «ДА». В качестве значений переменных s и k в этих случаях вводились следующие пары чисел: (1, 2); (8, 4); (3, 11); (—10, 12); (—10, −2); (2, 5). Ответ: 6. 2.2 Задание 15.2 1. [1] Напишите программу для решения следующей задачи. Ученики 4 класса вели дневники наблюдения за погодой и ежедневно записывали дневную температуру. Найдите среднюю температуру за время наблюдения. Если количество дней, когда температура поднималась выше нуля градусов, не менее 5, выведите YES, иначе выведите NO. Программа получает на вход количество дней, в течение которых проводилось наблюдение N (1 ≤ N ≤ 31), затем для каждого дня вводится температура. Пример работы программы:
Решением является программа, записанная на любом языке программирования. Пример верного решения, записанного на языке Паскаль: var a, N, i, num : integer; sredn : real; begin num:=0; sredn:=0; readln(N); for i:=1 to N do begin readln(a); sredn := sredn + a; if a > 0 then num := num + 1; end; sredn := sredn / N; writeln(sredn); if num >= 5 then writeln('YES') else writeln('NO') end. 2. Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 4 и оканчивающихся на 8. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 4 и оканчивающихся на 8. Пример работы программы:
Решением является программа, записанная на любом языке программирования. Пример верного решения, записанного на языке Паскаль: var a, s: integer; begin s := 0; readln(a); while a<>0 do begin if (a mod 4 = 0) and (a mod 10 = 8) then s := s + a; readln(a); end; writeln(s); end. 3. Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 3 и оканчивающихся на 8. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 3 и оканчивающихся на 8. Пример работы программы:
Решением является программа, записанная на любом языке программирования. Пример верного решения, записанного на языке Паскаль: var a, s: integer; begin s:= 0; readln(a); while a<>0 do begin if (a mod 3 = 0) and (a mod 10 = 8) then s := s + a; readln(a); end; writeln(s) end. 4. Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 7. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чётных чисел, кратных 7. Пример работы программы:
Вариант решения на языке Паскаль. var a, answer: integer; begin answer:=0; readln(a); while a<>0 do begin if (a mod 2 = 0) and (a mod 7 = 0) then answer := answer + 1; readln(a); end; writeln(answer); end. 5. Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — максимальное число, оканчивающееся на 3. Пример работы программы:
Решение var n, a, k, g: integer; begin g:=3; readln(n); for k:=1 to n do begin readln(a); if (a mod 10 = 3) and (a>g) then g:=a; end; writeln(g); end. 6. Напишите программу, которая в последовательности целых чисел определяет их количество и сумму чётных чисел. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму чётных чисел. Пример работы программы:
Решение. var N, a, sum: integer; begin sum := 0;N := 0; readln(a); while a <> 0 do begin N := N + 1; if (a mod 2=0) then sum := sum + a; readln(a); end; writeln(N); writeln(sum) end. Для проверки правильности работы программы необходимо использовать следующие тесты:
Заметим, что первое выводимое число означает длину последовательности, то есть общее количество чисел в ней, а не количество четных чисел. 7. Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 4 и оканчивающихся на 6. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 4 и оканчивающихся на 6. |