Автор работы: Пользователь скрыл имя, 01 Мая 2013 в 03:20, отчет по практике
Задание 1. Фото-мозаика.
Условие задачи. В архиве находятся несколько файлов. В них - фрагменты одной фотографии. Написать программу, составляющую из фрагментов целую фотографию.
Требования:
подобрать размеры графического окна в соответствии с параметрами фотографии (размер и ориентация книжная или альбомная);
полученное фото расположить в указанной части графического окна;
ЗАДАЧА 1. 2
ЛИСТИНГ К ЗАДАЧЕ 1. 3
РИСУНОК К ЗАДАЧЕ 4
ЗАДАЧА 2. 4
ЛИСТИНГ К ЗАДАЧЕ 2. 4
РИСУНОК К ЗАДАЧЕ 5
ЗАДАЧА 3. 5
ЛИСТИНГ К ЗАДАЧЕ 3. 5
РИСУНОК К ЗАДАЧЕ 6
ЗАДАЧА 4. 6
ЛИСТИНГ К ЗАДАЧЕ 4. 6
РИСУНОК К ЗАДАЧЕ 9
ЗАДАЧА 5. 9
ЛИСТИНГ К ЗАДАЧЕ 5. 9
РИСУНОК К ЗАДАЧЕ 10
ЗАДАЧА 6. 10
ЛИСТИНГ К ЗАДАЧЕ 6. 10
РИСУНОК К ЗАДАЧЕ 11
ЗАДАЧА 7. 11
ЛИСТИНГ К ЗАДАЧЕ 7. 12
РИСУНОК К ЗАДАЧЕ 13
ЗАДАЧА 8. 14
ЛИСТИНГ К ЗАДАЧЕ 8. 14
РИСУНОК К ЗАДАЧЕ 17
ЗАДАЧА 9 17
ЛИСТИНГ К ЗАДАЧЕ 9. 17
РИСУНОК К ЗАДАЧЕ 20
k1:=400 div a[6];
{ подписываем ОХ }
For i:=-5 to 5 do //OY
begin
S:=i*100;
Str(-S,z);
Line(48,(400 div 12)*i+200,52,(400 div 12)*i+200);
TextOut(5,(400 div 12)*i+200-7,z);
end;
{координата х для первого прямоугольника диаграммы}
xi:= 60;
{Строим
столько прямоугольников,
For i:=1 to 6 do
begin
SetBrushColor(clMedGray);
{закраска прямоугольника диаграммы зеленым цветом}
SetBrushStyle(bsSolid);
Rectangle(xi,200-otkl[i]*k1,
SetBrushColor(clwhite);
{Отменяем цвет закраски области на белый}
SetFontColor(clNavy);
{Устанавливаем цвет шрифта - красный}
SetFontSize(14);
{Указываем размер цифр - 14}
SetFontStyle(fsBold);
{Устанавливаем стиль шрифта - жирный}
TextOut(xi+(h div 10),410-200,v[i]);
{Выводим
текст под каждым
xi:=xi+h+10;
{получаем координату х для следующего прямоугольника диаграммы
10 - расстояние между столбиками}
end;
end.
Результат выполнение программы