Информатика / Лаба 3

Пермский Государственный Технический Университет

Отчет по информатике на тему:

Нахождение точек пересечения

плоских фигур

Работу выполнил студент

группы АТ-06-2

Старцев Александр.

Проверил: Кычкин А. В.

Пермь 2006.

Цель работы: Написать программу в Pascal для решения задачи нахождения точек пересечения плоских фигур и вывести результат в виде таблицы.

Вариант №25

Текст программы:

Program lab3;

Var x3,y,y1,y5,y6,y4,x4:real;

Const d=0.01; x2=0; x5=0; x6=0; y3=0 ;x1=0; y2=17;

Begin

x4:=0;

repeat x4:=x4+d ; y:=(-9/21*x4+11.5);

y4:=-2-sqrt(32*32-sqr(x4-13.5));

until y-y4<d;

y1:=11.5;

x3:=(11.5-y3)/0.43;

y5:=-7-sqrt((1-sqr(x5+7)/sqr(22))*22*22);

y6:=-2-sqrt(32*32-sqr(x6-13.5));

writeln('---------------------------------');

writeln('|tochka| x | y | ');

writeln('---------------------------------');

writeln('| a1 | ', x1 ,' | ',y1:2:2,' |' );

writeln('---------------------------------');

writeln('| a2 | ', x2 ,' | ',y2 ,' |' );

writeln('---------------------------------');

writeln('| a3 | ', x3:2:2,' | ',y3 ,' |' );

writeln('---------------------------------');

writeln('| a4 | ', x4:2:2,' | ',y4:2:2,' |' );

writeln('---------------------------------');

writeln('| a5 | ', x5 ,' | ',y5:2:2,' |' );

writeln('---------------------------------');

writeln('| a6 | ', x6 ,' | ',y6:2:2,' |' );

writeln('---------------------------------');

readln; end.

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