Online Pascal Compiler

Задача function 6. Описать функцию Calc(A, B, Operation) вещественного типа, выполняющую над ненулевыми вещественными числами A и B одну из арифметических операций и возвращающую ее результат. Вид операции определяется целым параметром Operation : 1 — вычитание, 2 — умножение, 3 — деление, остальные значения — сложение. С помощью Calc выполнить для данных A и B операции, определяемые данными целыми N1 , N2 , N3 .

Pascal: Занятие № 8. Подпрограммы: функции в Pascal

На занятии будет объяснен алгоритм работы с функциями на Паскале, рассмотрены стандартные функции. Будут разобраны примеры использования функций с параметрами и без параметров.

Стандартные функции языка Pascal

Арифметические функции (основные)

Функции преобразования типов

Пользовательские функции Pascal

Функция в Паскале — это подпрограмма, которая в отличие от процедуры всегда возвращает какое-либо значение. Для этого в теле функции её имени присваивается вычисленное значение — результат, который она возвращает.

• Функция – это подпрограмма, результатом работы которой является определенное значение.
• Функции используются для:
  • выполнения одинаковых расчетов в различных местах программы;
  • для создания общедоступных библиотек функций.

  var …; function название (параметры): тип результата; var…; begin … название:=результат; end; begin … end.

  Пример: написать функцию, которая вычисляет наибольшее из заданных двух значений

  Решение:

  PascalABC.NET :
  Правила описания функции:

  1. Мы должны написать тип значения, которое возвращает функция.
  2. Переменная Result хранит результат функции.

  function f(x: real): real; begin Result := x * x + 1; end;

  function f(x: real): real; begin Result := x * x + 1; end;

  Вызов функции стоит в выражении:

  // основная программа begin var x := 5; var r := Sqrt(x) + f(x); end.

  // основная программа begin var x := 5; var r := Sqrt(x) + f(x); end.

  Задача function 0. Написать функцию, которая вычисляет наибольшее из заданных трех значений. Функция с тремя параметрами.

  Введите три числа: 4 1 6 наибольшее = 6

  Пример: Написать функцию на Паскале, которая складывает два любых числа

  первое число: 2 второе число: 5 сумма = 7

  1 2 3 4 5 6 7 8 9 10 11 12

  var x,y:integer; function f(a,b:integer):integer; begin f:= a+b; end; begin writeln('первое число:'); readln(x); writeln('второе число:'); readln(y); writeln('сумма= ',f(x,y)); end.

  var x,y:integer; function f(a,b:integer):integer; begin f:= a+b; end; begin writeln(‘первое число:’); readln(x); writeln(‘второе число:’); readln(y); writeln(‘сумма= ‘,f(x,y)); end.

  В рассмотренном примере использования функции в Паскале: функция f имеет два целочисленных параметра — a и b . Через двоеточие в заголовке функции (строка 2) указано, что значение, вычисляемое функцией, будет тоже целочисленным. В теле функции вычисляемая сумма присваивается имени функции. А в основной программе вызов функции осуществляется в качестве параметра оператора writeln .

  Таким образом, главное отличие функции от процедуры — это то, что функция производит какие-либо вычисления и выдает в программу результат в виде значения, в то время как процедура чаще всего выполняет какие-либо действия с результатом, например, выводит его на экран (функция этого делать не может).

  Задача function 1. При помощи функции найти среднее арифметическое двух чисел (функция с двумя параметрами).

  Введите два числа: 4 7 среднее арифметическое = 5,5

  Пример: Составить программу с функцией для вычисления факториала числа.
  Показать решение:

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

  var x:integer; function fact(a:integer):integer; var i: integer; begin if a=1 then begin fact:=1;exit; end; result:=2; for i:=3 to a do result:=result*i; fact:=result; end; begin writeln('число:'); readln(x); writeln(fact(x)); end.

  1 2 3 4 5 6 7 8 9 10

  function Fact(n: integer): integer; begin Result := 1; for var i:=1 to n do Result *= i end; begin var x:= readInteger('число:'); println(x,'! = ',fact(x)); end.

  function Fact(n: integer): integer; begin Result := 1; for var i:=1 to n do Result *= i end; begin var x:= readInteger(‘число:’); println(x,’! = ‘,fact(x)); end.

  В рассмотренном примере функция имеет один параметр — a . Вычисляемое функцией значение имеет целочисленный тип, это указывается в заголовке функции (строка 2). В теле функции в цикле for вычисляется факториал числа. Результат вычисления присваивается имени функции (строка 9). В теле программы для вывода результата функции она вызывается в операторе writeln (строка 14), который и выводит результат на экран.

  PascalABC.NET :
  Короткое определение функции:

  function Sq(x: real) := x * x + 1; begin var x := 10; var r := Sq(x) + Sq(2) end.

  function Sq(x: real) := x * x + 1; begin var x := 10; var r := Sq(x) + Sq(2) end.

  Короткая запись

  Если тело функции состоит только из одного оператора, PascalABC.NET позволяет использовать при описании сокращенный синтаксис, без ключевых слов begin и end :

  1 2 3 4 5 6

  ## function SumXY(x,y: real) := x + y; // основная программа begin Print (SumXY(9,2)); //11 end;

  ## function SumXY(x,y: real) := x + y; // основная программа begin Print (SumXY(9,2)); //11 end;

  Задача function 2. Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее использования. N — параметр функции.

  Пример:

  Введите число: 100 сумма = 5050

  Задача function 3. Составить функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат (на 1-ую – 1 зерно, на 2-ую – 2 зерна (в два раза больше предыдущего результата), на 3-ю – 4 зерна, на 4-ю – 8 зерен…). N — параметр функции.

  Пример:

  Введите номер клетки: 28 На 28-ой клетке 134217728 зерен.

  Задача function 4. Описать функцию IsDigit(A) , которая возвращает истину, если целое число A представляет цифру (то есть A лежит в диапазоне 0–9). В основной программе вывести значение этой функции для N (N ≥ 0) данных чисел.

  Введите N: 3 Введите число: 2 >>> true Введите число: 34 >>> false Введите число: 4 >>> true

  Задача function 5. Вычисление степени числа с помощью функции на языке Паскаль.

  Пример:

  Введите число: 3 Введите степень числа: 2 Результат 3^2 = 9

  Задача function 6. Описать функцию Calc(A, B, Operation) вещественного типа, выполняющую над ненулевыми вещественными числами A и B одну из арифметических операций и возвращающую ее результат. Вид операции определяется целым параметром Operation : 1 — вычитание, 2 — умножение, 3 — деление, остальные значения — сложение. С помощью Calc выполнить для данных A и B операции, определяемые данными целыми N1 , N2 , N3 .

  Пример:

  Введите два числа: 5 7 Введите номер операции (1 — вычитание, 2 — умножение, 3 — деление, остальные значения — сложение): 2 Результат 5*7 = 35

  * Из задачника М. Э. Абрамян (Proc22)

  Самостоятельная работа

  1 вариант: Описать функцию CircleS(R) вещественного типа, находящую площадь круга радиуса R ( R — вещественное). С помощью этой функции найти площади трех кругов с данными радиусами. Площадь круга радиуса R вычисляется по формуле S=π∗R 2 . В качестве значения Пи использовать 3.14 .

  * Из задачника М. Э. Абрамян (Proc18)

  Пример:

  Введите радиус: 5.2 Площадь круга = 16,328‬ ___ Введите радиус: 6.3 Площадь круга = 19,782‬‬ ___ Введите радиус: 7.1 Площадь круга = 22,294

  2 вариант: Описать функцию TriangleP(a, h) , находящую периметр равнобедренного треугольника по его основанию a и высоте h , проведенной к основанию ( a и h — вещественные). С помощью этой функции найти периметры трех треугольников, для которых даны основания и высоты (периметр = сумме длин всех сторон). Для нахождения боковой стороны b треугольника использовать теорему Пифагора: b 2 =(a/2) 2 +h 2 .

  * Из задачника М. Э. Абрамян (Proc20)

  Пример:

  Введите основание треугольника: 6 Введите высоту треугольника: 5 Периметр треугольника = 17,83095 ___ Введите основание треугольника: . Введите высоту треугольника: . Периметр треугольника = . ___ Введите основание треугольника: . Введите высоту треугольника: . Периметр треугольника = .

  Потренируйтесь в решении задач по теме, щелкнув по пиктограмме:

  Online Pascal Compiler (Free Pascal v3.0.2)

  Online Pascal Compiler (Free Pascal v3.0.2) helps you to Edit, Run and Share your Pascal Code directly from your browser. This development environment provides you version Free Pascal v3.0.2.

  How to give program Input?

  The latest version of Coding Ground allows to provide program input at run time from the termnial window exactly the same way as you run your program at your own computer. So simply run a program and provide your program input (if any) from the terminal window available in the right side.

  Keyboard Shortcuts

  Shortcut	Description
  ⌘ + Enter	Run the program
  ⌘ + S	Save Project (Login Required)
  ⇧ + ⌘ + S	Save As Project
  ⌘ + P	New Project
  ⌘ + G	Share Project
  ⌘ + Z	Undo Editing
  ⌘ + Y	Redo Editing
  ⌘ + A	Select All Text
  ⌘ + X	Cut Selected Text
  ⌘ + C	Copy Selected Text
  ⌘ + V	Paste Copied Text
  ⌘ + F	Search Text
  ⌘ + ⌥ + F	Replace Text

  Shortcut	Description
  Ctrl + Enter	Run the program
  Ctrl + S	Save Project
  Shift + Ctrl + S	Save As Project
  Ctrl + G	Share Project
  Ctrl + Z	Undo Editing
  Ctrl + Y	Redo Editing
  Ctrl + A	Select All Text
  Ctrl + X	Cut Selected Text
  Ctrl + C	Copy Selected Text
  Ctrl + V	Paste Copied Text
  Ctrl + F	Search Text
  Ctrl + H	Replace Text

  Save Pascal Project

  You can save your Pascal Project with us so that you can access this project later on. To save a project you will need to create a login Id with us. So before you save a project, please create a login Id using a link given at the top right corner of this page.

  Share Pascal Project

  You can use this feature to share your Pascal Code with your teachers, classmates and colleagues. Just click Share Button and it will create a short link, which can be shared through Email, WhatsApp or even through Social Media. A shared link will be deleted if it has been passive for almost 3 months.

  Related posts:

  1. Azərbaycan dili kurikulum
  2. Informatika dərslik 2015
  3. Riyazi proqramlaşdırma
  4. Türk dillrinin müqayisli qrammatikası