Разработка программного обеспечения
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: реферат на тему мир, отчет по практике
| Добавил(а) на сайт: Колбенев.
Предыдущая страница реферата | 9 10 11 12 13 14 15 16 17 18 19 | Следующая страница реферата
возвращает массив из 3 чисел /ширина/длина/высота/
WHILE naiden=0
LOCATE FOR name=st0+SPACE(10-LEN(st0))
IF FOUND()=.T.
gabar[1]:=SHIR*koef
gabar[2]:=DLIN*koef
IF compon[nn,3]=0
compon[nn,3]=Vis*koef
IF Vis=0
compon[nn,3]=90*koef
ENDIF
ENDIF
EXIT
ELSE
gabar[1]=0
gabar[2]=0
gabar[3]=0
hcomp:=0
dat:=POISK(st0) //поиск данных о новом элементе и занесение его
// в базу
IF VALTYPE(dat)'C'
APPEND BLANK
REPLACE NAME WITH st0
REPLACE SHIR WITH gabar[1]/koef
REPLACE DLIN WITH gabar[2]/koef
REPLACE VIS WITH hcomp/koef
REPLACE X WITH dat[1]/koef
REPLACE Y WITH dat[2]/koef
gabar[1]:=SHIR*koef
gabar[2]:=DLIN*koef
IF compon[nn,3]=0
compon[nn,3]=Vis*koef
ENDIF
ELSE
EXIT
ENDIF
ENDIF
ENDDO
ROT(X*koef,Y*koef,gabar[1],gabar[2],nn)
RETURN gabar
Рекомендуем скачать другие рефераты по теме: шпори, рефераты по биологии.
Категории:
Предыдущая страница реферата | 9 10 11 12 13 14 15 16 17 18 19 | Следующая страница реферата
Главная