Подпрограммы пользователя в языке Pascal .Подпрограмма- функция.

Содержание


ВВЕДЕНИЕ
1 ТЕОРЕТИЧЕСКАЯ ЧАСТЬ
1.1 Общие сведения о реализации подпрограмм
1.2 Использование процедур в языке Pascal
1.3 Механизм передачи параметров
1.3.1. Параметры-значения
1.3.2. Параметры-переменные
1.3.3 Параметры-константы
1.4 Использование функций
1.5 Вложенные процедуры и функции
2 ПРОЕКТНАЯ ЧАСТЬ
2.1 Условие задачи
2.2 Тестовые примеры
2.3 Схема алгоритма
3 ЭКСПЕРИМЕНТАЛЬНАЯ ЧАСТЬ
3.1 Листинг программы
3.2 Протокол работы программы
ЗАКЛЮЧЕНИЕ
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
ПРИЛОЖЕНИЕ А ЛИСТИНГ И ПРОТОКОЛ РАБОТЫ МОДИФИЦИРОВАННОЙ ПРОГРАММЫ

Подпрограммы пользователя в языке Pascal .Подпрограмма- функция.

2.2 Тестовые примеры
Тестовый примерами для проверки работы программы представлен на рис. 2.1
Рис. 2.1.  Демонстрация сортировки по возрастанию методом "пузырька"
2.3 Схема алгоритма
Разработаем схему алгоритма метода пузырька, используя понятие подпрограмм, для обеспечения ввода, вывода и обмена элементов массива.
Рис. 2.2.  Схема алгоритма метода «пузырька»
Рис.2.3 Алогритм процедуры ввода элементов массива
Рис.2.4 Алогритм процедуры вывода элементов массива
Рис.2.4 Алогритм функции перестановки элементов массива
3 ЭКСПЕРИМЕНТАЛЬНАЯ ЧАСТЬ
3.1 Листинг программы
Согласно разработанного алгоритма, в разделе 2.3, используя язык программирования Pascal, была разработана программа текст, которой представлен ниже
{программа сортирует по возрастанию массив из 100 целых элементов}
program sort;
{подключаем библиотеку, содержащую функции стирания экрана и ожидания нажатия клавиши}
uses crt;
{описываем тип массива}
type massive=array[1..100] of integer;
{описываем необходимые переменные}
var lb,ub:integer;
i,n,a0:integer;
flag:boolean;
A:massive;
procedure vvod(var A:massive);
{процедура ввода массива}
begin
for i:=1 to n do
begin
write('A[',i,']=');
read(A[i]);
end;
end;
procedure vuvod(var A:massive);
{процедура вывода массива}
begin
for i:=1 to n do
writeln(A[i]);
writeln('<Enter>');
readkey;
end;
function swap:boolean;
{функция перестановки элементов массива}
begin
a0:=A[i+1];
A[i+1]:=A[i];
A[i]:=a0;
swap:=false;
end;
{начало главной программы }
Begin
{стирание экрана }
clrscr;
{ввод размера массива}
Writeln('Vvedite N');
readln(N);
lb:=1;
ub:=n-1;
{ввода массива}
vvod(A);
repeat
flag:=true;
for i:=1 to ub do
if A[i]>A[i+1] then
{перестановка элементов массива}
flag:=swap;
writeln('************');
{вывод промежуточных результатов}
vuvod(A);
{завершение цикла обработки }
until flag=true;
{ вывод результирующего массива}
writeln('Rezultat');
vuvod(A);
end.
3.2 Протокол работы программы
Vvedite N
7
A[1]=7
A[2]=0
A[3]=-4
A[4]=3
A[5]=1
A[6]=-2
A[7]=5
************
-4
3
1
-2
5
7
<Enter>
************
-4
1
-2
3
5
7
<Enter>
************
-4
-2
1
3
5
7
<Enter>
************
-4
-2
1
3
5
7
<Enter>
************
-4
1
-2
3
5
7
<Enter>
************
-4
-2
1
3
5
7
<Enter>
************