Урок 8 апреля
Процедуры и
функции в Паскале.
Аннотация урока.
Познакомитесь с понятиями процедуры и функции.
Посмотрите, как выглядит онлайн-программирование в Паскаль. Если скачали и установили ПаскальABC или Паскаль на смартфоне, то можете использовать их.
Самостоятельно разберетесь с программой и определите, как она работает. Решите 2 задачи: одну на программирование, одну – расчетную.
Инструкция к уроку
1. Посмотреть видео о процедурах и функциях.
2.Из презентации выписать определение функции и процедуры и два поясняющих примера.
Ссылка на папку школы
3.Самостоятельно напишите процедуру, которая принимает параметр – натуральное число N и выводит на экран квадрат из звездочек со стороной N.
4. Самостоятельно разберитесь с процедурой определения возраста.
Вам дана программа, требуется посмотреть на программный код и определить:
4.1.начало процедуры;
4.2. где она заканчивается;
4.3.скопируйте программу в Паскаль из запустите ее с параметрами (5, 15,42). Сделайте скриншот.
5. Решите задачу:
Алгоритм вычисления значения функции F(n), где n – натуральное число, задан следующими соотношениями:
F(1) = 1
F(2) = 3
F(n) = F(n–1) * n + F(n–2) * (n – 1) , при n >2
Чему равно значение функции F(5)?
Что должно быть в отчете по уроку:
5. Решите задачу:
Алгоритм вычисления значения функции F(n), где n – натуральное число, задан следующими соотношениями:
F(1) = 1
F(2) = 3
F(n) = F(n–1) * n + F(n–2) * (n – 1) , при n >2
Чему равно значение функции F(5)?
Что должно быть в отчете по уроку:
1. Два определения и два примера из презентации.
2. Код программы п.4.
3. Скриншот программы с процедурой определения возраста в той программе, которая у вас установлена. Мне надо знать, в чем каждый из вас работает. п.5.
4. Расчетная задача п. 6
Срок сдачи заданий в понедельник 13 апреля 2020 г.
Программа для изучения с процедурой определения
возраста.
var n: integer;
Procedure Age(n: integer);
var
m: integer;
s: string;
begin
if ((n >= 11) and (n <= 20)) or ((n >= 111) and (n <= 120)) then s := 'лет'
else begin
m := n mod 10;
case m of
1: s := 'год';
2..4: s := 'года';
else s := 'лет'
end
end;
Writeln('Возраст равен ', n, ' ', s)
end;
begin
readln(n);
Age (n)
end.
Ссылки для работы в Паскаль онлайн
Паскаль-онлайн на сайте Прикладная математика
Паскаль онлайн на ресурсе jdoodle.com/
Паскаль-онлайн на сайте Прикладная математика
Паскаль онлайн на ресурсе jdoodle.com/