Добре время суток,камрады!!!

[Grundic]

У меня етсь огромнейшая просьба ко всем талантливым пользователям данного форума!
преамбула.
У меня завтра переэкзаменовка(3 )...
амбула.
Я вас сердешно прошу помочь мне завтра на экзамене!
Не оставляйте человека один на один с паскалем
Если Вам будет несложно я завтра дам тексты задачки где то в 10-11(мск).
Еще раз прошу помогите своему малдшему товарищу
И вот хоч упоказать немножечко из графики:

и еще ка крисовать пятиконечную звезду,рог изобилия?

[Grundic]

Эх,хотя бы завтра момогите....

[goblinyara]

и еще ка крисовать пятиконечную звезду,рог изобилия?

карандашом и руками а если честно - не знаю, не сталкивался с таким, алгоритм долго буду подбирать

[puporev]

Как рисовать звезду.

procedure Zvezda;
var x1,y1,a,i:integer;
    p:array[1..11] of Tpoint;//массив точек звезды, 5 вершин, 5 впадин, 1ая точка 2 раза
begin
x1:=random(600)+40;//координаты начала звезды, выбери сам
y1:=random(400)+40;
a:=-18; //начальный угол от оси х против часовой стрелки, можно +18
for i:=1 to 10 do
  begin
    if i mod 2=0 then
      begin
        p[i].x:=x1+round(40*cos(a*pi/180));//координаты вершин
        p[i].y:=y1-round(40*sin(a*pi/180));
      end
    else
      begin
        p[i].x:=x1+round(20*cos(a*pi/180));//координаты впадин
        p[i].y:=y1-round(20*sin(a*pi/180));
      end;
    a:=a+36;//увеличиваем угол (360/5/2=36)
  end;
p[11].x:=p[1].x;//последняя точка, она же первая
p[11].y:=p[1].y;
MoveTo(p[1].x,p[1].y);//становимся в первую точку
SetColor(random(14)+1);//выбираем цвет, здесь случайный
for i:=1 to 11 do
LineTo(p[i].x,p[i].y);//соединяем все точки линией
end;

[pomoshnic]

Вот нарисовал рис 11.4:

uses graph;
var f,i,j,m:integer;
begin
initgraph(m,m,'');
if graphresult<>0 then halt;
i:=1;
j:=1;
repeat
repeat
rectangle(i,j,i+25,j+25);
inc(i,40);
until i-100>=getmaxx;
if f=0 then f:=1 else f:=0;
inc(j,20);
if f=1 then i:=20 else i:=1;
until j-100>=getmaxy;
readln;
closegraph;
end.

Желаю удачи

[Grundic]

Вычислить сумму первых N чисел членов
cos(1)/sin(1)+(cos(1)+cos(2))/(sin(1)+sin(2))+...+(cos(1)+...+cos (n))/(sin(1)+...sin(n))
Очень срочно надо,на экзамене сижу,помогите пожайлуста!

[puporev]

uses crt;
var n,i,j:integer;{количество, счетчики циклов}
    sm,ch,zn,t:real;{сумма, знаменатель, числитель и значение члена ряда}
begin
clrscr;
write('n=');readln(n);
sm:=0;
for i:=1 to n do {идем по ряду}
  begin
   ch:=0;zn:=0;{инициируем числитель и знамкнатель}
   for j:=1 to i do{от 1 до очередного числа}
     begin
      ch:=ch+cos(i);{считаем числитель}
      zn:=zn+sin(i);{считаем знаменатель}
     end;
   t:=ch/zn;{значение члена ряда}
   sm:=sm+t;{сумма}
 end;
write('Summa=',sm:0:5);
readln
end.

[Grundic]

А где сама формула?Что то не понял я...

[puporev]

ch:=ch+cos(i);{считаем числитель}
zn:=zn+sin(i);{

Это тебе не формула что ли? В числителе складываем косинусы, в знаменателе синусы, потом числители делим на знаменатели и все складываем. Какая еще нахрен формула.

[Grundic]

Не ругайтесь Понял я понял...поробую объяснить