Учебно-методическое пособие для студентов специальности 1-08 01 01 «Профессиональное обучение

Примеры выполнения заданий 
 
Пример 1. Составьте блок-схему (рис. 7.2) и напишите програм-
му решения следующей задачи: демонстрация использования про-
цедуры без параметров, которая рисует строку из *. 
PROGRAM primer_1; 
var a,b: Integer; 
{-------------------} 
PROCEDURE Stars; 
var i: Integer; 
BEGIN 
For i:=1 to 40 do Write ('*'); 
WriteLn 
END; 
{-------------------} 
BEGIN 
WriteLn;
Stars; 
Write ('Введите значение a... '); 
ReadLn (a); 
Write ('Введите значение b... '); 
ReadLn (b); 
Stars; WriteLn ('a+b=',a+b,';
a*b=',a*b,'; a-b=',a-b); Stars 
END. 
Процедура 
Основная программа 
Рис. 7.2. Блок-схема процедуры
и основной программы примера 1
начало
a, b
'a+b=',a+b, 
'; a*b=',a*b, 
'; a-b=',a-b 
конец
Stars
Stars
Stars
Да 
Нет
начало
I=1
I<=40
‘*’
конец
I=I+1

---

100 
Пример 2. Составьте блок-схему (рис. 7.3) и напишите програм-
му решения следующей задачи: демонстрация использования про-
цедуры с параметрами.
Процедура Print 
Основная программа 
Рис. 7.3. Блок-схема процедуры и основной программы примера 2 
PROGRAM Primer_2; 
var a,b,c: Real; 
{---------------------------------------} 
PROCEDURE Print (x: Real; m,n: Integer); 
{Вывод на экран значения переменной x с n цифрами после запятой} 
{x,n - параметры, передаваемые по значению} 
var i: Integer; 
BEGIN 
For i:=1 to 20 do Write ('*'); 
WriteLn; WriteLn (x:m:n) 
END; 
{---------------------------------------} 
BEGIN 
Write ('Введите значение a... '); ReadLn (a); 
Write ('Введите значение b... '); ReadLn (b); 
c := a*b; Print (c,7,2); c := a/b; Print (c,7,5) 
END. 
начало
a, b
конец
Print (c,7,2)
c:=a*b
Print (c,7,5)
c:=a/b
начало
i:=1
конец
i<=20
Д
а 
Нет
i:=i+1 
‘*’
x:m:n

---

101 
Пример 3. Напишите программу решения следующей задачи: 
задается два целых числа 5 и 7, эти числа передаются процедуре 
Inc2, в которой они удваиваются. Один из параметров передается 
как параметр-переменная, другой – как параметр-значение. Значе-
ния параметров до и после вызова процедуры, а так же результат их 
удвоения выводятся на экран. 
PROGRAM primer_3; 
Var a,b: Integer;
Procedure Inc2(Var c: Integer; b: Integer); 
BEGIN 
c := c + c; 
b := b + b; 
Writeln(‘Удвоенные :’, c:5, b:5) 
END; {Inc2} 
BEGIN
a:=5; b:=7;
Writeln(‘Исходные :’, a:5, b:5); 
Inc2(a, b);
Writeln(‘Результат :’, a:5, b:5)
END.
В результате прогона программы будет выведено: 
Исходные : 5 7 
Удвоенные : 10 14 
Результат : 10 7 
Таким образом, видим, что переменная с стоит после Var, то есть 
объявлена как параметр-переменная и ее новое значение было пере-
дано в основную программу, а переменная b объявлена в заголовке 
процедуры как параметр-значение и ее новое значение в основную 
программу не было передано.