П Р О Ц Е Д У Р Ы (продолжение)
Переменные, описанные в разделе VAR основной программы, называют ГЛОБАЛЬНЫМИ.
Глобальные переменные передаются в любую часть программы, в том числе и в процедуры.
Program Stroka;
Uses crt;
var i: integer; { i - глобальная переменная }
procedure St_Sim;
begin
for i:=1 to 40 do write('$');
writeln;
end;
Begin
clrscr;
St_Sim;
St_Sim;
End.
Переменные, описанные в процедуре (функции), называют ЛОКАЛЬНЫМИ, так как они используются только в данной процедуре (функции). Доступа к ним из программы нет.
Program Stroka;
Uses crt;
procedure St_Sim;
var i: integer; {i - локальная переменная}
begin
for i:=1 to 40 do write('-');
end;
Begin
clrscr;
St_Sim;
Readkey;
End.
Нежелательно, чтобы имена глобальных и локальных переменных совпадали.
З А Д А Н И Я:
1. Набрать и исполнить данные программы.
2. Решить задачу: Найти сумму чисел ряда 1,2,3,...,60 с использованием процедуры нахождения суммы и процедуры подчеркивания результата. В обеих процедурах использовать локальные переменные. Количество символов в строке задать глобальной переменной.
3. С помощью процедур получить вертикальную и горизонтальную линии. Линия проводится многократной печатью символа. Заключить слово в рамку из полученных линий.