Добавить работы Отмеченные0
Работа успешно отмечена.

Отмеченные работы

Просмотренные0

Просмотренные работы

Корзина0
Работа успешно добавлена в корзину.

Корзина

Регистрация

интернет библиотека
Atlants.lv библиотека
3,49 € В корзину
Добавить в список желаний
Хочешь дешевле?
Идентификатор:920448
 
Автор:
Оценка:
Опубликованно: 03.09.2010.
Язык: Латышский
Уровень: Университет
Литературный список: Нет
Ссылки: Не использованы
Фрагмент работы

procedure TForm1.Button1Click(Sender: TObject);
var p0x,p0y,p1x,p1y,p2x,p2y,p3x,p3y,p4x,p4y,r:integer;
begin
r:=10;
p0x:=StrToInt(Edit1.Text);
p0y:=StrToInt(Edit2.Text);
p1x:=StrToInt(Edit3.Text);
p1y:=StrToInt(Edit4.Text);
p2x:=StrToInt(Edit5.Text);
p2y:=StrToInt(Edit6.Text);
p3x:=StrToInt(Edit7.Text);
p3y:=StrToInt(Edit8.Text);
p4x:=StrToInt(Edit9.Text);
p4y:=StrToInt(Edit10.Text);

BEZHE(p0x,p0y,p1x,p1y,p2x,p2y,p3x,p3y,p4x,p4y);
LINIJA(p0x,p0y,p1x,p1y);
LINIJA(p1x,p1y,p2x,p2y);
LINIJA(p2x,p2y,p3x,p3y);
LINIJA(p3x,p3y,p4x,p4y);
RINKIS(r,p0x,p0y);
RINKIS(r,p1x,p1y);
RINKIS(r,p2x,p2y);
RINKIS(r,p3x,p3y);
RINKIS(r,p4x,p4y);

end;
end.

Коментарий автора
Загрузить больше похожих работ

Atlants

Выбери способ авторизации

Э-почта + пароль

Э-почта + пароль

Неправильный адрес э-почты или пароль!
Войти

Забыл пароль?

Draugiem.pase
Facebook

Не зарегистрировался?

Зарегистрируйся и получи бесплатно!

Для того, чтобы получить бесплатные материалы с сайта Atlants.lv, необходимо зарегистрироваться. Это просто и займет всего несколько секунд.

Если ты уже зарегистрировался, то просто и сможешь скачивать бесплатные материалы.

Отменить Регистрация