Реферат: Отчет по практике по Turbo Pascal

end;

writeln;

writeln('преобразованная матрица:');

for i:=1 to n do

for j:=1 to n do

begin

gotoxy(i*6,j+10);

writeln(b[j,i]:3:1)

end;

readln;

end.

Протокол работы

Исходная матрица:

34.0 4.0 5.0 34.0

45.0 43.0 54.0 34.0

5.0 6.0 4.0 5.0

6.0 7.8 56.0 5.0

преобразованная матрица:

36.0 8.0 11.0 42.0

47.0 47.0 60.0 42.0

7.0 10.0 10.0 13.0

8.0 11.8 62.0 13.0

Практическое задание №6

Решение задач, описываемых алгоритмами циклической структуры с использованием двумерных массивов. Регулярные типы.

Цель задания

1. Получение практических навыков работы операторами графики.
2. Получение навыков построения графических объектов и перемещение на плоскости.
3. Работа с диагностическими сообщениями транслятора при выполнении программ с графическими объектами.

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

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

program zadanie_6;

uses graph, crt;

var

GraphDriver,

GraphMode,

ErrorCode,

X0,

Y0

: Integer;

Begin

0 GraphDriver := Detect;

InitGraph(GraphDriver, GraphMode, '..\bp\bgi');

ErrorCode := GraphResult;