- •Задачник-сборник по информатике
- •II. Программное управление работой компьютера
- •2. Протрассировать приведённые фрагменты программ (1,2,3,4) и составить программу для условия, выделенного жирным шрифтом
- •3. Написать программы, используя циклические конструкции
- •4. Составить, набрать и проверить на компьютере решение задач
- •5. Составить программы
- •6. Вручную протрассировать фрагменты программ
- •7. Составить и набрать программы на компьютере
- •8. Задачи на использование массивов
- •9. Задачи на нахождение максимума и минимума
- •10. Практически выполнить следующие пункты в одной программе (ничего не удаляя и запуская её после выполнения каждого пункта, начиная с пункта 4)
- •11. Задачи на вставку и удаление элементов массива
- •13. Сортировка массивов
- •14. Практическая работа по поиску данных в массиве
- •15. Разные задачи на обработку массивов
- •16. Работа со строками
- •17. Задачи на обработку строк
- •III.Формализация и моделирование
- •1. Объект-свойство
- •4. Информационное моделирование на компьютере
- •IV.Хранение и обработка информации в базах данных
- •1. Основные понятия баз данных
- •V. Логические основы компьютера
- •4. В состав истинного логического произведения входят три простых высказывания - a,b,c. Известно, что a и b - истинны. Может ли высказывание c быть одним из следующих:
- •5. Дано высказывание:
- •Лабораторная работа «Программирование циклических алгоритмов»
- •Часть 1
- •Часть 2
- •Часть 3
- •Часть 4
- •Практическая работа «Обработка массивов»
- •Практическая работа «Internet и всемирная паутина»
- •Практическая работа «Способы поиска в Internet»
- •Практическая работа «Численные эксперименты с демоверсиями моделей»
- •1. Математическая модель полета снаряда
- •2. Имитационная модель системы массового обслуживания
- •Практическая работа «Создание и заполнение бд»
- •I. Заполнение ячеек числовой последовательностью с помощью правой кнопки мыши.
- •III. Заполнение с использованием команд главного меню.
- •IV. Обработка данных.
- •Лабораторная работа «Абсолютная и относительная адресации ячеек»
- •Практическая работа «Использование нескольких функций»
Задачник-сборник по информатике
9
класс
I. Повторение материала 8 класса
1. Преобразовать алгоритмическую запись выражений в обычную
2. Работа с операторами ввода-вывода
3. По схеме алгоритма написать программу
4. Написать программы, используя условный оператор
5. Составить программу и проверить выдаваемые значения на компьютере
6. Решить задачи, используя сперва условный оператор, а потом оператор выбора
В зависимости от введённой цифры вывести день недели
Дан угол. Определить его тип. Использовать case
Дана температура. Определить агрегатное состояние воды
Сейчас дата g (год), m (месяц), d (день). Определить завтрашнюю дату
II. Программное управление работой компьютера
1. Составить программы с цикловыми структурами
Вывести на экран 20 раз число 10
Найти сумму всех четных трехзначных чисел
Что получится в результате выполнения цикла
a:=5; s:=6; while a<=9 do begin s:=s+a-1; inc(a) end; writeln(a,’ ‘, s);
a:=5; s:=6; while a<=9 do begin inc(a); s:=s+a-1 end; writeln(a,’ ‘, s);
a:=5; s:=6; while a<=9 do inc(a); s:=s+a-1; writeln(a,’ ‘, s);
a:=5; s:=6; while a<=9 do s:=s+a-1; inc(a); writeln(a,’ ‘, s);
2. Протрассировать приведённые фрагменты программ (1,2,3,4) и составить программу для условия, выделенного жирным шрифтом
I вариант Что будет на экране? 1)a:=5; s:=6; while a<=9 do begin s:=s+a-1; inc(a) end; writeln(a,’ ‘, s); 2)a:=5; s:=6; while a<=9 do begin inc(a); s:=s+a-1 end; writeln(a,’ ‘, s); 3)a:=5; s:=6; while a<=9 do inc(a); s:=s+a-1; writeln(a,’ ‘, s); 4)a:=5; s:=6; while a<=9 do s:=s+a-1; inc(a); writeln(a,’ ‘, s); Найти все двузначные числа, кратные 3 |
II вариант Что будет на экране? 1)b:=3; a:=5; while b<=9 do begin a:=a+b+2; inc(b) end; writeln(b,’ ‘, a); 2)b:=3; a:=5; while b<=9 do begin inc(b); a:=a+b+2 end; writeln(b,’ ‘, a); 3)b:=3; a:=5; while b<=9 do inc(b); a:=a+b+2; writeln(b,’ ‘, a); 4)b:=3; a:=5; while b<=9 do a:=a+b+2; inc(b); writeln(b,’ ‘, a); Найти все трехначные числа, кратные 5 |
III вариант Что будет на экране? 1)q:=5; d:=1; while q>0 do begin d:=d+q; dec(q) end; writeln(q,’ ‘, d); 2)q:=5; d:=1; while q>0 do begin dec(q); d:=d+q end; writeln(q,’ ‘, d); 3)q:=5; d:=1; while q>0 do dec(q); d:=d+q; writeln(q,’ ‘, d); 4)q:=5; d:=1; while q>0 do d:=d+q; dec(q); writeln(q,’ ‘, d); Найти все числа, кратные 3 на интервале от 15 до 255 |
IV вариант Что будет на экране? 1)p:=2; u:=6; while p<=6 do begin u:=u+p-2; inc(p) end; writeln(p,’ ‘, u); 2)p:=2; u:=6; while p<=6 do begin inc(p); u:=u+p-2 end; writeln(p,’ ‘, u); 3)p:=2; u:=6; while p<=6 do inc(p); u:=u+p-2; writeln(p,’ ‘, u); 4)p:=2; u:=6; while p<=6 do u:=u+p-2; inc(p); writeln(p,’ ‘, u); Найти все числа, кратные 4 на промежутке от 5 до 111 |
V вариант Что будет на экране? 1)t:=20; r:=11; while t>=15 do begin r:=r+t-1; dec(t) end; writeln(t,’ ‘, r); 2)t:=20; r:=11; while t>=15 do begin dec(t); r:=r+t-1 end; writeln(t,’ ‘, r); 3)t:=20; r:=11; while t>=15 do dec(t); r:=r+t-1; writeln(t,’ ‘, r); 4)t:=20; r:=11; while t>=15 do r:=r+t-1; dec(t); writeln(t,’ ‘, r); Найти все четырехзначные числа, кратные 11 |
VI вариант Что будет на экране? 1)x:=2; v:=6; while x<=5 do begin v:=v+x; inc(x) end; writeln(x,’ ‘, v); 2)x:=2; v:=6; while x<=5 do begin inc(x); v:=v+x end; writeln(x,’ ‘, v); 3)x:=2; v:=6; while x<=5 do inc(x); v:=v+x; writeln(x,’ ‘, v); 4)x:=2; v:=6; while x<=5 do v:=v+x; inc(x); writeln(x,’ ‘, v); Найти все числа, кратные 5 на промежутке от 7 до 222 |
VII вариант Что будет на экране? 1)g:=7; y:=6; while g>4 do begin y:=y+g+3; dec(g) end; writeln(g,’ ‘, y); 2)g:=7; y:=6; while g>4 do begin dec(g); y:=y+g+3 end; writeln(g,’ ‘, y); 3)g:=7; y:=6; while g>4 do dec(g); y:=y+g+3; writeln(g,’ ‘, y); 4)g:=7; y:=6; while g>4 do y:=y+g+3; dec(g); writeln(g,’ ‘, y); Найти все числа, кратные 33 на промежутке от 40 до 1011 |
VIII вариант Что будет на экране? 1)r:=1; j:=2; while r<=4 do begin j:=j*r+1; inc(r) end; writeln(r,’ ‘, j); 2)r:=1; j:=2; while r<=4 do begin inc(r); j:=j*r+1 end; writeln(r,’ ‘, j); 3)r:=1; j:=2; while r<=4 do inc(r); j:=j*r+1; writeln(r,’ ‘, j); 4)r:=1; j:=2; while r<=4 do j:=j*r+1; inc(r); writeln(r,’ ‘, j); Найти все числа, кратные 2 на промежутке от 3 до 456 |
IX вариант Что будет на экране? 1)m:=34; b:=3; while m>=31 do begin b:=b-m; dec(m) end; writeln(m,’ ‘, b); 2)m:=34; b:=3; while m>=31 do begin dec(m); b:=b-m end; writeln(m,’ ‘, b); 3)m:=34; b:=3; while m>=31 do dec(m); b:=b-m; writeln(m,’ ‘, b); 4)m:=34; b:=3; while m>=31 do b:=b-m; dec(m); writeln(m,’ ‘, b); Найти все числа, кратные 8 на промежутке от 99 до 7766 |
X вариант Что будет на экране? 1)f:=15; h:=6; while f>=9 do begin h:=h+f-4; dec(f) end; writeln(f,’ ‘, h); 2)f:=15; h:=6; while f>=9 do begin dec(f); h:=h+f-4 end; writeln(f,’ ‘, h); 3)f:=15; h:=6; while f>=9 do dec(f); h:=h+f-4; writeln(f,’ ‘, h); 4)f:=15; h:=6; while f>=9 do h:=h+f-4; dec(f); writeln(f,’ ‘, h); Найти все числа, кратные 11 на промежутке от 22 до 333 |
XI вариант Что будет на экране? 1)z:=7; p:=-2; while z<=11 do begin p:=p+z+2; inc(z) end; writeln(z,’ ‘, p); 2)z:=7; p:=-2; while z<=11 do begin inc(z); p:=p+z+2 end; writeln(z,’ ‘, p); 3)z:=7; p:=-2; while z<=11 do inc(z); p:=p+z+2; writeln(z,’ ‘, p); 4)z:=7; p:=-2; while z<=11 do p:=p+z+2; inc(z); writeln(z,’ ‘, p); Найти все числа, кратные 13 на промежутке от 56 до 7655 |
XII вариант Что будет на экране? 1)e:=3; w:=9; while e<=6 do begin w:=w+e-5; inc(e) end; writeln(e,’ ‘, w); 2)e:=3; w:=9; while e<=6 do begin inc(e); w:=w+e-5 end; writeln(e,’ ‘, w); 3)e:=3; w:=9; while e<=6 do inc(e); w:=w+e-5; writeln(e,’ ‘, w); 4)e:=3; w:=9; while e<=6 do w:=w+e-5; inc(e); writeln(e,’ ‘, w); Найти все числа, кратные 9 на промежутке от 102 до 5000 |
XIII вариант Что будет на экране? 1)d:=-4; k:=d+5; while d<=1 do begin k:=k+d+3; inc(d) end; writeln(d,’ ‘, k); 2)d:=-4; k:=d+5; while d<=1 do begin inc(d); k:=k+d+3 end; writeln(d,’ ‘, k); 3)d:=-4; k:=d+5; while d<=1 do inc(d); k:=k+d+3; writeln(d,’ ‘, k); 4)d:=-4; k:=d+5; while d<=1 do k:=k+d+3; inc(d); writeln(d,’ ‘, k); Найти все числа, кратные 15 на промежутке от 14 до 3498 |
XIV вариант Что будет на экране? 1)x1:=7; x2:=x1*2; while x1<=10 do begin x2:=x2+x1-1; inc(x1) end; writeln(x1,’ ‘, x2); 2)x1:=7; x2:=x1*2; while x1<=10 do begin inc(x1); x2:=x2+x1-1 end; writeln(x1,’ ‘, x2); 3)x1:=7; x2:=x1*2; while x1<=10 do inc(x1); x2:=x2+x1-1; writeln(x1,’ ‘, x2); 4)x1:=7; x2:=x1*2; while x1<=10 do x2:=x2+x1-1; inc(x1); writeln(x1,’ ‘, x2); Найти все числа, кратные 17 на промежутке от 65 до 10000 |
XV вариант Что будет на экране? 1)v:=1; w:=2; while v<=6 do begin w:=w+v*2; inc(v) end; writeln(v,’ ‘, w); 2)v:=1; w:=2; while v<=6 do begin inc(v); w:=w+v*2 end; writeln(v,’ ‘, w); 3)v:=1; w:=2; while v<=6 do inc(v); w:=w+v*2; writeln(v,’ ‘, w); 4)v:=1; w:=2; while v<=6 do w:=w+v*2; inc(v); writeln(v,’ ‘, w); Найти все числа, кратные 6 на промежутке от 66 до 6666 |