Проблема с практикой.

[Alex aka Dura]

Ну в общем поступила на программиста и все вроде отлично,только вот практика началась.Ну и меня на две недели с практики освобождали по делам колледжа.А когда вернулась сказали дорогая моя делай задачи.А так как делфи мы начали учить только на практике я о нем вообще ничего не знаю.Вот теперь сижу мучаюсь что делать.Помогите решить три мааааааааленькие,крохотные задачки))


1.Создать программу которая бы решала уравнение y:=3*x-14+exp(x)-1/exp(x),при a=1,b=3 и шаге равном0,2

2.1.Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,10]. Найти сумму элементов, значения которых кратны 3 и 5. Найти количество тех элементов, значения которых положительны и по модулю не превосходят заданное число А. Найти номер первой пары соседних элементов, сумма которых меньше заданного числа.

3.Дан двумерный массив размером n*m, заполненный случайными натуральными числами в диапазоне от 1 до 100. Определить, сколько чисел в массиве равны произведению своих индексов i*j.


Буду очень сильно благодарна...

[IT-man]

Стучи в аську! Сделаю! Дешево!

[Stilet]

Программа должна быть консольной или оконной?

[Alex aka Dura]

консольной.

[Google2010]

1)

a:=1;
b:=3;
while a<=b do begin
y:=3*a-14+exp(a)-1/exp(a);
Writeln(a:6:2,'':6,y:6:2);
a:=a+0.2;
end;

2

s:=0;c:=0;
for i:=1 to n do begin
a[i]:=random(20)-10;
if (a[i] mod 3 =0) or (a[i] mod 5=0) then s:=s+a[i];
if (a[i]>0) and (a[i]<=X) then c:=c+1;{или if (a[i]>0) and (a[i]<=abs(X)) then c:=c+1;  }
end;
writeln(s);
Writeln(c);
for i:=1 to n-1 do
if ((a[i]+a[i+1])<Y) then begin break; writeln(i) end;

3

for i:=1 to n do
for j:=1 to m do begin
a[i,j]:=random(100)+1;
if a[i,j]=i*j then writeln('a[',i,',',j,']=,a[i,j]);
end;

[Namolem]

Google2010, первое неправильно (не протабулировать, а решить уравнение)
второе не совсем правильно (не больше заданного числа по модулю)

[Google2010]

Namolem
1)а где вы в уравнении параметры а и b увидели?
она и решает относительно у, а x изменяется от a до b)))
2) а модуль положительного числа не положительное ли число?

[Namolem]

Google2010
1. не совсем понятно задание. Либо найти значение функции y=f(x), тогда вы решили правильно. Либо решить уравнение f(x) = 0 на отрезке от a до b с шагом 0.2
2. про модуль я наврал, но (a[i]>X) это решает задание с точностью до наоборот.

[Alex aka Dura]

Namolem функции,это я напутала))))

[Alex aka Dura]

Google2010 мне кажется или таки это код на Паскаль?
Если я ошибаюсь это вставлять в процедуру Button1Click ?