СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ
Благодаря готовым учебным материалам для работы в классе и дистанционно
Скидки до 50 % на комплекты
только до
Готовые ключевые этапы урока всегда будут у вас под рукой
Организационный момент
Проверка знаний
Объяснение материала
Закрепление изученного
Итоги урока
Для решения задач нам понадобятся стандартные функции и процедуры.
Функция - это такая организация преобразования переданного ей значения, при которой это измененное значение передается обратно.
Процедура - это такая организация преобразования переданного ей значения параметра, при которой изменяется значение этого параметра, и, в отличие от функции, не возвращает никакого значения.
Познакомимся с основными, наиболее часто используемыми.
Арифметические функции:
Функции преобразования типов:
Функции для порядковых типов:
Процедуры для порядковых типов:
Правила применения функций:
чтобы воспользоваться функцией, нужно указать ее в правой части оператора присваивания;
при обращении к функции необходимо в круглых скобках указать ее аргументы;
в разделе описания переменных правильно указывайте типы переменных, которые хотите употребить в качестве аргумента или результата функции;
в одном выражении можно обратиться к нескольким функциям. Правила применения процедур:
для выполнения процедуры ее надо вызвать в программе в виде оператора;
в разделе описания переменных правильно указывайте тип переменной, которую хотите употребить в качестве аргумента процедуры. Задача. Найти значения выражений:
a) (1+x)2
b) |a+ bx|
Прежде чем приступить к составлению программы, необходимо перевести данные выражения с математического языка на язык Паскаль
a) (1+x)2 → sqr(1+x)
b) |A+ bx| → abs(A+b*x)
Теперь уже можно переходить к составлению программы.
Program Primer; Uses Crt; Var A : word; {так как подкоренное выражение должно быть положительно} b, x, Rezult : integer; Begin ClrScr; Writeln(‘Введите значения переменных (A-положительно)’); Write(‘A=’); Readln(A); Write(‘b=’); Readln(b); Write(‘x=’); Readln(x); Result := sqr(1+x); Write (‘sqr(1+x)=’, Rezult); Result := sqrt((1+A)*5); Write (‘sqrt((1+A)*5)=’, Rezult); Result := abs(A+b*x); Write (‘abs(A+b*x)=’, Rezult); Readln; End.
Задание. Наберите программу, протестируйте, добавьте комментарий, сохраните файл и распечатайте листинг.
© 2015, Алексенко Сергей Онуфриевич 770