IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> меню
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 8
Пол: Женский

Репутация: -  0  +


решила создать меню с графикой, чтобы нажав на цифру, к примеру: 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.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Цитата
на экране появляется сразу картинка((((

Что-то мало верится мне. Чуется, что и этап компиляции не должно пройти? ;)

procedure Snezhinka_v_zh (x, y: word; r, c: byte);

Описание процедуры.
Ее вызов -
case m of
1:Snezhinka_v_zh;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 8
Пол: Женский

Репутация: -  0  +


хм...действительно....странео...а, я просто не знала куда вставить инициал графики, вот и впихнула ее в само меню

Сообщение отредактировано: nastena -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


begin
initgraph(gd, gm, 'C:\tp7\bgi');
setcolor(11);
snezhinka_v_zh(320,240, k,g);
...
var {????}
m:integer;


Цитата
компиляция проходит

Не смешите мои тапочки norespect.gif
Описание переменных в теле программы?

Я умываю руки (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5





Группа: Пользователи
Сообщений: 8
Пол: Женский

Репутация: -  0  +


действительно не проходит....прсто яне знала куда вставить инициал графики.....
а вот как было
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.‚л室');
gotoxy(15,13);
write('Vvedite nomer py‚ўҐ¤ЁвҐ ­®¬Ґа Їг­Єв :- ' );
readln(m);



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;

Не смешите мои тапочки norespect.gif
Описание переменных в теле программы?

Я умываю руки (С)



это описание переменной меню

Сообщение отредактировано: nastena -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6





Группа: Пользователи
Сообщений: 8
Пол: Женский

Репутация: -  0  +


и что, никто не поможет? blink.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.10.2020 19:44
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name