Форум программистов [Powered by Invision Power Board]

Код

program luchi;
uses crt,GraphABC;
var
z,x:real;
 a, y,n :integer;
begin
setwindowsize(600,600);   {Устанавливаем размеры экрана 640/640 точек}
write('Введите углы в диапазоне (1-89) градус: ');{Выводим нужную надпись}
 read(a);{Вводим угл}
 SetPenColor(clLtGray); {Серый горизон рисуем}
 line(0,300,700,300);{Рисуем горизонт}
 SetPenColor(clGreen);{Меняем цвет на зелёный}
 floodfill(300,580,clLtGray);{Закрашиваем нижнюю область в серый цвет}
 line(300,0,300,640); {рисуем один перпендикуляр}
 y:=Trunc(300-300* sin(a*Pi/180) / cos(a*Pi/180)); {Считаем высоту через тангенс угла находим высоту,
 отняв от 300-та,мы узнаём точку откуда рисоват}
 x := sin(pi/180*a)/1.33; {синус угла падения}
z :=  Arctan(x/Sqrt(1-sqr(x)));{Сам угол находим}
  n:=Trunc(300* cos(z) / x); {Считаем высоту угла преломления,
 то же что и выше только с коэффициентом преломления 1.33,а добавляя к 300, мы опускаем наши координаты ниже}
  SetPenColor(clRed);      {цвета пера красный для двух лучей}
   line(300,300,0,y);      {Наш основной луч}
   line(300,300,600,y);{Луч отразившийся}

   SetPenColor(clYellow);{Меняем цвет пера на жёлтый}
   line(300,300,n,600);  {Рисуем отразившийся луч}
end.