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

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

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

2 страниц V < 1 2  
 Ответить  Открыть новую тему 
> Задачи на графику
сообщение
Сообщение #21


Гуру
*****

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

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


ерш твою медь! mad.gif
Цитата
Пишешь uses fmenu; и используешь проц-ру simplemenu
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #22


Новичок
*

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

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


Спокойно sad.gif Я ж говорил, что в модулях и графике ниче не смыслю. Остальное знаю.

Добавлено через 11 мин.
Ладно, спасибо всем за помощь. Вторую задачу я осилил, а первая все равно не получается. sad.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #23


Новичок
*

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

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


Я скопировал это на одном форуме, меню сойдет, но как описать появление квадрата, круга и треугольника.
Наверное процедуру надо написать. Я пишу обычную про-ру, вставляю ее имя после case в самом низу программы, а она не пашет. Вместо начать и загрузить, я пишу квадрат...


uses crt;
type
menuitems=array [1..3] of string;

const
mainmenu:menuitems =
(' начать ',
' загрузить ',
' Выход ');

Procedure menu(var m:menuitems; kol: byte; var num: byte);

var i,y: byte; ch: char;

Begin
window(25,8,65,20);
textbackground(0);
clrscr;
textcolor(12);
writeln(' +------+ ');
writeln('+----------! МЕНЮ !-----------+');
writeln('! +------+ !');
{ writeln(' ХННННННё ');
writeln('ЙННННННННННµ Њ…Ќћ ЖННННННННННН»');
writeln('є ФННННННѕ є'); }
for i:=1 to kol do
writeln('! !');
{ for i:=1 to kol do
writeln('є є');
}

window(25,10+kol+1,65,10+kol+1);
write('+-----------------------------+');
{ write('ИНННННННННННННННННННННННННННННј'); }

window(26,10+2,54,10+kol);
textcolor(3);
for i:=2 to kol-1 do
writeln(m[i]);
textcolor(4);write(m[kol]);

window(26,10+1,54,10+1);
textcolor(15);
textbackground(9);
clrscr;
write(m[1]);
i:=1;
y:=11;

repeat
ch:=readkey;
case ch of
#80: begin
window(26,y,54,y);textcolor(3);textbackground(0);clrscr;
write(m[i]);
if i=kol then
begin
window(26,y,54,y);clrscr;textbackground(0);textcolor(4);write(m[kol]);
i:=1;y:=11;
end
else begin inc(i);inc(y);end;
window(26,y,54,y);textcolor(15);textbackground(9);clrscr;write(m[i]);
end;
#72: begin
window(26,y,54,y);textcolor(3);textbackground(0);clrscr;write(m[i]);
if i=1 then
begin
i:=kol;y:=10+kol;
end
else begin i:=i-1;y:=y-1;
if i=kol-1 then begin
window(26,10+kol,54,10+kol);textcolor(4);clrscr;write(m[kol]); end;
end;
window(26,y,54,y);textcolor(15);textbackground(9);clrscr;write(m[i]);
end;
end;
until (ch=#13);
num:=i;
end;


var r: byte;

begin
textbackground(0);
clrscr;

repeat
window(1,1,80,25); textbackground(0); clrscr;

menu(mainmenu,3,r);

window(1,1,80,25); textbackground(0); clrscr;

Case r of

1: вызвать процедуру начать;

2: вызвать процедуру загрузить;

end;

until r=3;
end.



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


Гость






Цитата
Я пишу обычную про-ру
У тебя ж графика не инициализирована... InitGraph/CloseGraph в твоей процедуре тоже есть? А лучше бы показал программу полностью...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #25


Новичок
*

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

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


И есть вся прога полностью, она работает. Я просто не знаю как сделать вторую часть проги. Я уже все перепробовал, прога Дожа все равно не пашет
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #26


Гость






Цитата
она работает
Опять 25... Работает - это значит компилируется (интересно, как может компилироваться
      Case r of 
1: вызвать процедуру начать;
2: вызвать процедуру загрузить;
end;
, ты точно на Паскале пишешь?), запускается и выдает верный результат/делает то, что от нее требуется. Если это так и есть - чего ты спрашиваешь? Если нет - значит не работает, тогда приаттачивай программу полностью.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #27


Новичок
*

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

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


Это прога выводит только меню. А как сделать так, чтобы нажав на кнопку "квадрат" стерлось меню и появился квадрат??
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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