Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.
Внимание! Некоторое время письма не доходят до аккаунтов MAIL RU GROUP, не доходят на все почтовые ящики mail.ru, inbox.ru, bk.ru. Пишите им жалобы, чтобы быстрее восстановили получение писем, регистрируйтесь через яндекс почту и gmail, туда письма с активизацией доходят.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 23.05.2012, 16:08   #1
Cherry2196
Новичок
 
Регистрация: 23.05.2012
Сообщений: 3
Репутация: 10
По умолчанию Как построить блок схему к рисунку в паскале?

мне задали построить вид школы сверху.
нужно составить блок-схему к ней.

вот программа
Код:

Program pr1;
uses CRT,graph;
var
gd,gm:integer;
a,b,s: integer;
begin
clrscr;
gd:=0;
initgraph(gd, gm,'c:\tp7\bgi');
setbkcolor(6); {korichneviy fon}

{zdanie}
setcolor(7);{tsvet kontura linii}
line(140,220,275,220);
line(140,400,580,400);
line(140,400,140,220);
line(580,400,580,280);
line(465,280,580,280);
line(465,330,465,280);
line(465,330,275,330);
line(275,330,275,220);
setfillstyle(9,7); {1-bIo parametr eto tip zakrashivania, 2-oi eto tsvet zakrashivaniya}
floodfill(200,300,7);floodfill(200,300,7);{1,2 parametri eto koordinatbI tochki prinadlezhei figure}

setcolor(7);{begovaya dorozhka}
rectangle(90,35,530,205);
setfillstyle(1,7);
floodfill(92,40,7);

setcolor(2);{gazon polya}
rectangle(120,60,500,180);
setfillstyle(11,2);
floodfill(123,175,2);

{cxema futbolnogo polya}
setcolor(15);
line(310,60,310,180); {srednyaya liniya polya}
 {levaya}                               {pravaya}
line(120,80,187,80);                line(500,80,450,80);
line(120,160,187,160);              line(450,80,450,160);
line(187,80,187,160);               line(450,160,500,160);

line(120,100,150,100);              line(500,140,470,140);
line(120,140,150,140);              line(500,100,470,100);
line(150,100,150,140);              line(470,100,470,140);

line(108,130,108,110);              line(500,110,512,110);
line(108,110,120,110);              line(512,110,512,130);
line(108,130,120,130);              line(512,130,500,130);
setcolor(15);
ellipse(310,120,25,380,20,20);

setcolor(1);
line(55,70,60,70);
line(55,73,60,73);
line(55,76,60,76);
line(55,79,60,79);
line(55,82,60,82);
line(55,85,60,85);
line(55,88,60,88);
line(55,70,55,88);
line(60,70,60,88);

setcolor(3);
line(57,95,57,108);
line(57,117,57,128);

setcolor(7);
rectangle(30,290,140,310);
setfillstyle(1,7);
floodfill(52,300,7);

setcolor(1);
rectangle(30,10,630,470);
{kriltso}
setcolor(14);
rectangle(130,290,140,310);
setfillstyle(1,14);
floodfill(131,294,14);

setcolor(14);
rectangle(126,295,134,305);
setfillstyle(1,14);
floodfill(127,300,14);

setcolor(7);
rectangle(285,230,455,320);
setfillstyle(1,7);
floodfill(400,300,7);

setcolor(2);
rectangle(300,250,440,300);
setfillstyle(1,2);
floodfill(352,270,2);

setcolor(2);
circle(150,430,16);
setfillstyle(1,2);
floodfill(152,430,2);

setcolor(2);
circle(230,430,16);
setfillstyle(1,2);
floodfill(230,430,2);

setcolor(2);
circle(270,430,16);
setfillstyle(1,2);
floodfill(270,430,2);

setcolor(2);
circle(330,430,16);
setfillstyle(1,2);
floodfill(330,430,2);

setcolor(2);
circle(380,430,16);
setfillstyle(1,2);
floodfill(390,430,2);

setcolor(2);
circle(330,430,16);
setfillstyle(1,2);
floodfill(330,430,2);

setcolor(2);
circle(70,430,16);
setfillstyle(1,2);
floodfill(80,430,2);

setcolor(2);                   setcolor(2);
circle(70,380,16);             circle(580,80,16);
setfillstyle(1,2);              setfillstyle(1,2);
floodfill(80,380,2);            floodfill(580,80,2);

setcolor(2);                     setcolor(2);
circle(70,340,16);               circle(580,125,16);
setfillstyle(1,2);               setfillstyle(1,2);
floodfill(80,340,2);            floodfill(580,125,2);

setcolor(2);                  setcolor(2);
circle(70,268,16);             circle(580,170,16);
setfillstyle(1,2);              setfillstyle(1,2);
floodfill(80,268,2);            floodfill(580,170,2);

setcolor(2);                    setcolor(2);
circle(70,230,16);              circle(580,215,16);
setfillstyle(1,2);              setfillstyle(1,2);
floodfill(80,230,2);            floodfill(580,215,2);

setcolor(2);
outtextxy(570,450,'-derevo');
setcolor(2);
circle(552,450,16);
setfillstyle(1,2);
floodfill(563,451,2);
readkey;
closegraph;
end.





___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 23.05.2012 в 16:27.
Cherry2196 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
построить блок схему тт kresik Помощь студентам 0 08.06.2011 17:12
Как построить блок-схему к программе lelik_bolik Паскаль 3 14.05.2011 14:21
Построить блок-схему demon9992 Помощь студентам 2 05.04.2011 16:23
Построить блок - схему DeadAir Паскаль 1 03.04.2010 15:02


22:15.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru