блок схема

← →
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 :))

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

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

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