Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.06.29;
Скачать: CL | DM;

Вниз

блок схема   Найти похожие ветки 

 
Drow   (2005-05-31 18:23) [0]

Доброго дня,где можно найти описание построение блок схемы?
или могу скинуть исходники если кто-то хочет помочь=)


 
Antonn ©   (2005-05-31 18:24) [1]

блок-схемы чего?


 
Jeer ©   (2005-05-31 18:28) [2]

Говорим, да.


 
raidan ©   (2005-05-31 18:30) [3]

"Автошема" и ДимаО пророк ее :)


 
Antonn ©   (2005-05-31 18:35) [4]

raidan ©   (31.05.05 18:30) [3]
тс-с-с...


 
Drow   (2005-05-31 18:51) [5]

Program Pixel_go_to_line;

Uses Crt, Graph;

Var j,i,x,y,x1,y1,x2,y2,iKey: Integer;
   iHDom,iDDom,iHWind,iDWind:Integer;
   iHKir,iDKir:Integer;
   iHKrish:Integer;
   iRadius:Integer;
   bFlag:boolean;
   color:word;
   st:string;
   pik: integer;
label 1,uio;

const
   UpKey    = 72;
   DownKey  = 80;
   RightKey = 77;
   LeftKey  = 75;
   EscKey   = 27;
   EnterKey = 13;
   SpaceKey = 32;

Procedure GrInt;
var GraphDriver : Integer;
    GraphMode: Integer;
    ErrorCode: Integer;
begin
   GraphDriver:= Detect;
   InitGraph(GraphDriver,GraphMode,"");
   ErrorCode:= GraphResult;
    If  ErrorCode <>grOk then
     begin
      Writeln("Ошибка графики",GraphErrorMsg(ErrorCode));
      Writeln("Программа остановлена");
      Halt(1)
    end
end;

BEGIN

 ClrScr;
 x:=1;
 y:=1;
 x2:=1;
 y2:=1;
 bFlag:=False;

Write("Введите высоту дома: ");
ReadLn(iHDom);
Write("Введите ширину дома: ");
ReadLn(iDDom);

uio:
Write("Введите высоту крыши: ");
ReadLn(iHKrish);
if iHKrish<30 then
goto uio;

Write("Введите высоту окна: ");
ReadLn(iHWind);
Write("Введите ширину окна: ");
ReadLn(iDWind);

Repeat
Write("Материал для дома: кирпич(k) дерево(d): ");
ReadLn(St);
Until (St="d") or (St="k");

if st="d" then
begin
 Write("Введите радиус бревна: ");
 ReadLn(iRadius);
 bFlag:=true;
end
Else
begin
 Write("Введите высоту кирпича: ");
 ReadLn(iHKir);
 Write("Введите ширину кирпича: ");
 ReadLn(iDKir);
end;

 GRINT;
Repeat
ClearDevice;
 color:=2;
 SetColor(Color);

{*************** построение крыши ***********************}
 Line(320,230-iHDom-iHKrish,320-iDDom,230-iHDom);
 Line(320,230-iHDom-iHKrish,320+iDDom,230-iHDom);
{********************************************************}

{*********** стены дома *********************************}
 Line(320+iDDom,230-iHDom,320+iDDom,230+iHDom);
 Line(320+iDDom,230+iHDom,320-iDDom,230+iHDom);
 Line(320-iDDom,230-iHDom,320+iDDom,230-iHDom);
 Line(320-iDDom,230-iHDom,320-iDDom,230+iHDom);
{********************************************************}

 If bFlag then
  Begin
    For i:=1 to trunc(iHDom/iRadius) do
     begin
{********* рисуем бревна ********************************}
      Circle(320+iDDom-iRadius,230-iHDom+(iRadius*2*i),iRadius);
      Circle(320-iDDom+iRadius,230-iHDom+(iRadius*2*i),iRadius);
      Line(320-iDDom,230-iHDom+(iRadius*2*i)-iRadius,320+iDDom,230-iHDom+(iRadius*2*i)-iRadius);
{********************************************************}
     end;
   end
  Else
   Begin
{************** рисуем кирпичи **************************}
    For i:=1 to trunc(iHDom/iHKir) do
     begin
      Line(320-iDDom,230-iHDom+(iHKir*2*i)-iHKir,320+iDDom,230-iHDom+(iHKir*2*i)-iHKir);
      for j:=1 to (2*trunc(iDDom/iDKir)) do
      Line(320-iDDom+(iDKir*j),230+iHDom,320-iDDom+(iDKir*j),230-iHDom);
     end;
{********************************************************}
  End;
 color:=0;
 SetColor(Color);

 For i:=1 to iRadius do
  Line(320+iDDom,230+iHDom+i,320-iDDom,230+iHDom+i);
{************** окно ************************************}
 bar(320+iDWind,230+iHWind,320-iDWind,230-iHWind);
{********************************************************}
  iKey:=ord(ReadKey);
  Until iKey=27;
 CloseGraph;
end.

вот к этой проге надо сотавить блок схему....=)


 
Kerk ©   (2005-05-31 18:55) [6]

Автошема спасет отца русской демократии :)))
ищи гуглом по AutoShema :))


 
vidiv ©   (2005-05-31 19:16) [7]

А я думал будет AutoShema 2 :)


 
raidan ©   (2005-05-31 19:21) [8]

>vidiv ©   (31.05.05 19:16) [7]
"Запустил, полюбовался на AV" (c) :)
Не приведи господь :)


 
paul_k ©   (2005-05-31 19:27) [9]

Сначала блок-схема потом программа
Если лекции задвигал то
  Ищем через Яндекс ЕСПД (единая система программной документации)
  Изучаем какие блоки что обозначают,
Иначе - берем ту же информацию в конспекте или рекомендованном учебнике
Выбираем инструмент (линейка-шаблон+бумага+карандаш или Visio или ... )
записываем каждый элемент программы соотвествующим блоком, блоки на листе размещаем и соединяем согласно требованиям ГОСТА(ЕСПД)



Страницы: 1 вся ветка

Текущий архив: 2005.06.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.038 c
11-1101629746
MTsv DN
2004-11-28 11:15
2005.06.29
И снова про DLL :o)


14-1117445185
keal
2005-05-30 13:26
2005.06.29
сайт delphigfx.mastak.ru умер?


11-1100528489
Владимир Кладов
2004-11-15 17:21
2005.06.29
Версия 2.00 готова


14-1117403483
Piter
2005-05-30 01:51
2005.06.29
Простенький HTTP-прокси


3-1115878600
leonidus
2005-05-12 10:16
2005.06.29
Глюк базы dBase если поле пустое





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский