Input X

3 4 5 6 7 8 9

да IF X=0 THEN Y=SIN(X)/X ELSE Y=1

PRINT "Y=".Y,"X=".X

END

или вариант 2:

CLS

INPUT X

IF X=0 THEN Y= SIN(X)/X: GOTO М1

Y=1

Рисунок 1 Cхема алгоритма M1: PRINT "Y=";Y,"X=”;X

END

Работа программы (построчно), вариант 1:

Очистка экрана.

Оператором INPUT X вводится значение аргумента Х.

Проверяется условие – если(IF) Х = 0, то(THEN) У вычисляется по формуле Y=SIN(X)/X, иначе (ELZE) У = 1.

Выводятся на экран значения У и Х.

Конец программы.

Вариант 2:

Очистка экрана.

Ввод Х.

Проверка условия – если Х=0, тогда У вычисляется по формуле Y=SIN(X)/X и оператором безусловного перехода GOTO управление передаётся метке М1, т.е. печати У и Х. Если этого перехода не сделать, то следующим оператором параметр Y переопределится, т.е.ему присвоится другое значение (Y =1), а вычисленное значение Y потеряется.

Если условие не выполняется, то программа переходит к следующему оператору У=1, к печати Y и Х и программа заканчивается (Конец)..

Пример 2

Составить программу и вывести на печать значение функции у.

y = max {a,min{b,c}}

Словесный алгоритм:

По условию задачи надо найти сначала наименьшую из переменных b и с, а потом сравнить её на максимум с величиной а и результат присвоить переменной у.

Программа:

CLS

INPUT"ВВЕСТИ a,b,c";a,b,c

IF b<c THEN u=b ELSE u=c

IF a>u THEN y=a ELSE y=u

PRINT"y="; у

END

Работа программы (построчно):

Очистка экрана.

Ввод значений a,b,c, через запятую.

Если b<c, то новой переменной u присваивается значение b, если нет, то значение с. Таким образом, вместо b и с теперь появилась величина u, причём равная наименьшему из b и с. Затем эта u сравнивается с переменной а на максимум, т.е. находится наибольшее значение между переменными a и u. Оно присваивается переменной у, которое и выводится на печать.

Пример 3

Составить программу и вывести на печать значение функции у.

y = max {a,b,c}

Программа:

CLS

INPUT"введите a,b,c"; a,b,c

IF a > b AND a > c THEN y = a

IF b > a AND b > c THEN y = b

IF c > a AND c > b THEN y = c

PRINT"y="; у

END

Описание программы: