Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > 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


23:46.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

RusProfile.ru


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