программирования циклических вычислительных процессов и массивы

[Artemuys]

В общем надо 2 программы написать)))Для програмистов на раз два))))Просто к завтра лабы надо здать а у меня пипец)))Напишите пожалуйста)
1 прога
Составить программу для вычесления значений ф-ии y=f(x) где аргумент х меняеться от х0 к х1 с шагом Δх
Сама ф-ия
[ссылка появится после проверки модератором]
2 прога
Для совокупности чисел X(0,01; -27.3; 0; 125.27; -371.45; 0; 12;-5; -172.3; 0.05; 17.1; 49.5; -0.01)
Цель-найти самое маленькое число по модулю и его номер

[Abstraction]

2)

printf("0, 6");

[Artemuys]

Спасибо большое но я только начал учиться програмировать(2 месяц) и хотел бы более подробный ответ, если можно(Начиная с begin)
Насчет первой программы я разобрался там такой код?

x:=x0;
repeat
writeln(x,' ',a+sqrt(sqrt(x))/sqrt(sin(b*x)));
x:=x+delta;
until x>x1;
end.

Только знать бы что запихнуть в var, там же вроде real?

а вот насчет масивов нет никаких мыслей вообще

[Abstraction]

хотел бы более подробный ответ, если можно(Начиная с begin)

0)Имело смысл сразу обозначить, что язык - Pascal (Delphi), т.к. ни по названию подфорума, ни по названию темы, ни по первому сообщению этого не видно.
1) В первой программе после достижения x1 можно выходить сразу (заменить строгое равенство на нестрогое).
2) Если ничего не путаю, в секции var следует перечислить все использованные в (под)программе переменные с типами. В данном случае имеем шесть переменных, все вещественные, пять из них надо не забыть инициализировать (присвоить значение на начало работы программы). За советами по конкретному синтаксису придётся подождать кого попривычнее к языку.
3) Это была в некотором роде шутка, про второе задание. Формулировка дурацкая: задачу решает вывод на экран строки "0, 6" (т.е. можно до написания программы найти требуемый элемент и его номер и просто их вывести).
Но если сделать вид, что массива мы не знаем, то следует завести переменную arr типа array [1..13] of Real ("массив из 13 целых чисел"), переменную-индекс i, переменные candidate ("кандидат на минимум") и candidateNum ("номер кандидата") и воспользоваться циклом for, перебирая значения i от 2 до 13. Предварительно значение arr[1] заносим в "кандидата", а 1 - в "номер кандидата".
В цикле же, если arr[i] по модулю меньше модуля "кандидата", заменить "кандидата" и "номер кандидата" на новые значения.

[Artemuys]

Спасибо огромное!Извиняюсь за то что не написал язык.Вопрос- примерно правильно?Вычесляет самое маленькое число по модулю но как там номер впихнуть?
var
v:integer;
min:integer;
n:integer;
begin
min:=low(integer);
for n:=1 to 13 do
begin
write('Введите ',n,' число: ');
readln(v);
if v<min then min:=v;
end;
writeln('Самым большим из этих чисел было число ',min);
end.