гуманитарий и delphi

[rgbee]

Решите пожалуйста в Delphi. Я гуманитарий, никогда в программировании не разбирался. Запустил. Очень жалею. Я чуть ли не плачу. Есть пара несущественных долгов, но самому написать программы - жалко время. Если поможете - век не забуду. Delphi начну усиленно курить с нового семестра.
3. Даны сведения о кубиках (размер ребра, цвет, материал). Напечатать информацию обо всех кубиках, имеющих заданный размер.
4. Дана функция f(a,b)=(sin(a)+cos(b))/(|a|+|b|). Вычислить (f(s,t)+f(2*s,t)+f(s,t-2). Оформить процедурой.
5. Координаты двух окружностей вводятся с клавиатуры. Если они пересекаются, на экран выводится область пересечения и закрашивается цветом. Запомнить образ и вывести его на экран.
Очень жалею, что запустил информатику. :cry: Надеюсь на вашу помощь.

[ex.cluz]

самому написать программы - жалко время

А наше время вам не жалко? Почему ваше время ценнее нашего?
Идите-ка вы в раздел "фриланс", там мы не жалея собственного времени и ваших денег сделаем все по высшему разряду.

[Ponkole]

вот на № 4 ответ:

Var S,t:real;
Function f(a,b:real):real;
begin
f:=(sin(a)+cos(b))/(abs(a)+abs(b));
end;
Procedure Answer(a,b:real);
begin
write((f(a,b)+f(2*a,b)+f(a,b-2)):0:0);
end;
Begin
read(s,t);
answer(s,t);
end.