![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
nastena |
![]() ![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 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;
begin
initgraph(gd, gm, 'C:\tp7\bgi');
setcolor(11);
snezhinka_v_zh(320,240, k,g);
var
m:integer;
menu:
clrscr;
outtextxy(250,10,'Grafica');
outtextxy(180,30, '1. Risovanie snejinki');
outtextxy(180,50, '2. Risovanie okrujnostei');
outtextxy(180,70, '3. Risovanie smaila');
outtextxy(180,90, '4. Risovanie Vody');
outtextxy(180,110, '5. Vixod');
outtextxy(180,130, 'Vvedite nomer pynkta i najmite <Enter>: ' );
readln(m);
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;
end.
|
Ozzя |
![]()
Сообщение
#2
|
![]() Гуру ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: ![]() ![]() ![]() |
Цитата на экране появляется сразу картинка(((( Что-то мало верится мне. Чуется, что и этап компиляции не должно пройти? ;) procedure Snezhinka_v_zh (x, y: word; r, c: byte);
Описание процедуры. Ее вызов - case m of
1:Snezhinka_v_zh;
|
nastena |
![]()
Сообщение
#3
|
Группа: Пользователи Сообщений: 8 Пол: Женский Репутация: ![]() ![]() ![]() |
хм...действительно....странео...а, я просто не знала куда вставить инициал графики, вот и впихнула ее в само меню
Сообщение отредактировано: nastena - 10.12.2009 17:36 |
Ozzя |
![]()
Сообщение
#4
|
![]() Гуру ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: ![]() ![]() ![]() |
begin
initgraph(gd, gm, 'C:\tp7\bgi');
setcolor(11);
snezhinka_v_zh(320,240, k,g);
...
var {????}
m:integer;
Цитата компиляция проходит Не смешите мои тапочки ![]() Описание переменных в теле программы? Я умываю руки (С) |
nastena |
![]()
Сообщение
#5
|
Группа: Пользователи Сообщений: 8 Пол: Женский Репутация: ![]() ![]() ![]() |
действительно не проходит....прсто яне знала куда вставить инициал графики.....
а вот как было 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);
readkey;
closegraph;
begin
var
m:integer;
menu:
clrscr;
gotoxy(25,1);
writeln('Grafica');
gotoxy(15,3);
write('1. Risovanie snejinki');
gotoxy(15,5);
write('2. Risovanie okrujnostei');
gotoxy(15,7);
write('3. Risovanie smaila');
gotoxy(15,9);
write('4. Risovanie Vody');
gotoxy(15,11);
write('5.‚ле(r)¤');
gotoxy(15,13);
write('Vvedite nomer py‚ўҐ¤ЁвҐ (r)¬Ґа ЇгЄв :- ' );
readln(m);
case m of
1:Snezhinka_v_zh;
2:{Okru{(r)Єаг¦};}
3:{Elips; }
4:{kvadrat ; }
5:{halt {ўле(r)¤}; }
{end;}
write('Dlya vixoda v menu najmite <Enter>');
readln;
goto menu;
end.
Добавлено через 12 мин. begin
initgraph(gd, gm, 'C:\tp7\bgi');
setcolor(11);
snezhinka_v_zh(320,240, k,g);
...
var {????}
m:integer;
Не смешите мои тапочки ![]() Описание переменных в теле программы? Я умываю руки (С) это описание переменной меню Сообщение отредактировано: nastena - 10.12.2009 17:41 |
nastena |
![]()
Сообщение
#6
|
Группа: Пользователи Сообщений: 8 Пол: Женский Репутация: ![]() ![]() ![]() |
и что, никто не поможет?
![]() |
![]() ![]() |
![]() |
Текстовая версия | 20.07.2025 4:56 |