Программа «Диалог»

CLS Enter

INPUT “Как вас зовут”; A$

PRINТ “Здравствуйте,”; A$

INPUT “Сколько вам лет”; В(число)

PRINT “Мне нравиться работать с”; В; “-летними“

Как вас зовут? Александр Сергеевич Enter

Здравствуйте, А.С

Сколько вам лет? 21 Enter

Мне нравится работать с 21 – летними.

Домашнее задание:

INPUT “Как вас зовут”; A$ Enter

PRINТ “Привет”; A$ Enter

INPUT А$;”, сколько тебе лет”;B Enter

PRINТ “Здорово, мне тоже,”; В Enter

INPUT “А где ты учишься”; С$ Enter

PRINТ “Я тоже”; С$ Enter

INPUT “Тебе нравиться учиться”; D$ Enter

PRINТ “Мне не очень”; Enter

INPUT А$;“, а в какой группе ты учишься”; E$ Enter

PRINТ “А я в Б-214”Enter

INPUT “Ты куда-то спешишь”; D$ Enter

PRINТ “Ну ладно, тогда пока” Enter

С экраном можно работать в нескольких режимах.

Пример: в текстовом режиме можно использовать 25 строк, а можно 43. В графическом режиме можно устанавливать разрешение 640*480 точек, а можно и 800*600 и т.д.

Для установки нужного разрешения экрана применяется оператор SCREEN, имеющий от 1 до 4 параметров. Первый из них – это устанавливаемый режим экрана.

Конкретные размеры экрана задаются с помощью оператора WIDTH.

Установка числа строк столбцов.

Если выбранный режим экрана запускает различные значения чисел, строк и столбцов в текстовом режиме, то установить нужные значения поможет оператор WIDTH.

Он имеет 2-е параметры: число колонок (40 или 80) и число столбцов (25, 30, 43, 50 или 60).

Оператор управления курсором

Форматы рабочего экрана (черный):

- 80*25 столбцов и строк – в текстовом режиме

- 40*25

- 640*480

800*600 в графическом режиме.

Оператор WIDTH – устанавливает формат экрана (конкретные размеры экрана).

WIDTH 40 Enter

Оператор LOCATE – устанавливает курсор в любую позицию экрана

Формат:

L OCATE х,у Еnter (строка, столбец)

^у

^экран

^х

Задача №1. В центре экрана вывести фразу «Мне нравится компьютер»

Программа:

CLS

LOCATE 13, 29 Enter

PRINT “Мне нравится компьютер”

Функция TAB – перемещает курсор вдоль тукущей строки и ставит его в n – ую позицию.

PRINT TAB(29);”*”;TAB(41);”*”;TAB(51);”*” Enter

F5

Задача №2

В центре экрана нарисовать треугольник АВС.

Программа:

CLS Ent

WIDTH 80

LOCATE 10,40

PRINT “^”

PRINT TAB(39); “/ \

PRINT TAB(38); “/”;TAB(43);”\”

PRINT TAB(37);”/”;TAB(44);”\”

PRINT TAB(36);”/”;TAB(45);”\”

PRINT TAB(36);”_ _ _ _ _ _ _ _ _ _”

LOCATE 9,41: PRINT “B”

LOCATE 16,35

PRINT “A”;TAB(46);”C”

LOCATE 1,1

Написать программу вывода на экран своих инициалов.

Пример:

10 11 12 13 14 15 16 17 18 19 20

11 * * * @ @ @ @ & & 3 3 3 3

12 * * @ & & 3 3

13 * * @ @ @ @ & & 3 3

14 * * @ & & & & 3 3 3 3

15 * * @ & & 3 3

16 * * @ @ @ @ & & 3 3

CLS

LOCATE 11, 12

PRINT ”*** @@@@ & & 3333”

PRINT TAB(12)

Оператор управления.

1. оператор GOTO – идти.

Назначение – оператор безусловного перехода.

Формат.

GOTO <метка>Enter

В роли <метки> удобно писать латинскую букву или букву с цифрой.

. . . . . . . .

. . . . . . . .

GOTO m1

. . . . . . .

. . . . . . .

m1 : GOTO m2 . . . . . . . . . . . . . . m2 : GOTO m1

зацикленная программа

2. Оператор IF – THEN – оператор перехода по условию.

Формат:

IF <условие> THEN <операторы>Enter, где <условие> – проверка ячейки памяти на содержание.

IF<условие>THEN<HC1>

Выполняется оператор следующим образом:

- если <условие> справедливо, то выполняется часть оператора после слова THEN, т.е. происходит переход на оператор с меткой строки <HC1>.

- если условие не справедливо, то сразу выполняется оператор с последующим номером строки.

Задание №1

Рссчитать функцию:

если х

если х>5,3

CLS Enter

INPUT “введите значение х,” х

IF х < = +2 THEN y=x^(1/3): GOTO m1

IF x > 5.3 THEN y=x+30 : GOTO m1

PRINT “ x не из области определения”:GOTO m2 или : END

m1 : PRINT “Ответ: у=”; у Enter

m2 : END

F5

Задайте значение х= -8

Ответ: у= -2

Задание №2

Сравнить два числа:

CLS Enter

REM “Сравнение чисел’

INPUT “Задайте два числа,” А,В

IF A>B THEN PRINT “1-ое число>2-го” : END

IF A>B THEN PRINT “1-ое число<2-го” : END

PRINT “числа равны”

F5

Задание №3 REM «Помощник кассира»

CLS

INPUT”Что покупаете”;A$

IF A$=”Хлеб”THEN GOTO m1

PRINT”расчет в другой кассе”:GOTO m2

m1: INPUT “Цена единицы товара”;B

INPUT”Количество товара”;C

S=C*B

INPUT”Сколько предлагаете денег”;D

IFD>=S THEN PRINT “Ваша сдача”;

D-S; “руб”:GOTO m3

PRINT “Ваших денег не достаточно”: GOTO 4

m3: PRINT “Спасибо за покупку”

m2: PRINT “До свидания”

m4: PRINT “Приходите еще” Enter

Домашнее задание:

на «3»:

AND OR

«и» «или»

3≤ m <5

M < 5 AND m > = 3

на «4» «Решение квадратного уравнения» ax+bx+c=0 да D=b^2 – 4ac нет да нет н х=- ет да х1= х2=

REM INPUT “введи b и c” m1: INPUT “введите a” ;a IF a=0 THEM GOTO m1 ELSE D=b^2 – 4*4*A*c IF D<0 THEN PRINT “нет решений” ELSE GOTO m2 GOTO m3 m2: IF D=0 THEN LET x=-b\(2*a) ELSE GOTO m4 PRINT “x=”; x GOTO m3 m4: LET x1= LET x2= PRINT “Корни уравнения: x1=”x1;”, x2=”;x2 m3 END

на «5»

Составить программу – диалог 2 – х человек с компьютером.

<условие>

- задать min каждому пользователю по 3 вопроса с двумя вариантами ответов.

- любому 3-ему пользователю ответить фразой «мы с вами не знакомы».

Оператор цикла.

Циклической называется программа, часть которой повторяется многократно, чаще при измененных значениях параметров.

1. FOR – NEXT – обрабатывает циклы.

FOR <переменная>=№1 TO №2 STEP №3

3

- тело цикла

NEXT Enter:

<переменная> - имя переменной, называется параметром цикла, где №1, №2, №3 – это начальные, конечные значения аргумента и шаг его изменения.

Задача №1

Р ассчитать ф-ию у=х² при х [2,3]

X=0,1

N-количество циклов

N=[(b-a)/н] +1

CLS Enter

FOR x=2 TO 3 STEP Ø.1

y=x^2

PRINT x,y

NEXT Enter

F5

Задача №2

Протабулировать ф-ию:

y=Cos x² + e^|x| при х [-1;3]

и n=0,1

PRINT TAB(…);”Табуляция функции”

FOR x= -1 ТО 3 STEP 0.1

y=Cos(x^2)+EXP(ABS(x))

PRINT TAB(10);”x”;x;TAB(25);”y=”;y

NEXT X

END

Задача №3

В центре экрана вывести картинку для любого количества вагонов.

1 стр ВАГОН+

2 стр ВАГОН+

……………….

В АГОН

состав из № ВАГОНОВ – 1 и 2 стр.

Первый вагон – не может быть

25-1=24

24-2=22 вагона

CLS

WIDTH 8Ø

m2 : INPUT “количество вагонов”; №

13