1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
решила создать меню с графикой, чтобы нажав на цифру, к примеру: 1. Снежинка, появлялась снежинка, вот только я запуталась, где писать процедуру, чтобы она появллась только после нажатия цифры.....а по моей программе, на экране появляется сразу картинка((((
program grafica; uses crt, graph; const k = 150; {dlina lucha (iznachal'nogo)} n = 8; {kolichestvo luchei} g = 4; {glubina rekursii} var gd, gm: integer; label menu;
procedure Snezhinka_v_zh (x, y: word; r, c: byte); var alpha: real; i: byte; xd, yd: integer; begin if c < 1 then exit; for i := 1 to n do begin alpha := 2 * Pi * i / n; xd := round(x + r * cos(alpha)); yd := round(y + r * sin(alpha)); moveto(x, y); lineto(xd, yd); Snezhinka_v_zh(xd, yd, r div 4, c - 1); end; end;
case m of 1:Snezhinka_v_zh; 2:{Okrujnost;} 3:{Elips; } 4:{kvadrat ; } 5:{halt ; } {end;} outtext('Dlya vixoda v menu najmite <Enter>'); readln; goto menu; readkey; closegraph;
действительно не проходит....прсто яне знала куда вставить инициал графики..... а вот как было
program grafica; uses crt, graph; const k = 150; {dlina lucha (iznachal'nogo)} n = 8; {kolichestvo luchei} g = 4; {glubina rekursii} var gd, gm: integer; label menu;
procedure Snezhinka_v_zh (x, y: word; r, c: byte); var alpha: real; i: byte; xd, yd: integer; begin if c < 1 then exit; for i := 1 to n do begin alpha := 2 * Pi * i / n; xd := round(x + r * cos(alpha)); yd := round(y + r * sin(alpha)); moveto(x, y); lineto(xd, yd); Snezhinka_v_zh(xd, yd, r div 4, c - 1); end; end;
begin initgraph(gd, gm, 'C:\tp7\bgi'); setcolor(11); snezhinka_v_zh(320,240, k,g);
case m of 1:Snezhinka_v_zh; 2:{Okru{®Єаг¦};} 3:{Elips; } 4:{kvadrat ; } 5:{halt {ўл室}; } {end;} write('Dlya vixoda v menu najmite <Enter>'); readln; goto menu;
end.
Добавлено через 12 мин.
Цитата(Ozzя @ 10.12.2009 17:37)
begin initgraph(gd, gm, 'C:\tp7\bgi'); setcolor(11); snezhinka_v_zh(320,240, k,g); ... var {????} m:integer;
Не смешите мои тапочки Описание переменных в теле программы?