Помогите Как можно быстрее пож.

[Corleon4ik]

Я вообще не силён в паскале и ничего в нём не понимаю хоть уже месяца 2 за ним сижу((( можете помоч сделать 2 задания пож. я эт вообще не понял как... заранее большое большое спасиб
Вот задание :
1.
Составьте программу, которая: запрашивает значение переменной х и шага n; выводит значение функции в точках x, x+n, x–n.
Протокол работы программы:
x= 0.5
n= 1
f(0.5)= 4.500
f(1.5)= -3.833
f(-0.5)= -3.167

2
Составьте процедуру, выводящую представленную фигуру по заданным:
• координатам центра фигуры;
• размеру минимальной единицы фигуры;
• цвету линии.
Выведите на экран несколько таких фигур разного размера и цвета.
Форму фигуры задайте по образцу:


ЗАранее БОЛЬШОЕ СПАСИБ

[alex_fcsm]

Первая

var x,n:real;

function Fun(i:real):real;
var res:real;
begin
fun:=(1/i)+(3*i-sqr(i))/(1-i);
end;

begin
write('X=');
readln(x);
write('n=');
readln(n);
writeln('f(',x-n:5:3,')=',fun(x-n):7:4);
writeln('f(',x+n:5:3,')=',fun(x+n):7:4);
writeln('f(',x:5:3,')=',fun(x):7:4);
end.

[Corleon4ik]

Спасиб большое... помоги с остальными пож у меня завтро экзамен по паскалю

[Sazary]

Вторая:

uses crt,graph;
var
d,m : integer;

procedure ris(x0,y0,sz : integer; cl : word);

 begin

 SetColor(cl);
 circle(x0,y0-sz,sz);
 line(x0,y0,x0,y0+sz);
 line(x0,y0,x0-sz,y0+sz);
 line(x0,y0,x0+sz,y0+sz);
 line(x0,y0+sz,x0-sz,y0+3*sz);
 line(x0,y0+sz,x0+sz,y0+3*sz);
 end;

begin
clrscr;
d := detect;
initgraph(d,m,'');

ris(100,100,20,14);
ris(300,300,40,7);

readln;
closegraph;
end.

у меня завтро экзамен по паскалю

Если вы не можете сделать таких заданий, то как вы собираетесь его сдавать?

[Corleon4ik]

У меня сами задания на экзамен есть ... мне ещё 2 задания решить и я смогу сдать можешь написать в аську пож 378619336