Отчет по практике: Язык программирования Pascal

Setfillstyle (1,8);

Floodfill (200, 150,5);

Circle (215, 177,7);

Setfillstyle (1,9);

Floodfill (215, 177,5);

Setfillstyle (1, 14);

floodfill (121, 200,5);

readkey;

closegraph;

end.

3.5 Решение задачи

3.5.1 Постановка задачи

Даны первый член и разность арифметической прогрессии. Написать рекурсивную функцию для нахождения суммы n первых членов прогрессии.

3.5.2 Таблица идентификаторов

№	Переменные	Тип	Значение
1	Sn	Real	Сумма n первых членов арифметической прогрессии
2	n	integer	Количество членов арифметической прогрессии
3	A1,A2	Real	Первый и второй члены арифметической прогрессии
4	d	Real	Разность прогрессии

3.5.3 Блок-схема

3.5.4 Программа

Program recursiy;

var A1,d,A2,Sn: real; n: integer;

function prog (n: integer): integer;

begin

if n=1 then prog: =A1 else prog: =A1+d* (n-1) +prog (n-1);

end;

begin

Writeln ('введите n');

readln (n);

writeln ('введите первый и 2-ой член арифметической прогрессии');

readln (A1, A2);

d: =A2-A1;

Sn: =prog (n);

writeln (Sn);

readln;

end.

3.5.5 Результат работы программы

3.6 Решение задачи

3.6.1 Постановка задачи

Дан двумерный массив. Удалить среднюю строку (строки).

3.6.2 Таблица идентификаторов

№	Переменные	Тип	Значение
1	a	array	заполнение двумерного массива
2	i,j	integer	Параметры цикла
3	n, m	integer	Размерность массива
4	k	integer	Количество элементов до среднего

3.6.3 Блок-схема

3.6.4 Программа