Помогите пож решить 2 задачи на Visual Basic

Код Visual Basic
1
2
3
4
5
6
7
8
9
dim x as Double, h as Double, sumCos as Double
dim i as Integer
x=val(Inputbox("ВВЕДИТЕ x"))
h=val(Inputbox("ВВЕДИТЕ h"))
sumCos=0
for i=0 to 7
if abs(cos(x+2*i*h))>0.5 then sumCos=sumCos+cos(x+2*i*h)
next i
msgbox sumCos

????

школьница что ль

var
Form1: TForm1;
k1, k2, i,j,n,fl:integer; //целые числа
x,x1,x0,y1:real; // переменные типа вещественные (т. е. с точкой)
a: array [0..n] of real; //одномерный массив (объявишь как нужно, тоже не помню)

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
//считываешь x n и работаешь с ними дальше
fl:=1; // наш счетчик
k1:=2; //счетчик для рекурсии ч. ч.
k2:=3; //счетчик для рекурсии ч. от х
y1:=1; //переменная для численной части (ч. ч)
x1:=1; //переменная для части, завис. от х (ч. от х)
znak:=1; //знак слагаемого

while fl<n do //цикл рекурсии
begin
znak:=znak*(-1); //на первом ходу у слагаемого будет знак минус.
y1:=y1*(k1-1)/k1; //численная часть воторого слагаемого
x1:=(x^k2)/k2; //аналогично (проверь как пишется степень, я не помню уже)
x0:=x1*y1*znak; //перемножаем численную и иксовую, ставим знак
k1:=k1+2; //пополняем счетчики
k2:=k2+2;
a[fl]:=x0; //заполняем массив

//далее нужно будет записать в НУЛЕВОЙ элемент массива Х.
//Сложить все элементы массива
//далее работать уже с массивом, там не сложно, простая перестановка
end;

На что стоит обратить внимание.
1. это тема рекурсий. почитай об этом материалы, помощь больше не понадобится
2. степень задается в паскале не так, ищи сам как её сделать.
3. массив нумеруется с НУЛЯ, флажок с ЕДИНИЦЫ. т. е. счет у тебя в рекурсии будет со ВТОРОГО слагаемого.
4. задача простая, при дальнейшем программировании просто разбивай задание на более простые задачки типа "нужна запись в массив", "нужен подсчет переменных" и т. д. потом собирай их и будет счастье.
5. прога мной не компилилась, так что могут быть ошибки, но общая идея у тебя теперь есть
6. подобные вещи люди обычно делают за деньги, делай выводы))))

всем добра. удачного изучения Паскаля

джоропнсроюло