Курсовая работа. Курсовая Терунова. Программирования

• Название: Программирования
• Анкор: Курсовая работа
• Дата: 16.06.2022
• Размер: 160.19 Kb.
• Имя файла: Курсовая Терунова.docx
• Тип: Решение; #596739
• страница: 5 из 5

Пример работы программы:

 

Входные данные	Выходные данные
16 24 56 26 12 0	72

Решением является программа, записанная на любом языке программирования. Пример верного решения, записанного на языке Паскаль:

 

var a, s: integer;

begin

s:= 0;

readln(a);

while a<>0 do begin

if (a mod 4 = 0) and (a mod 10 = 6) then

s := s + a;

readln(a); end;

writeln(s)

end.

 

Возможны и другие варианты решения. Для проверки правильности работы программы необходимо использовать следующие тесты:

 

№	Входные данные	Выходные данные
1	36 16 0	52
2	20 26 0	0
3	15 34 36 0	36

8. Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 6. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 6.

 

Пример работы программы:

 

Входные данные	Выходные данные
36 12 16 66 11 0	102

Решением является программа, записанная на любом языке программирования. Пример верного решения, записанного на языке Паскаль:

 

var a, s: integer;

begin

s:= 0;

readln(a);

while a<>0 do begin

if (a mod 6 = 0) and (a mod 10 = 6) then

s := s + a;

readln(a);

end;

writeln(s)

end.

 

Возможны и другие варианты решения. Для проверки правильности работы программы необходимо использовать следующие тесты:

 

№	Входные данные	Выходные данные
1	66 36 0	102
2	60 0	0
3	26 0	0
4	20 96 0	96

9. Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 2.

Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 2.

Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — максимальное число, оканчивающееся на 2.

 

Пример работы программы:

 

Входные данные	Выходные данные
4 3 22 6 12	22

Решением является программа, записанная на любом языке программирования. Пример верного решения, записанного на языке Паскаль:

 

var n,i,a,max: integer;

begin

readln(n);

max := 1;

for i := 1 to n do

begin

readln(a);

if (a mod 10 = 2) and (a > max)

then max := a;

end;

writeln(max);

end.

 

Возможны и другие варианты решения. Для проверки правильности работы программы необходимо использовать следующие тесты:

 

№	Входные данные	Выходные данные
1	3 2 32 19	32
2	3 11 22 44	22
3	3 20 40 2	2

10. Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 7 и оканчивающихся на 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 3.

 

Пример работы программы:

 

Входные данные	Выходные данные
73 13 14 133 63 0	196

Решением является программа, записанная на любом языке программирования. Пример верного решения, записанного на языке Паскаль:

 

var a, s: integer;

begin

s:= 0;

readln(a);

while a<>0 do

begin

if (a mod 7 = 0) and (a mod 10 = 3) then

s := s + a;

readln(a);

end;

writeln(s)

end.

 

Возможны и другие варианты решения. Для проверки правильности работы программы необходимо использовать следующие тесты:

№		Входные данные	Выходные данные
1		203 273 20 0	476
2		14 0	0
3		23 0	0
4		10 15 0	0

11. Напишите программу, которая в последовательности натуральных чисел определяет количество всех чётных чисел, кратных 5. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество всех чётных чисел, кратных 5.

 

Пример работы программы:

 

Входные данные	Выходные данные
10 14 50 25 17 0	2

Решение

 

var a, s: integer;

begin s:= 0;

readln(a);

while a<>0 do

begin

if (a mod 5=0) and (a mod 2=0) then

s : = s + 1 ;

readln (a) ;

end;

writeln (s)

end.

 

Для проверки правильности работы программы необходимо использовать следующие тесты:

 

	Входные данные	Выходные данные
1	10 22 55 20 0	2
2	33 0	0
3	30 0	1

12. Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 7 и оканчивающихся на 2. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 2.

 

Пример работы программы:

 

Входные данные	Выходные данные
112 24 42 49 22 0	154

Решение

 

var a, s: integer;

begin

s: = 0;

readln(a);

while a<>0 do

begin

if (a mod 7=0) and (a mod 10 = 2) then

s : = s + a;

readln(a);

end;

writeln(s);

end.

 

Для проверки правильности работы программы необходимо использовать следующие тесты:

 

	Входные данные	Выходные данные
1	21 12 112 182 0	294
2	36 0	0
3	112 0	112

13. Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 5 или 9. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 5 или 9.

 

Пример работы программы:

 

Входные данные	Выходные данные
15 91 90 0	2

Вариант решения на языке Паскаль.

var

a, count: integer;

begin

count := 0;

readln(a);

while a <> 0 do begin

if (a mod 5 = 0) or (a mod 9 = 0) then count := count + 1;

readln(a);

end;

writeln(count);

end.

14. Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчи- вается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.

 

Пример работы программы:

 

Входные данные	Выходные данные
54 28 72 34 24 0	78

Решением является программа, записанная на любом языке программирования. Пример верного решения, записанного на языке Паскаль:

 

var a, s: integer;

begin

s:= 0;

readln(a);

while a<>0 do begin

if (a mod 6= 0) and (a mod 10 = 4) then

s := s + a;

readln(a); end;

writeln(s)

end.

 

Возможны и другие варианты решения. Для проверки правильности работы программы необходимо использовать следующие тесты:

 

№	Входные данные	Выходные данные
1	54 18 44 24 0	78
2	45 0	0
3	84 0	84

15.Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — минимальное число, оканчивающееся на 4.

 

Пример работы программы:

 

Входные данные	Выходные данные
3 24 14 34	14

Решением является программа, записанная на любом языке программирования. Пример верного решения, записанного на языке Паскаль:

 

var n,i,a,min: integer;

begin

readln(n);

min := 30001;

for i := 1 to n do

begin

readln(a);

if (a mod 10 = 4) and (a < min)

then min := a;

end;

writeln(min)

end.

 

Возможны и другие варианты решения.

Для проверки правильности работы программы необходимо использовать следующие тесты:

№	Входные данные	Выходные данные
1	3 2 4 19	4
2	3 14 24 44	14
3	3 24 44 4	4

Заключение

В этой работе была проанализирована информация, проработана в практической части. ОГЭ является показателем обученности выпускников и качества работы учителей. Поэтому так важно знать, как работать с заданиями и знать, как их решить.
В начале работы были поставлены задачи, в данной работе они были выполнены. Были структурированы и проработаны задания в ОГЭ по информатике 2021г..

Список литературы:

1.ОГЭ-2022, информатика: задания, ответы, решения. Обучающая система Дмитрия Гущина. https://inf-oge.sdamgia.ru/test?id=13150657

2.ОГЭ по информатике задания с пояснением и шкала перевода баллов. https://labs-org.ru/oge/

3.ОГЭ по информатике 2022г. file:///C:/Users/User/OneDrive/Рабочий%20стол/ВГПУ/Зимняя%20сессия/inf211021.pdf