- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад по информатике на тему Решение задач на Паскале
Содержание
- 1. Презентация по информатике на тему Решение задач на Паскале
- 2. Тест-разминка
- 3. Слайд 3
- 4. Слайд 4
- 5. Слайд 5
- 6. Задача1 Напишите программу, которая в последовательности натуральных чисел
- 7. Program Z1; var i, n, a, k:
- 8. Задача 2Напишите программу, которая в последовательности натуральных
- 9. Билет6
- 10. Задача 3 Напишите программу, которая в последовательности
- 11. .Program z3; var i, n, a, k:
- 12. Задача 4Напишите программу, которая в последовательности натуральных
- 13. Program z4;var n, s, k, g: integer;begins:=0;readln(n);for
- 14. Задача5Напишите программу, которая в последовательности натуральных чисел
- 15. Program z5;var n, s, k, g: integer;begins:=0;readln(n);for
Тест-разминка
Слайд 6Задача1
Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных
3 и оканчивающихся на 2. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 3 и оканчивающихся на 2.
Входные данные Выходные данные 2
4,12,25,12,9
Входные данные Выходные данные 2
4,12,25,12,9
Слайд 7Program Z1;
var i, n, a, k: integer;
begin
k := 0;
readln(n);
for i:=1 to
n do
begin
readln(a);
if (a mod 3=0) and (a mod 10 = 2) then
k := k + 1;
end;
writeln(k);
end.
begin
readln(a);
if (a mod 3=0) and (a mod 10 = 2) then
k := k + 1;
end;
writeln(k);
end.
Слайд 8Задача 2
Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое
чисел, кратных 8, или сообщает, что таких чисел нет (выводит «NO»). Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести среднее арифметическое чисел, кратных 8, или вывести «NO», если таких чисел нет. Значение выводить с точностью до десятых.
Пример работы программы:
Входные данные Выходные данные
8
122
64 29,3
16
0
111
1 NO
0
Пример работы программы:
Входные данные Выходные данные
8
122
64 29,3
16
0
111
1 NO
0
Слайд 10Задача 3
Напишите программу, которая в последовательности натуральных чисел определяет количество
чисел, оканчивающихся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающее на 3
Количество введенных чисел не превышает 1000. Все числа не превышают 30000.
Программа должна вывести одно число: количество чисел, оканчивающихся на 3.
Пример работы программы:
Входные данные: 3, 13, 23, 24.
Выходные данные: 2.
Количество введенных чисел не превышает 1000. Все числа не превышают 30000.
Программа должна вывести одно число: количество чисел, оканчивающихся на 3.
Пример работы программы:
Входные данные: 3, 13, 23, 24.
Выходные данные: 2.
Слайд 11.
Program z3;
var i, n, a, k: integer;
begin
k := 0;
readln(n);
for i:=1 to
n do
begin
readln(a);
if (a mod 10 =3) then
k := k + 1;
end;
writeln(k);
end.
begin
readln(a);
if (a mod 10 =3) then
k := k + 1;
end;
writeln(k);
end.
Слайд 12Задача 4
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел,
оканчивающихся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, оканчивающихся на 3.
Входные данные:3,13,23,24
Выходные данные:36
Входные данные:3,13,23,24
Выходные данные:36
Слайд 13Program z4;
var n, s, k, g: integer;
begin
s:=0;
readln(n);
for k:=1 to n do
begin
readln(g);
if
(g mod 10 = 3) then
s:=s+g;
end;
writeln(s);
end.
s:=s+g;
end;
writeln(s);
end.
Слайд 14Задача5
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся
на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – сумму чисел, оканчивающихся на 4.
Входные данные Выходные данные38
3
14
25
24
Входные данные Выходные данные38
3
14
25
24
Слайд 15Program z5;
var n, s, k, g: integer;
begin
s:=0;
readln(n);
for k:=1 to n do
begin
readln(g);
if
(g mod 10 = 4) then
s:=s+g;
end;
writeln(s);
end.
s:=s+g;
end;
writeln(s);
end.
