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

[Foxtrot_1]

Сегодня решали задачу по компьютерной графике на Pascal:
1. Даны w,h,r,t - построить 5 угольник вписанный в окружность с w,h центр, r- радиусом.
2. Повернуть 5-ти угольник на угол t радиан.
3. М(р); x=rCos(p); y=rSin(p).
//---------------------------------------------------------------------------------
3 часа решали, никто не здал!!!!!

[OCTAGRAM]

Это в каком классе было, что никто не сдал?

[Foxtrot_1]

Да мы заочники все.
//---------------------------------------------------------------------
Кто сможет в субботу решить задачку типа как выше в режиме Online с 9.00 до 12.00???
Я отсылаю на мыло задание, ответ решение файлом .pas
Ася 389981668
Условие договорное

[Serge_Bliznykov]

вот решение Вашей задачи (только 1 и 2, 3ю часть не понял...):

uses Graph, CRT;

var
  Gd, Gm, ErrorCode : Integer;
var 
  w,h, x1,y1, r, i : integer;
  t, ugol : double;
  

begin  
  Gd := Detect;
  InitGraph(Gd, Gm, '');
  ErrorCode := GraphResult;
  if ErrorCode = grFileNotFound then
  begin
    WriteLn('Ошибка инициализации графики: ', GraphErrorMsg(ErrorCode));
    InitGraph(Gd, Gm, '');
    ErrorCode := GraphResult;
  end;
  if ErrorCode <> grOk then
  begin
    WriteLn('Ошибка инициализации графики: ', GraphErrorMsg(ErrorCode));
    ReadLn;
    Halt(1);
  end;
  
  {w,h координаты центра}
  w := 150; h := 150;
  r := 150; {радиус окружности}

  t := 10; {угол поворота - В ГРАДУСАХ!}

  Circle(w,h,r);
  ugol := 0;
  x1 := w+trunc(R*cos(ugol));
  y1 := h+trunc(R*sin(ugol));
  MoveTo(x1, y1);
  for i:=1 to 5 do
  begin
    ugol := ugol + (72 *pi/180);
    x1 := w+trunc(R*cos(ugol));
    y1 := h+trunc(R*sin(ugol));
    LineTo(x1,y1);
  end;

  {
  задача 2 - поворот пятиугольника на угол t
    повернутый пятиугольник рисуем красным цветом
  }
  SetColor(Red);
  ugol := t * pi / 180;
  x1 := w+trunc(R*cos(ugol));
  y1 := h+trunc(R*sin(ugol));
  MoveTo(x1, y1);
  for i:=1 to 5 do
  begin
    ugol := ugol + (72 *pi/180);
    x1 := w+trunc(R*cos(ugol));
    y1 := h+trunc(R*sin(ugol));
    LineTo(x1,y1);
  end;


  MoveTo(0,400);
  SetColor(Red);
  OutText('for Exit Press ENTER');

  Readln;
  CloseGraph;
end.

[Foxtrot_1]

Спасибо!!! Счас проверю в TP

[Doholyan]

Глупый вопросик! Зачем при подклучении модуля GRAPH всегда проверяют на результат ошибки:
if ErrorCode = grFileNotFound then
begin
WriteLn('Ошибка инициализации графики: ', GraphErrorMsg(ErrorCode));
InitGraph(Gd, Gm, '');
ErrorCode := GraphResult;
end;
if ErrorCode <> grOk then
begin
WriteLn('Ошибка инициализации графики: ', GraphErrorMsg(ErrorCode));
ReadLn;
Halt(1);
end;

не когда не пользовался....и не могу понять его сущности ЗАЧЕМ он?

[OCTAGRAM]

Потому что инициализация графики может быть неудачна. Надо же об этом сообщить как–то.

[Doholyan]

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

Потому что инициализация графики может быть неудачна. Надо же об этом сообщить как–то.

так если графический режим не запустился по каким то причинам....он же все равно высветит ошибка....(возможно только маргнет да долю сикунду)
или это просто...так сказть "хороший тон"

[OCTAGRAM]

И в этом сообщении сказано use InitGraph. Посмотрит чел и скажет: да вот он InitGraph, чё не так?

[Doholyan]

...значит не принципиально! ...