рисунки кодируются с следующих команд:
установить х, у — установить в качестве текущей точку с координатами (х, у);
линия к х1, у1 — нарисовать линию от текущей точки до точки с координатами (х, у), при этом точка (х1, у1) становится текущей;
окружность х, у — нарисовать окружность с центром в точке (x, у) и радиусом ;
прямоугольник х1, у1, х2, у2 — нарисовать прямоугольник, где (x1, у1) — координаты левого верхнего, а (х2, у2) — правого нижнего угла этого прямоугольника.
по имеющимся описаниям восстановите рисунки.
описание
установить 60, 20
линия к 20, 60
линия к 180, 60
линия к 140, 20
линия к 60, 20
прямоугольник 60, 80, 100, 60
прямоугольник 100, 120, 150, 60
окружность 140, 40, 10
описание
установить 20, 50 линия к 40, 70 линия к 50, 70 линия к 90, 110 линия к 120, 120 линия к 110, 90 линия к 70, 50 линия к 70, 40 линия к 50, 20 линия к 50, 40 линия к 40, 50 линия к 20, 50 окружность 80, 80, 10 окружность 100, 100, 10
описание
установить 20, 80 линия к 65, 110 линия к 110, 80 линия к 20, 80 прямоугольник 20, 30, 110, 10 прямоугольник 30, 80, 40, 30 прямоугольник 50, 80, 60, 30 прямоугольник 70, 80, 80, 30 прямоугольник 90, 80, 100, 30
описание
установить 30, 40 линия к 40, 10 линия к 60, 10 линия к 70, 40 прямоугольник 20, 50, 80, 40 установить 50, 50 линия к 50, 80 окружность 40, 80, 10 окружность 60, 80, 10 окружность 30, 100, 10 окружность 50, 100, 10 окружность 70, 100, 10 окружность 40, 120, 10 окружность 60, 120, 10
Пример на продукте - бананы
program v1;
var m,n,sum,t:integer;
st1:string[10];
begin
sum:=0; t:=0;
writeln('Здравствуйте');
writeln('Банан красного цвета стоит 2500, банан синего цвета стоит 3000, банан черного цвета стоит 3700');
writeln('Сколько купите бананов '); readln(n);
writeln('Введите цвет бананов '); readln(st1);
if (st1='Красного') or (st1='красного') or (st1='Красный') or (st1='красный') then sum:=3000*n;
if (st1='Синего') or (st1='синего') or (st1='Синий') or (st1='синий') or (st1='Синей') or (st1='синей') then sum:=2500*n;
if (st1='Черного') or (st1='черного') or (st1='Чёрного') or (st1='чёрного') or (st1='Черный') or (st1='черный') or (st1='чёрный') or (st1='Чёрный') then sum:=3700*n;
writeln('Сумма покупки ', sum);
writeln('Введите сумму'); readln(m);
t:=m-sum;
writeln('Возьмите сдачу ',t);
writeln('Всего доброго, приходите еще');
end.
