Компьютерная графика в паскале

[Kravec]

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

[Sazary]

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

а вот при запуске прога выдает 207 ошибку .... не знаю что делать

Скорее всего где-то на ноль делите. Проверьте, где у вас такое может быть.
Или корень из отрицательного числа берете. Или под логарифмом недопустимый аргумент.

[Kravec]

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

Скорее всего где-то на ноль делите. Проверьте, где у вас такое может быть.
Или корень из отрицательного числа берете. Или под логарифмом недопустимый аргумент.

ну эт я так думал впервую очередь , ну при подсчете всё выходит правильно , деление на 0 или отрецательное число можно откануть сразу , ёмаё задачка не такая уж и сложная а сделать никак не могу , обидно

[Sazary]

Kravec, запустите программу в пошаговом режиме и узнаете, где вас выкидывает.

[Kravec]

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

Kravec, запустите программу в пошаговом режиме и узнаете, где вас выкидывает.

оу , спасибо это мысль ) мм... странно что я сразу не додумался )

проблема решилась , только у меня есть вопрос , а каким ещё можно способом решить эту задачу , а то преподаватель будет приминать задачу если у ней будет как минимум 2 - 3 решения )

[Sazary]

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

а каким ещё можно способом решить эту задачу

А какие могут быть способы нарисовать крутящийся треугольник, кроме как, собственно, нарисовать его? Мне вот что-то не приходит в голову.

Можно не закрашивать черным предыдущую линию, а очищать экран через cleardevice. Не знаю, что там еще можно сделать каким-то другим способом.

[Kravec]

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

А какие могут быть способы нарисовать крутящийся треугольник, кроме как, собственно, нарисовать его? Мне вот что-то не приходит в голову.

Можно не закрашивать черным предыдущую линию, а очищать экран через cleardevice. Не знаю, что там еще можно сделать каким-то другим способом.

ну насчёт cleardevice то я вот только что сдела как Вы сказали ) и выходит нормально) фух...

[OCTAGRAM]

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

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

Когда выкидывает ошибку, всегда сообщается её адрес.

Можно зайти в меню "Поиск", выбрать "Найти ошибку..." и вбить этот адрес. Если программа не изменялась, будет показана та самая строка, где возникает ошибка.

[Kravec]

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

Когда выкидывает ошибку, всегда сообщается её адрес.

Можно зайти в меню "Поиск", выбрать "Найти ошибку..." и вбить этот адрес. Если программа не изменялась, будет показана та самая строка, где возникает ошибка.

спасибо за помощь)

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

Program peretvorenna;
uses crt,GRAPH;
var
y,x,xo,yo,r,n,i,b,c,k,j:integer;
f,df:real;
a:array[1..100] of pointtype;

procedure Init;
Var driver, Regim, error:integer;
begin
Driver:=Detect;
InitGraph(driver, Regim,'');
Error:= GraphResult;
if Error<> groK
   then begin
        writeln('Owubka v procedure inizialiazii');
      Halt
  end;
end;

procedure tru(r:integer;f1:real);
begin
xo:=getmaxx div 2;
yo:=getmaxy div 2;
df:=2*pi/3;  f:=f1;
for i:=1 to 4 do
begin
x:=xo+round(r*cos(f));
y:=yo-round(r*sin(f));
a[i].x:=x;
a[i].y:=y;
f:=f+df;
end;
drawpoly(4,a);
end;

begin
clrscr;
write('c=');
readln(c);
init;
tru(c,pi/6);
tru(c,pi/2);
tru(c div 2,pi/3);
tru(c div 2,0);
readln;
closegraph;
end.

[Kravec]

Проверьте правильно ли сделана задача .
Условие: Условие:Получить фигуру с помощью преобразований масштабирования и поворота.

Текст программы :

Program peretvorenna;
uses crt,GRAPH;
var
y,x,xo,yo,r,n,i,b,c,k,j:integer;
f,df:real;
a:array[1..100] of pointtype;

procedure Init;
Var driver, Regim, error:integer;
begin
Driver:=Detect;
InitGraph(driver, Regim,'');
Error:= GraphResult;
if Error<> groK
   then begin
        writeln('Owubka v procedure inizialiazii');
      Halt
  end;
end;

procedure tru(r:integer;f1:real);
begin
xo:=getmaxx div 2;
yo:=getmaxy div 2;
df:=2*pi/3;  f:=f1;
for i:=1 to 4 do
begin
x:=xo+round(r*cos(f));
y:=yo-round(r*sin(f));
a[i].x:=x;
a[i].y:=y;
f:=f+df;
end;
drawpoly(4,a);
end;

begin
clrscr;
write('c=');
readln(c);
init;
tru(c*2,pi/3);
tru(c*2,0);
tru(c,pi/6);
tru(c,pi/2);
tru(c div 2,pi/3);
tru(c div 2,0);
readln;
closegraph;
end.

PS если что то в задачке не правильно сделано , исправте или подскажите что и где исправить )