1.2.3. Пример:
; 
Программа:
1.2.3.1 1.2.3.2
10 x = 3 x = 3
20 Input “a b “ ; a , b input “a b “ ; a , b
30 c = a - b c = a - b
40 IF c > 0 THEN 70 SELECT CASE a
50 IF c < 0 THEN 80 CASE IS > b
60 z = 0 : GOTO 90 z = LOG(c) / LOG(10) *x
70 z = LOG(c) / LOG(10) *x: GOTO 90 CASE IS < b
80 z = c ^ x z = c ^ x
90 PRINT «z=”;z CASE ELSE
100 END z = 0
END SELECT
PRINT “z=”;z
END
Результаты:
1.2.4. Задание к лабораторной работе.
1.
;
; 
.
2.
;
; 
; 
.
3. 
; 
; 
.
4. 
; 
; 
.
5. 
; 
;
.
6. 
; 
; 
.
7. 
;
; 
;
.
8. 
;
;
;
.
9. 
;
;
.
10. 
;
;
.
11. 
;
;
;
.
12. 
;
;
;
.
Лабораторная работа № 1.3 (C:\USER\GROUP\NOF\lab3.bas)
Определённые циклы
1.3.1. Цель работы. Освоить программирование алгоритмов с определённым числом повторений группы операторов.
1.3.2. Справочный материал. Определённый цикл в BASIC ’е реализован оператором FOR . . . NEXT и шагом цикла STEP (по умолчанию шаг равен 1). С целью экономии памяти и увеличения быстродействия ПЭВМ, используемые вели-чины в зависимости от их типа описываются символами:
- ! или по умолчанию – числа с плавающей запятой;
- % - целые числа;
- $ - текстовые величины.
1.3.2.1. Задание. Вычислить сумму целых чётных чисел от 56 до 110 :
m% = 0
FOR k%= 56 TO 110 STEP 2
m% = m% + k%
NEXT k%
PRINT “ сумма = “ ; m%
END
1.3.2.2. Вычислить квадраты чисел между 10 и 15 с шагом 0.5 :
FOR x = 10. TO 15. STEP .5
PRINT “ квадрат “ , x , “ = “ , x * x
NEXT x
END
1.3.3. Пример. Найти множество значений функции у(х) и занести их в таблицу
на области определения
при
.
Программа:
10 a=1.65 : b = .81 : c = .75 : d = a * b: N=0
20 PRINT “!---------------------!-------------------------!---------------------------!»
30 PRINT “! N ! X ! Y !»
40 PRINT “!---------------------!-------------------------!---------------------------!»
50 FOR x = 1 TO 3 STEP .1
60 s = sin( x*c): N=N+1
70 y = (x + b) * x * a * s + d
80 PRINT «!»; N, «!»; x, “!”;y,”!”
90 NEXT x
END
Результаты:
|
N |
X |
Y |
|
1 |
1.0 |
3.37 |
|
2 |
1.5 |
6.49 |
|
3 |
2.0 |
10.59 |
|
4 |
2.5 |
14.36 |
|
5 |
3/0 |
16.01 |