y´= 200 + y; движение по часовой стрелке
Uses Crt;
Begin
WriteLn('Число Pi = ', Pi);
End.
x = R∙cos α
y = R∙sin α
x:=trunc(320+100*cos(a));
y:=trunc(200-100*sin(a));
Х целое число, а результат функции будет выражен дробным числом.
Для преобразования типов используем функцию TRUNC
Действия повторяются, пока на клавиатуре не нажата какая либо клавиша.
Устанавливаем начальные значения X,Y и угла α
Организуем цикл, пока не нажата любая клавиша
Вычисляем X и Y в зависимости от угла
Устанавливаем черный цвет рисования и рисуем окружность
Приостанавливаем выполнение програмы
Стираем: рисуем окружность белым цветом
Изменяем угол
2. Объекты класса Picture.
Класс Picture описывает рисунок, хранящийся в оперативной памяти
Работа с рисунками в PascalABC
uses GraphABC; {описатели}
var n: integer;
begin
n:=LoadPicture('demo.bmp');
SetPictureTransparent(n,True);
DrawPicture(n,0,0);
DestroyPicture(n);
end.
uses GraphABC;{класс Picture}
var p: Picture;
begin
p:=Picture.Create('demo.bmp');
p.Transparent:=True;
p.Draw(0,0);
p.Destroy;
end.
Загружаем рисунок из файла
Делаем прозрачным фон
Выводим рисунок на экран
Разрушаем рисунок, перед завершением программы
Делаем прозрачным фон
Выводим рисунок на экран
Разрушаем рисунок, перед завершением программы
Интернет источники:
http://www.bookriver.ru/book/143651 обложка книги С.В.Филичева
http://padabum.com/d.php?id= обложка книги М.В. Мозгового
http://markoniya.ucoz.ru/news/wallpapers_fantasticheskij_kosmos_onlajn/2011-07-03-17982
рисунок на первом слайде данной презентации
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть