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

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

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

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

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

Корзина

Регистрация

интернет библиотека
Atlants.lv библиотека

Выгодно: цена со скидкой!

Обычная цена:
3,49
Экономия:
0,45 (13%)
Со скидкой*:
3,04
Купить
Добавить в список желаний
Идентификатор: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.lv на тему „Datorgrafika un attēlu apstrādes pamati. 5.mājas darbs”.

Адрес работы:
https://rus.atlants.lv/w/920448

Отправить

Э-почта отправлена.

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

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

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

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

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

Draugiem.pase
Facebook
Twitter

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

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

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

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

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