Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.039 c
3-1116501692
Bogdan
2005-05-19 15:21
2005.06.29
Создания исталяции с BDE Paradox


4-1114259443
Леший
2005-04-23 16:30
2005.06.29
Прозрачная область на форме


11-1101251566
XProger
2004-11-24 02:12
2005.06.29
Прокрутка в Memo


1-1118313840
Lord Zmiy
2005-06-09 14:44
2005.06.29
Разделение печати и формы


14-1117834399
Profi
2005-06-04 01:33
2005.06.29
СтоИт ли?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский