Об игре
Новости
Войти
Регистрация
Рейтинг
Форум
3:35
948
 online
Требуется авторизация
Вы не авторизованы
   Форумы-->Форум для внеигровых тем-->

Авторпаскаль
Я_не_нюб
 1  2009-06-23 01:00:13
http://qb-branching.narod.ru/progpolnforbl.htm
задачки сделал а графического модуля нету
кто может нарисовать ети блок схеми в граф режиме?
актуально до 9 часов утра)) спать вроде йти не буду если что спрашывайте
Rain_Crimson
 2  2009-06-23 01:01:18
Хорошее дело делает. Из-за таких, как он, больше ценятся действительно хорошие программисты.
торопыжка
 3  2009-06-23 01:06:56
для Rain_Crimson: не поверишь, слово в слово :)
я тоже предлагаю такое будущее удобрение для нас холить и лелееять:
https://mirror.heroeswm.ru/forum_messages.php?tid=336834
правда, он как увидел - сразу тему закрыл :)
Sheffitsme
 4  2009-06-23 01:07:43
шелковое сердце пищи
Я_не_нюб
 5  2009-06-23 03:12:47
program blok;
uses crt,graph;
var driver,mode:integer;
begin clrscr;
driver:=detect;
initgraph(driver,mode,'');
setcolor(red);
line(300,20,30,70);
line(300,20,250,70);
line(250,70,300,120);
line(350,70,300,120);
line(230,70,250,70);
line(350,70,370,70);
line(230,70,230,100);
line(370,70,370,100);
rectangle(160,100,300,130);
rectangke(350,100,440,130);
line(230,130,230,150);
line(370,130,370,150);
line(230,150,370,150);
end.



написал прогу на бумажке, у кого паскаль с граф режимом запустите плз и скажите нарисовалось ли то что надо
Я_не_нюб
 6  2009-06-23 03:24:55
program blok;
uses crt,graph;
var driver,mode:integer;
begin clrscr;
driver:=detect;
initgraph(driver,mode,'');
setcolor(red);
line(300,20,30,70);
line(300,20,250,70);
line(250,70,300,120);
line(350,70,300,120);
line(230,70,250,70);
line(350,70,370,70);
line(230,70,230,100);
line(370,70,370,100);
rectangle(160,100,300,130);
rectangke(350,100,440,130);
line(230,130,230,150);
line(370,130,370,150);
line(230,150,370,150);
setcolor(bkack);
outtextxy(255,70,Umova);
outtextxy(165,115,Seri9 komand 1);
outtextxy(355,115,Seri9 komand 2);
outtextxy(80,70,Tak);
outtextxy(360,70,Ni);
end.

єто вместо предыдущего, там текст забыл написать
Я_не_нюб
 7  2009-06-23 03:44:31
program blok;
uses crt,graph;
var driver,mode:integer;
begin clrscr;
driver:=detect;
initgraph(driver,mode,'');
setcolor(red);
line(300,20,30,70);
line(300,20,250,70);
line(250,70,300,120);
line(350,70,300,120);
line(230,70,250,70);
line(350,70,370,70);
line(230,70,230,100);
line(370,70,370,100);
rectangle(160,100,300,130);
rectangle(350,100,440,130);
line(230,130,230,150);
line(370,130,370,150);
line(230,150,370,150);
setcolor(black);
outtextxy(255,70,'Umova');
outtextxy(165,115,'Seri9 komand 1');
outtextxy(355,115,'Seri9 komand 2');
outtextxy(80,70,'Tak');
outtextxy(360,70,'Ni');
end.


во єто без ошыбок, но почемуто незапускаеться, графику настроил))
Я_не_нюб
 8  2009-06-23 03:52:41
program blok;
uses crt,graph;
var driver,mode:integer;
begin clrscr;
driver:=detect;
initgraph(driver,mode,'');
setcolor(red);
line(300,20,30,70);
line(300,20,250,70);
line(250,70,300,120);
line(350,70,300,120);
line(230,70,250,70);
line(350,70,370,70);
line(230,70,230,100);
line(370,70,370,100);
rectangle(160,100,300,130);
rectangle(350,100,440,130);
line(230,130,230,150);
line(370,130,370,150);
line(230,150,370,150);
setcolor(black);
outtextxy(255,70,'Umova');
outtextxy(165,115,'Seri9 komand 1');
outtextxy(355,115,'Seri9 komand 2');
outtextxy(80,70,'Tak');
outtextxy(360,70,'Ni');
readln;
end.

єто 100% правильно, но графика незапускаеться проверьте кто нить что не так
kirill91
 9  2009-06-23 04:00:50
єто 100% правильно
наивный =)
все криво и косо, в ромбе не хватает одной стороны, текст выводится черным на черном, да еще и не влезает в рамки.
ужас, в общем.
#2854dezYAgNer
 10  2009-06-23 06:51:55
Сколькож можно! Load"" - самая крутая команда!
тема закрыта by Я_не_нюб (2009-06-25 10:58:56)
К списку тем
2007-2025, онлайн игры HeroesWM