2. Вывод таблиц результатов

CLS

READ TN,TK,HT,A

DATA 0,20,2,3.2

Z$=" Равноускоренное движение точки "

L$="———————--———————————————————"

H$="| № п/п | t, сек | S, м | V, м/с |"

F$="| ## | ## | ###.# | ##.# |"

PRINT Z$

PRINT L$

PRINT H$

PRINT L$

N=1

FOR T=TN TO TK STEP HT

S=A*T^2/2

V=A*T

PRINT USING F$;N,T,S,V

N=N+1

NEXT T

PRINT L$

END

3. Построение точечного графика с масштабом

' Масштаб

XMIN=1E+37 : YMIN=1E+37 : XMAX=-1E+37 : YMAX=-1E+37

FOR I=1 TO N

IF X(I)<XMIN THEN XMIN=X(I)

IF Y(I)< YMIN THEN YMIN=Y(I)

IF X(I)>XMAX THEN XMAX=X(I)

IF Y(I)>YMAX THEN YMAX = Y(I)

NEXT I

MX=600/(XMAX-XMIN)

MY=190/(YMAX-YMIN)

LOCATE 23,18

COLOR 15 : PRINT "Для продолжения нажмите любую клавишу"

SLEEP 100

' График точек

SCREEN 8: CLS ‘ Перейти в графический режим с разреш. способн. (640х200)

FOR I=1 TO N

PSET (MX*(X(I)-XMIN) , MY*(Y(I)-YMIN)),11 'точка ( столбец, строка), цвет

CIRCLE (MX*(X(I)-XMIN) , MY*(Y(I)-YMIN)),3,11 ‘ Окружности вокруг точек

NEXT I

LOCATE 23,18

PRINT "Для продолжения нажмите любую клавишу"

SLEEP 100

SCREEN 0 ' вернуться в текстовый режим

COLOR 7,0 : CLS

END

4. Формирование файла данных

' Формирование файла данных на дискете

OPEN "a:dan" FOR OUTPUT AS #1 ' открыть файл для записи

INPUT "Размер массива K=";K ' размер массивов

WRITE #1, K ' записать на дискету

DIM X(K),Y(K),P$(K)

FOR I=1 TO K

INPUT "X(I),Y(I),P$(I) " ; X(I),Y(I),P$(I) ‘ ввод элементов строки

WRITE #1,X(I),Y(I),P$(I) ‘ запись строки на дискету

NEXT I

INPUT L,F,D,R,A$ ‘ ввод простых переменных

WRITE #1,L, F,D,R,A$ ' запись простых переменных на дискету

CLOSE #1 ' закрыть файл

END

5. Чтение файла данных с дискеты и загрузка его в оп

' Чтение файла данных с дискеты и загрузка его в ОП

OPEN "a:dan" FOR INPUT AS #1 ‘ Открыть файл для ввода

INPUT #1, K ‘ Ввести с дискеты количество строк

PRINT "K=" ; K

DIM X(K),Y(K),P$(K)

FOR I =1 TO K

INPUT #1,X(I), Y(I), P$(I) ‘ Загрузить очередную строку

PRINT X(I), Y(I), P$(I)

NEXT I

INPUT #1 ,L,F,D,R,A$ ‘ Загрузить простые переменные

PRINT L,F,D,R,A$

CLOSE #1

END

Библиографический список

1. Панфилов И. И. и др. Вычислительная техника и программирование: Методические указания. - Л.: ЛТА, 1989. - 44 с.

2. Панфилов И. И. и др. Применение ЭВМ в отрасли: Методические указания. - Л.: ЛТА, 1989. - 34 с.

3. Завьялов А. С. и др. Вычислительная техника и программирование: Методические указания по курсовому проектированию. - Вологда: ВПИ, 1991. - 45 с.

4. Мельникова О. И. и др. Программирование на языке Qbasic. - М: Издательство ЭКОМ, 1997. -303 с.

5. Демидович Б. П., Марон И. А. Основы вычислительной математики. - М.: Физматгиз, 1960. 659 с.

6. Виноградов Г. К. Технология лесозаготовок. - М.: Издательство «Лесная промышленность», 1986. - 255 с.