Практическое занятие № 16

ТАБЛИЦА П И Ф А Г О Р А

Если телом цикла является циклическая конструкция, то такие циклы называют ВЛОЖЕННЫМИ.

Program Pifagor; Uses crt;

var i,j: integer;

Begin

clrscr;

gotoxy(20,1);writeln('Таблица Пифагора');

FOR I:=1 TO 9 DO

BEGIN

FOR J:=1 TO 9 DO

BEGIN

gotoxy(i*4,j*2);

write(i*j:4);

END;

WRITELN;

END;

for i:=1 to 41 do

begin

gotoxy(i,3);write('-');

if i<=19 then begin

gotoxy(9,i);

write('!');

end;

end;

gotoxy(5,22);

readkey;

End.

З А Д А Н И Я:

1. Набрать программу и получить на экране таблицу.

2. Получить максимально возможную квадратную таблицу.

3. Получить максимально возможную прямоугольную таблицу.

Практическое занятие № 17

П Р О Ц Е Д У Р Ы

Программу, состоящую только из операторов, называют МОНОЛИТНОЙ.

Программу, содержащую процедуры и функции называют МОДУЛЬНОЙ.

ПРОЦЕДУРА- часть программы, имеющая имя и предназначенная для решения определенной задачи. Каждая процедура определяется только однажды, но может использоваться многократно. Процедуры определяются в разделе описаний вслед за разделом переменных.

PROCEDURE Name; prоcedure - служебное слово;

BEGINName - идентификатор отражающий смысл данной задачи;

ИНСТРУКЦИЯОписание процедуры само по себе никакого действия не

END;вызывает. Чтобы исполнить процедуру, необходимо в нужном

месте программы поместить обращение к ней, указав Name; .

Например: Напечатать сорок любых символов.

В программе используется функция WhereX– она определяет позицию курсора в строке (принимает значения от 1 до 80, изменяется автоматически при выводе информации на экран). С помощью этой функции можно проверить, где находится курсор. Аналогичная функцияWhereY – определяет строку, в которой в данный момент находится курсор (принимает значения от 1 до 25). Условие (wherex<40) означает, что при выводе на экран еще не достигнута 40 позиция в текущей строке.

Program Stroka; Uses crt;{Stroka- имя программы }

procedure Str_Simw;{Str_Simw- имя процедуры }

begin

while wherex<40 do write('$'); { - тело процедуры }

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;