|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Разное - Доработка программы: добавить действия по пунктам меню - PascalABC.NET |
|
Разное - Доработка программы: добавить действия по пунктам меню - PascalABC.NET
|
Новый участник Сообщения: 1 |
Профиль | Отправить PM | Цитировать плиз, доделайте программу.
У меня есть меню и мне надо вставить туда программу в пункт «Нарисовать астроиду", и в пункт "Справка" написать текст Код меню: uses GraphABC; const x0 = 150; y0 = 200; w = 100; step = 120; n = 3; kv1=0; kv2=1; kv3=2; var f:integer; Q: array[1..3] of string= ('Нарисовать астроиду','Справка','Выход'); procedure menu(f: integer); var i:integer; begin for i:=1 to 3 do begin setfontsize(10); if f=i then setfontcolor(clred) else setfontcolor(clgreen); textout(200,100+i*30,Q[i]); end; end; Procedure choose; begin case f of 1: begin; textout (1,1,'да');end; 3: halt; end; end; procedure up; begin if f=1 then f:=3 else f:=f-1; clearwindow; menu(f); end; procedure down ; begin if f=3 then f:=1 else f:=f+1; clearwindow; menu(f); end; procedure KeyDown(Key: integer); begin case Key of VK_Up: up; VK_Down: down; VK_Enter: begin; choose;end; end; end; begin f:=1; menu(f); OnKeyDown := KeyDown; end. Код программы: uses graphabc; var r, xc, yc, x1, y1: integer; x, y, t: real; s: string; begin repeat write('Vvedite radius [50..200] r='); readln(r); until r in [50..200]; SetWindowSize(400, 400); xc := WindowWidth div 2; yc := WindowHeight div 2; line(0, yc, 2 * xc, yc); line(xc, 0, xc, 2 * yc); t := 0; while t <= 2 * pi do begin x := r * (sqr(cos(t)) * cos(t)); y := r * (sqr(sin(t)) * sin(t)); x1 := xc + round(x); y1 := yc - round(y); putpixel(x1, y1, clGreen); t := t + 0.001; end; SetBrushColor(clGreen); //setfillstyle(6, 12); //floodfill(xc, yc, clGreen); textout(50, 40, 'Astroida'); textout(50, 60, 'x=r*cos^3(t) y=r*sin^3(t)'); str(r, s); textout(50, 80, 'pri R=' + s); end. Текст у меню "Справка": Астроида это кривая, которую описывает фиксированная точка круга, с середины касаясь неподвижного круга раза большего радиуса, и катится по нему без скольжения |
|
Отправлено: 10:46, 31-05-2017 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата AndriyBig:
|
|
Отправлено: 10:57, 31-05-2017 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Интерфейс - [решено] Как добавить пункт меню в контекстное меню, выводимое по Shift-у | test009 | Microsoft Windows 8 и 8.1 | 5 | 21-06-2017 20:30 | |
Интерфейс - Добавление иконок к уже существующим пунктам контекстного меню | BadStealth | Microsoft Windows 7 | 5 | 14-02-2016 23:14 | |
Интерфейс - [решено] Как добавить свои программы в левую часть меню Пуск | ВоВайН | Microsoft Windows 10 | 7 | 01-08-2015 08:11 | |
Delphi - [решено] PascalABC.net работа с сетью | nemo_the_capitain@vk | Программирование и базы данных | 3 | 12-05-2013 23:53 | |
Ошибка - Как добавить ярлык программы в меню Открыть с помощью? | Oleg-Sever | Microsoft Windows 2000/XP | 4 | 10-12-2008 22:58 |
|