Форум: "Потрепаться";
Текущий архив: 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