Главная страница
    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.48 MB
Время: 0.029 c
4-1114814453
Igor_
2005-04-30 02:40
2005.06.29
TServiceApplication и два TService


9-1111320863
Toxic
2005-03-20 15:14
2005.06.29
Анализ поверхности


3-1116125866
Lex_!
2005-05-15 06:57
2005.06.29
Поиск по БД


14-1117127529
palva
2005-05-26 21:12
2005.06.29
Про гнилой строй


3-1116312633
ANB
2005-05-17 10:50
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский