Задачи в BASIC

[DarkyBoy]

В общем, знакомая попросила, найти кого нибудь кто пишет на бейсике. так как сам я в программировании полный ноль, поэтому прошу помощи у вас)

1) Интерации (цикл. конструкции)
Численно убедиться, является ли заданная функция y=f(x) четной или нечетной на заданнном отрезке -a≤x≤a. Выполнить проверку для функций: y=x(4) (в четвертой), y=tg(x), y=e(x) (в степени x) на отрезке [-5;5] с шагом 0,1.

2) Операции с массивами.
В массиве Z(2n) каждый элемент с четным индексом поменять местами с предыдущим, то есть получить послед-ть чисел: z(2), z(1), z(4), z(3)..z(2n), z(2n-1).

3) Линейный поиск.
Дан массив целых чисел K(n), найти в нем минимальный Kmin, и максимальный Kmax элементы. Вывести в порядке возрастания все целые числа из интервала (Kmin; Kmax), не встречающихся в исходном массиве.

[С.М.С]

Задача №2

Public a(1 To 6000) As Single
Public m As Integer
Public n As Single
------------------------
For n = 1 To m
If n Mod 2 = 0 Then
xron1 = a(n)
xron2 = a(n - 1)
a(n) = xron2
a(n - 1) = xron1
End If
Next n
For i = 1 To m
MsgBox a(i)
Next i

Ниже пример в VBA

задача№3

Public a(1 To 6000) As Single
Public m As Integer
Public n As Single
Public Kmax As Single
Public Kmin As Single
-----------------------------
Kmax = a(1)
Kmin = a(1)

For n = 2 To m
If a(n) > Kmax Then
Kmax = a(n)
End If
If a(n) < Kmin Then
Kmin = a(n)
End If
Next n

For o = Kmin To Kmax
For p = 1 To m
If a(p) = o Then
sov = True
Else
If sov = True Then
sov = True
Else
sov = False
End If
End If
Next p
If sov = False Then
MsgBox o
End If
sov = False
Next o

пример задачи в VBA:

[DarkyBoy]

Спасибо!

[SHift2la]

Здраствуйте, помогите пожалуйста, нужно написать программу на бейсике.

Для заданной функции Y=f(x) на интервале x[a,b] найти значения локальных экстремумов методом поразрядного приближения.

Y=2,6cos(2,4x+0,1)+sin5x+0,7 x[-pi,pi]