Mногоугольник, вращающийся вокруг заданной точки

[Sashka]

помогите с задачей нужна срочно срочно на паскале(((
вот условие
Изобразить на экране правильный многоугольник, вращающийся вокруг заданной точки с постоянной угловой скоростью.

и помогите , правьте вот эту задачку
Дана строка символов. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелы внутри себя, будем называть словами. Подсчитать количество слов в строке.
а то она если одни пробелы ставиш - их за слова считает

[Карась]

1. Берём круг. Делим допустим на 6 частей. Соединяем точки.
Это многоугольник. Растояние от центра до точек это ни что иное как радиус. Оставлоь только перемещать эти точки синхронно по длине окружности..

2. Уже рассматривали раз десять..

[LOTER]

ПОМОГИТЕ ПОЖАЛУЙСТА УЖЕ ТРИ ДНЯ БЬЮСЬ НАД ПРОГОЙ И НЕ ЗНАЮ ЧТО ДЕЛАТЬ.ПО ВОЗМОЖНОСТИ УСТРАНИТЕ ОШИБКИ

var x1.x2,x3,x4,y1,y2,y3,y4:real;

  Function Rast(x1,y1,x2,y2,x3,y3:real):real;
  var a,b,d:real;
BEGIN
a:=sqrt(sqr(x3-x1)+sqr(y3-y1));
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
  Rast = sqr (a*a – sqr((a*a-b*b+d*d)(2*d));
End;
 begin
  readln(x,y1,x2,y2,x4,y4);

ниже идет то что мне непонятно: Я подозреваю что Функцию Rast
можно заменить переменной или переменными для того чтобы эта функция
просчитывалась не ТРИ РАЗА А ОДИН,при этом блок схема должна быть таже.НО как этого сделать незнаю.На всякий случай я еще и блок-схему приведу после программы.

if Rast (x1,y1,x2,y2,x4,y4)< Rast(x1,y1,x,y3,x4,y4) then 
if Rast (x1,y1,x2,y2,x4,y4) else 
writeln(Rast(x2,y2,x3,y3,x4,y4)) else if Rast(x1,y1,x3,y3,x4,y4)<Rast(x2,y2,x3,y3,x4,y4) then
writeln (Rast (x1,y1,x3,y3,x4,y4) else
writeln(Rast(x2,y2,x3,y3,x4,y4));End;
END.

[Sashka]

а есть сам файл на форуме чтоб скачать? а то я полный дуб(

[Карась]

Сообщение от Sashka

а есть сам файл на форуме чтоб скачать? а то я полный дуб(

Какой фаил? Вы выкладывайте сюда свой код. Если есть код, то народ обычно быстрее помагает...

Вторую задачу можно решить так:

var i, k : integer;
    S : String;

begin
k := 0;
Readln (S);
if S[1] <> ' ' Then k := k + 1;
For i := 1 To Length(S) Do
  Begin
    if i = Length(S) Then Break;
    if (S[i] = ' ') And (S[i + 1] <> ' ') Then k := k + 1;
  End;
Writeln (k);
Readln;
end.

[Sashka]

просто я немагу переписать его в саму прогу у меня ошибки гдето( не хочет работать(

[Sashka]

вот эт и все , программа из 16 строк состоит?

[Sashka]

Ребят ну помоч то сможете с этой прогой((( а то зачет горит, спасибо заранее.
Изобразить на экране правильный многоугольник, вращающийся вокруг заданной точки с постоянной угловой скоростью.

[Карась]

Сообщение от Sashka

вот эт и все , программа из 16 строк состоит?

да. А что такого удивительного?

Ребят ну помоч то сможете с этой прогой((( а то зачет горит, спасибо заранее.
Изобразить на экране правильный многоугольник, вращающийся вокруг заданной точки с постоянной угловой скоростью.

Немогу сделать ибо нет на компе Паскаля..

[Stilet]

Ребят ну помоч то сможете с этой прогой((( а то зачет горит, спасибо заранее.

Чет не пойму в чем затык - считай количество пробелов и все тут:

 var s:string;k,i:integer;
begin
Readln(s);
if s[1]=' ' then delete(s,1,1);
if s[length(s)]=' ' then delete(s,length(s),1);
k:=0;
for i :=1  to length(s)  do
begin
 if s[i]=' ' then inc(k);
end; inc(k);
writeln('В фразе'+ s+' ',k,' слов');
readln;