Процедуры и функции в языке Паскаль

Автор работы: Пользователь скрыл имя, 16 Января 2011 в 18:33, лабораторная работа

Описание работы

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

Файлы: 1 файл

5.doc

— 143.50 Кб (Скачать файл)
 
 
 
 

 Программа, содержащая описание функции выбора меньшего из двух аргументов. 

uses crt; 

function Min(a, b: integer): integer;

Begin

If a<b then Min:=a

else Min:=b

End; 

Var    x, y, z: integer; 

BEGIN

write (‘Первое число- ’);

readln (x);

write (‘Второе число- ’);

readln (y);

z:=Min(x, y);

writeln (‘Меньшее из двух чисел- ’,z);

END.  
 

     

Программа, содержащая описание процедуры удвоения  аргументов. 
 

Uses crt; 

Procedure Double (var x, y: integer);

Begin

x:=x+x;

y:=y+y;

End; 

Var   a, b: integer; 

BEGIN

write (‘Введите исходные данные’)’

readln (a);

readln (b);

double (a, b);

wrteln (‘Полученные данные- ’,a ,b);

END. 
 
 

    Таблица 3 
     

    1. Опишите функцию  нахождения наибольшего из трёх чисел..
    1. Опишите функцию нахождения гипотенузы по двум катетам.
    1. Опишите функцию нахождения катета по его гипотенузе и второго катета
    1. Опишите функцию разность косинусов  двух углов.
    1. Опишите функцию сумму синусов двух углов.
    1. Опишите функцию вычисления куба числа.
    1. Опишите функцию суммы квадратов двух чисел.
    1. Опишите функцию разности квадратов двух чисел.
    1. Опишите  функцию определения среднего значения из  трёх введенных
    1. Опишите функцию нахождения наименьшего из трёх чисел.
 
 

Таблица 4 

    1.Опишите  процедуру, которая  находит квадрат разности двух чисел.
    2.Опишите  процедуру, которая вычисляет  площадь прямоугольного треугольника.
    3.Опишите  процедуру, которая вычисляет  периметр прямоугольника.
    4.Опишите  процедуру, которая переводит  угол из градусов в радианы.
    5.Опишите   процедуру, которая вычисляет  сумму по модулю двух чисел
    6.Опишите   процедуру, которая вычисляет  разность  по модулю двух чисел
    7.Опишите   процедуру, которая вычисляет  произведение   по модулю двух  чисел
    8.Опишите   процедуру, которая вычисляет сумму кубов двух  чисел.
    9.Опишите   процедуру, которая вычисляет  разность  кубов двух  чисел.
    10.Опишите   процедуру, которая вычисляет  произведение кубов двух  чисел.

Информация о работе Процедуры и функции в языке Паскаль