5 Описание пользовательского интерфейса
Задача на исследование треугольников.
При запуске программа просит пользователя ввести координаты трех вершин фигуры, которую необходимо исследовать (Рисунок 3).
Рисунок 3- Окно ввода координат
После ввода координат программа выводит отчеты по всем предположениям и спрашивает, что делать дальше (Рисунок 4).
Рисунок 4- Отчет по всем предположениям
Игра «Сапер».
При запуске программы на экране появляется следующее окно: выводится игровое поле и пользователю предлагается ввести координаты ячейки, которую он хочет открыть (Рисунок 5).
Рисунок 5- Начальное поле и предложение ввести координаты
После ввода поле обновляется, и предлагается ввести следующую координату (Рисунок 6).
Рисунок 6- обновленное поле и предложение ввести следующую координату
Если пользователь попадает на мину, на экран выводится сообщение о проигрыше, показывается открытое игровое поле, и спрашивается, что делать дальше (Рисунок 7).
Рисунок 7- Окно проигрыша
В случае победы, пользователь увидит сообщение о том, что он выиграл, и предложение повторить или выйти (Рисунок 8).
Рисунок 8 – Окно победы
6 Описание результатов
Задача на исследование треугольников.
Результат выполнения работы программы соответствует требованию условия задачи. Программа обладает требуемым функционалом. По введенным точкам она распознает, является ли фигура треугольником. Если является, то определяет требуемые свойства: является ли треугольник равнобедренным, равносторонним, прямоугольным. В конце работы программа выводит отчет по всем предположениям.
Игра «Сапер».
Написанная в текстовом режиме игра «Сапер» обладает всем функционалом, необходимым для игры. Программой составляется игровое поле, ячейки которого пользователь может открывать. Он может как выиграть, так и проиграть, все зависит от его игровых навыков.
Заключение
В ходе практики были достигнуты следующие задачи: проведен анализ поставленных задач, выбран метод решения задачи, обоснован выбор структур данных, описан алгоритм решения задачи, написан код программы; в связи с этим, считаю цели практики достигнутыми.
Список литературы
Фаронов В.В. Turbo Pascal 7.0. Начальный курс - Нолидж, 1998. - 620 с.
Павловская Т. А., Программирование на языке высокого уровня. Учебник для вузов, СПб.: Питер, 2004., 393 с.: ил.
Марченко А.И., Марченко Л.А Программирование в среде Turbo Pascal 7.0 – М.: Бином Универсал, К.: ЮНИОР, 1997. – 496 с., ил.
Клетеник Д.В., Сборник задач по аналитической геометрии, М., 1980 г., 240 стр.
Приложение а
program triangle;
var i,ok:integer;
m1,m2,m3:real;
A,B,C,ab,bc,ac:array[1..2] of integer;
begin
repeat
writeln('Точка A');
for i:=1 to 2 do
readln(A[i]);
writeln('Точка B');
for i:=1 to 2 do
readln(B[i]);
writeln('Точка C');
for i:=1 to 2 do
readln(C[i]);
writeln('Ваши точки:');
write('A(',A[1],',',A[2],')B(',B[1],',',B[2],')C(',C[1],',',C[2],')');
writeln;
if ((C[1]-A[1])*(B[2]-A[2])=(C[2]-A[2])*(B[1]-A[1]))
or ((B[1]-A[1])*(C[2]-A[2])=(B[2]-A[2])*(C[1]-A[1]))
or ((A[1]-B[1])*(C[2]-B[2])=(A[2]-B[2])*(C[1]-B[1]))
then writeln('Это не треугольник')
else begin
writeln('Это треугольник');
ab[1]:=B[1]-A[1]; ab[2]:=B[2]-A[2];
bc[1]:=C[1]-B[1]; bc[2]:=C[2]-B[2];
ac[1]:=C[1]-A[1]; ac[2]:=C[2]-A[2];
{writeln('AB ',ab[1],',',ab[2],' BC ',bc[1],',',bc[2],' AC ',ac[1],',',ac[2]);}
m1:=sqrt((ab[1])*(ab[1])+(ab[2])*(ab[2]));
m2:=sqrt((bc[1])*(bc[1])+(bc[2])*(bc[2]));
m3:=sqrt((ac[1])*(ac[1])+(ac[2])*(ac[2]));
ok:=0;
if m1=m2 then ok:=ok+1;
if m1=m3 then ok:=ok+1
else if m2=m3 then ok:=ok+1;
if ok=1 then writeln('Треугольник равнобедренный')
else if ok=2 then writeln('Треугольник равносторонний')
else writeln('Треугольник не равнобедренный и не равносторонний');
if ((ab[1]*bc[1]+ab[2]*bc[2])=0) or ((ab[1]*ac[1]+ab[2]*ac[2])=0) or ((ac[1]*bc[1]+ac[2]*bc[2])=0)
then writeln('Треугольник прямоугольный')
else writeln('Треугольник не прямоугольный')
end;
writeln('Введите 1 чтобы повторить или любую клавишу чтобы выйти');
readln(i);
until i<>1
END.