Фактические и формальные параметры
При описании процедуры (функции) может указываться список формальных параметров. Каждый параметр является локальным по отношению к описываемой процедуре (функции), к нему можно обращаться только в пределах данной процедуры (функции). Фактические параметры – это параметры, которые передаются процедуре (функции) при обращении к ней. Число и тип формальных и фактических параметров должны совпадать.
Локальные и глобальные переменные
В любой программе все переменные делятся на глобальные и локальные. Глобальные переменные – это переменные из раздела описания основной части программы, а локальные - из раздела описания процедур и функций. Локальные переменные существуют только в течение времени работы процедуры, определяются при ее вызове и исчезают после завершении работы процедуры.
Пример выполнения работы:
| Условие задачи: Разработать программу перестановки значений переменных A, B, C в порядке возрастания, т.е. так, чтобы A<B<C. Var A, B,C :Integer; Procedure SWAP(Var X,Y:Integer); Var T: Integer; Begin T:=X; X:=Y; Y:=T; End; Begin Readln(A, B,C); If A>B Then Swap(A,B); If B>C Then Swap(C,B); If A>B Then Swap(A,B); Writeln(A, B,C); End. | Пояснение При вызове процедуры Swap(A,B) управление передается на участок программного кода, занимаемый процедурой Swap. При этом значение переменной А присваивается переменной X, а значение переменной B становится значением переменной Y. При изменении переменной X произойдет изменение значения и переменной A. После выполнения процедуры осуществляется возврат на оператор основной программы, следующий за вызовом процедуры. |
| Условие задачи: Разработать программу вычисления суммы трех чисел, используя функцию сложения двух чисел Var A,B,C :Integer; Function SUM (X,Y:INTEGER) : INTEGER; Begin SUM:=X+Y; End; Begin Readln(A, B, C); Writeln(SUM(SUM(A, B ), C) ); End. | Пояснение При вызове функции SUM(A,B); управление вычислительным процессом передается на участок программного кода, занимаемый функцией SUM. При этом значение переменной А присваивается переменной X функции SUM, а значение переменной B становится значением переменной Y. Имени функции присваивается результат сложения и осуществляется возврат в основную программу. Результат, полученный после первого вызова функции, подставляется в качестве фактического параметра вместе с переменной С и выполняется второй вызов функции. После возврата из функции управление передается оператору Writeln, который выводит результат функции. |
Контрольные вопросы
· Что такое процедура?
· Что такое функция процедура?
· В чем разница между функцией и процедурой?
· Как оформляются определенные в программе функции и процедуры?
· Что такое формальные и фактические параметры?
· Как в программе выполнить процедуру или функцию?
Варианты к лабораторной работе №9
(ваш номер по журналу соответствует номеру варианта)
| № | Задание 1 (определение функции) Задание 2 (определение процедуры) |
| Для следующей программы написать функцию, которая определяет выполняется ли теорема Пифагора для трех величин. READLN( A,B,C); IF (PIF(A,B,C)=0 ) AND (PIF(B,C,A)=0) AND (PIF(A,C,B)=0) THEN WRITELN(‘НЕ ПРЯМОУГОЛЬНЫЙ» ELSE WRITELN(‘ПРЯМОУГОЛЬНЫЙ’); | |
| Ввести три числа. У каждого числа поменять знак, использовать свою процедуру замены числа на такое же значение с изменением знака. | |
| Ввести два числа. Определить в каком из них сумма цифр больше, используя функцию вычисления суммы цифр одного числа. | |
| Ввести пять слов. В каждом слове заменить буквы А на О. Использовать процедуру замены в строке букв А на О. | |
| Вычислить 4!+7!+2!, используя функцию вычисления факториала. | |
| Ввести три числа. Вывести первые цифры чисел. использовать процедуру замены числа на его первую цифру. | |
| Вычислить НОД(A,B)+НОД(C,B)+НОД(A,C), используя функцию нахождения НОД (наибольшего общего делителя) для двух чисел. | |
| Ввести три числа. Каждое число заменить на остаток от деления числа на 8. Использовать процедуру замены числа остатком от деления на 8 (mod не использовать). | |
| В пятиугольнике известны стороны и диагонали. Найти площадь пятиугольник, используя функцию вычисления площади треугольника по трем сторонам. | |
| Ввести три числа. Каждое число заменить на целую часть от деления на 3. Использовать процедуру замены числа целой частью от деления на 3 (div не использовать). | |
| Получить все шестизначные счастливые числа. Счастливым называют такое число, для которого сумма первых трех его цифр равна сумме последних трех его цифр. Использовать функцию определения суммы цифр трехзначного числа. | |
| Ввести два числа. Найти сумму чисел из первых двух цифр каждого числа, используя процедуру , которая оставляет только первые две цифры числа. Например, даны 1234 и 5432,результат 12+54=66. | |
| Ввести два числа. Найти количество цифр в двух числах, используя функцию вычисления количества цифр в одном числе. | |
| Ввести четыре цифры. Из цифр получить наименьшее число, которое можно получить из этих цифр, используя процедуру перестановки местами значений двух величин. | |
| Найти tg(2x)+tg(3x)/tg(x2), используя функцию вычисления тангенса. | |
| В учебном заведении три компьютерных класса. Ввести площадь каждого класса и количество компьютеров в нем. Для каждого класса вывести сообщение нарушены или не нарушены требования (на 1 ПК не менее 6 кв.м) . использовать свою процедуру проверки и вывода сообщения. | |
| Ввести стороны четырехугольника и его диагональ. Найти площадь четырехугольника, используя в качестве процедуры вычисление площади треугольника по трем сторонам (формула Геррона) | |
| Ввести три слова. В каждом слове заменить буквы О на У. Использовать процедуру замены в строке букв О на У. | |
| Вычислить 53+34+27, используя функцию возведения числа в степень | |
| Отсортировать одномерный массив по убыванию, используя процедуру перестановки местами значений двух величин. | |
| Даны стороны двух треугольников. Найти сумму их площадей, используя функцию вычисления площади треугольника по его сторонам | |
| Разработать программу перестановки значений переменных A, B, C в порядке убывания возрастания, т.е. так, чтобы A>B>C , используя процедуру перестановки двух значений. | |
| Вычислить s=min(a,b,c)+max(b,c)/min(a,c). | |
| Ввести четыре числа. Каждое число заменить на остаток от деления числа на 7. Использовать процедуру замены числа остатком от деления на 7(mod не использовать). | |
| В круглой заготовке радиуса R вырезаны два круглых отверстия радиусы которых R1 и R2. Найти площадь круглой заготовки, используя функцию вычисления площади окружности | |
| Ввести три целых числа каждое число заменить его модулем, используя свою процедуру замены числа на его модуль. (встроенной функцией ABS не пользоваться). | |
| Вычислить z=min(a,3b)*min(2a,-b,2b), используя функцию вычисления минимума из двух значений. | |
| Ввести пять чисел. В каждом числе удалить «хвостовые» цифры 5. (например, дано 2355, результат 23). Использовать процедуру замены исходного числа на значение, полученное после удаления «хвостовых» 5. | |
| Ввести два числа. Найти сумму всех цифр первого и второго числа, используя функцию нахождения суммы одного числа. | |
| Разработать программу перестановки значений переменных A, B, C,D в порядке возрастания, т.е. так, чтобы A<B<C<D. | |
| Ввести пять чисел. Найти сумму максимального и минимального, используя две функции: нахождения минимума из двух значений и максимума из двух значений. | |
| Ввести три цифры. Из цифр получить наименьшее число, которое можно получить из этих цифр, используя процедуру перестановки местами значений двух величин. | |
| Вычислить НОД(A,B,C)+НОД(A,B,C,D), используя функцию нахождения НОД (наибольшего общего делителя) для двух чисел. | |
| Ввести три числа. Найти сумму первых цифр каждого числа, используя процедуру , которая оставляет только первую цифру числа. Например, даны 12 , 520, 231 ,результат 1+5+2=8 | |
| Вычислить s=max(a,b)/min(a,c)+max(b,c). | |
| Ввести три числа. Вывести последние цифры чисел. Использовать процедуру замены числа на его последнюю цифру. | |
| Вычислить Y=MIN(A,3B)*MIN(2A-B, 2B), используя функцию нахождения минимума для двух чисел. | |
| Ввести три даты (день, месяц). Для каждой даты вывести сообщение правильно ли дата определена (не существует 32 дня и 13 месяца). Использовать свою процедуру проверки и вывода сообщения. | |
| Даны шесть чисел. Найти максимальное, используя функцию нахождения максимума из двух значений | |
| Ввести четыре числа. В каждом числе удалить «хвостовые» единицы. (например, дано 2311, результат 23). Использовать процедуру замены исходного числа на значение, полученное после удаления «хвостовых» единиц. | |
Вычислить  , используя функцию вычисления  | |
| Ввести три даты (день, месяц). Для каждой даты вывести дату предыдущего дня . Использовать свою процедуру замены введенной даты на дату предыдущего дня. | |
| Вычислить 3!+6!+4!, используя функцию вычисления факториала. | |
| Ввести четыре слова. В каждом слове заменить буквы Е на Н. Использовать процедуру замены в строке букв Е на Н. | |
Вычислить z=sign(x)+sign(y), где Sign( a)=  | |
| Отсортировать одномерный массив по возрастанию, используя процедуру перестановки местами значений двух величин. | |
| Ввести десять чисел. Найти минимальное, используя функцию нахождения минимума из двух значений. | |
| Ввести пять вещественных чисел. Каждое число округлить до ближайшего целого. Использовать процедуру замены числа результатом его округления (встроенной функцией ROUND не пользоваться). | |
| Ввести два числа. Определить в каком числе больше цифр, используя функцию определения количества цифр для натурального числа. | |
| Ввести три цифры. Из цифр получить наибольшее число, которое можно получить из этих цифр, используя процедуру перестановки местами значений двух величин. | |
| Ввести шесть различных чисел. Найти максимальное, используя функцию нахождения максимума из двух значений. | |
| Ввести три числа. Вывести сумму цифр каждого числа. Использовать процедуру замены числа на сумму его цифр. | |
| Даны три квадратных уравнения AX2+BX+C=0 BX2+AX+C=0 CX2+AX+B=0 Определить, сколько из них имеют вещественные корни, используя функцию вычисления корней квадратного уравнения. | |
| Ввести четыре цифры. Из цифр получить наибольшее число, которое можно получить из этих цифр, используя процедуру перестановки местами значений двух величин. | |
| Вычислить A3+B4+C7, используя функцию возведения числа в целую степень | |
| Разработать программу перестановки значений переменных A, B, C,D в порядке убывания возрастания, т.е. так, чтобы A>B>C>D. | |
Вычислить  , используя функцию вычисления  | |
| Ввести три числа – номера месяцев. Вывести количество дней в каждом месяце. Использовать свою процедуру замены номера месяца на количество дней в нем | |
| Вычислить tg(x)+tg2(5x)/tg(x2), используя функцию вычисления тангенса. | |
| Ввести три числа. Каждое число заменить на целую часть от деления на 3. Использовать процедуру замены числа целой частью от деления на 3 (div не использовать). | |
| Вычислить s=max(a,b)+min(a,b,c)+max(a,c) | |
| Ввести три числа. В каждом числе удалить «хвостовые» нули. (например, дано 2300, результат 23). Использовать процедуру замены исходного числа на значение, полученное после удаления «хвостовых» нулей. | |
| Ввести восемь чисел. Найти максимальное, используя функцию нахождения максимума из двух значений. | |
| Ввести три даты (день, месяц). Для каждой даты вывести дату следующего дня. Использовать свою процедуру замены введенной даты на дату следующего дня. |
ЛАБОРАТОРНАЯ РАБОТА № 10
Тема: Чтение и запись текстовых файлов в программе на TurboPascal 7.0
Цель работы:Изучение особенностей чтения и записи текстовых файлов
Пояснения к работе
Текстовые файлы хранят информацию в виде последовательности символов. Символы составляют строки произвольной длины. В конце каждой строки записываются два символа: #13 #10 (возврат каретки, перевод строки), которые отделяют строку от следующей. Весь файл заканчивается символом конец файла. В текстовый файл можно записать и из него прочитать информацию любого типа. Текстовый файл можно создать и преобразовать текстовым редактором.