помогите пожалуйста с 3 лабами
Завтра зачёт и ничего не успеваю.
1)Вычислить сумму ряда
Ln(x)=(x-1)/x+(x-1)/2x+(x-1)/3x+...+(x-1)/nx
с точностью до eps
x>1/2
2)Дано: var x,y: array[1..70] of real;
преобразовать массив x по следующему правилу(воспользовавшись массивом y как вспомогательным): Все отрицательные элементы массива x перенести в его начало,а все остальные - в конец, сохраняя исходное взаимное расположение как среди отрицательных, так и среди остальных элементов.
3)Написать процедуру,заменяющую все начальные строчные символы на прописные.
Это всё в Delphi в оконном,ЗАРАНИЕ БОЛЬШОЕ СПАСИБО)))
1)Вычислить сумму ряда
Ln(x)=(x-1)/x+(x-1)/2x+(x-1)/3x+...+(x-1)/nx
с точностью до eps
x>1/2
2)Дано: var x,y: array[1..70] of real;
преобразовать массив x по следующему правилу(воспользовавшись массивом y как вспомогательным): Все отрицательные элементы массива x перенести в его начало,а все остальные - в конец, сохраняя исходное взаимное расположение как среди отрицательных, так и среди остальных элементов.
3)Написать процедуру,заменяющую все начальные строчные символы на прописные.
Это всё в Delphi в оконном,ЗАРАНИЕ БОЛЬШОЕ СПАСИБО)))