Разработка программного обеспечения
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: реферат на тему мир, отчет по практике
| Добавил(а) на сайт: Колбенев.
Предыдущая страница реферата | 9 10 11 12 13 14 15 16 17 18 19 | Следующая страница реферата
ENDDO
RETURN
//*****************************************************************
FUNCTION INP(dl,pods,typ) //вспомогательная функция для ввода
данных с клавиатуры
oldcol:=col()
oldrow:=row()
er:=space(maxcol()-col())
IF typ'n'
FOR L=1 TO 2
ACCEPT pods TO tmp
IF LEN(tmp)dl
L=1
@ oldrow+1,oldcol SAY er
SETPOS(oldrow,oldcol)
ELSE
tmp=ALLTRIM(tmp)
L=2
ENDIF
NEXT
ELSEIF typ='n'
FOR L=1 TO 2
ACCEPT pods TO tmp
IF LEN(tmp)y[5]})
FOR L:=1 TO st0
compon[l,4]=compon[l,4]+dx
// compon[l,5]=0
// compon[l,8]=0
IF compon[L,2]='bot'
compon[L,5]=compon[L,5]-compon[L,3]-tlplat //для эл. нижней
стороны
ENDIF
NEXT
tkont2:=kontur[2]
tkont4:=kontur[4]
kontur[2]=-10
kontur[4]=kontur[2]
//*******СОЗДАНИЕ ФАЙЛОВ-ФРАГМЕНТОВ************
IF kolkomp>0
SETPOS(MAXROW()-1,0)
?'Идет создание файла элементов на нижней стороне:'
dlin:=ALLTRIM(STR(kontur[3]-kontur[1]))
Рекомендуем скачать другие рефераты по теме: шпори, рефераты по биологии.
Категории:
Предыдущая страница реферата | 9 10 11 12 13 14 15 16 17 18 19 | Следующая страница реферата
Главная