Writeln

end;

Begin

clrscr;

Str_Simw; Str_Simw; { - вызов процедуры (два раза)}

Readkey;

End.

З А Д А Н И Я:

1. Набрать и исполнить пример.

2. Взять любую программу суммирования числового ряда и часть программы описать

с помощью процедуры.

3. Применить процедуру Str_Simw для подчеркивания.

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

Процедуры позволяют разбить программу на законченные блоки.

ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 18

П Р О Ц Е Д У Р Ы (продолжение)

Переменные, описанные VAR после слова PROGRAM , называют ГЛОБАЛЬНЫМИ.

Глобальные переменные передаются в любую часть программы, в том числе и в процедуры.

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. С помощью процедур получить вертикальную и горизонтальную линии. Линия проводится многократной печатью символа. Заключить слово в рамку из полученных линий.