Задания. 1. Сделать функцию пользователяJUUR(a,b), которая вычисляет корень степени В из А

 

1. Сделать функцию пользователя JUUR(a,b), которая вычисляет корень степени В из А. Использовать функции FUNCTION и END FUNCTION.

 

Основная программа может иметь вид:

 

INPUT "Введи число А"; A INPUT "Введи степень В"; B PRINT "Ответ:"; JUUR(A,B)

2. Создать функцию пользователя LOGARITM(A,B), которая вычисляла бы log_ab.

1. Создать функцию пользователя ALGARV(x), которая выясняет, что число простое. Значение функции равно –1 (верное), если х является простым числом и 0- (неверное), если х – составное число. Подсказка: Проверить, сколько раз х делится на числа из промежутка от 1 до х. Если два раза, то число простое, иначе –нет. Деление можно проверить с помощью условия A/B=INT(A/B).

Основная программа может иметь вид:

 

INPUT "Введи число:"; X IF ALGARV(X) THEN PRINT "Это простое число!" ELSE PRINT "Это не простое число!" END IF

2. Создать программу, которая печатала бы все простые числа от 1 до N. Использовать функцию пользователя ALGARV(x). Значение N задаёт пользователь.

3. Создать функцию пользователя RISTSUMMA(x) для вычисления суммы цифр числа.

4. Используя операторы SUB и END SUB, создать процедуру TELJESTIK, которая рисовала бы систему координат (единица деления равна 20 писклям). Создать другую процедуру SIRGE(a,b), которая рисовала бы внутри неё прямую y=ax+b. Основная программа могла бы иметь вид:

INPUT "Введи значение а"; a INPUT "Введи значение в"; b CALL TELJESTIK CALL SIRGE(a, b)

1. Создать процедуру PARABOOL(a,b,c). Основная программа может иметь вид:

 

INPUT "Введи значение а"; a INPUT "Введи значение в"; b INPUT "Введи значение с"; c CALL TELJESTIK CALL PARABOOL(a, b, с)

1. Создать программу нахождения наибольшего общего делителя, отличную от функции пользователя SYT, которая работала бы быстрее, например используя остаток от деления A MOD B. Для измерения скорости работы можно использовать следующую программу:

START=TIMER PRINT SYT(2,100000) PRINT "Потребовалось времени: ";TIMER-START;"секунды."