Помогите с программой

[Mishkaplus]

Задали программу и не могу решить, помогите плизз..

Около стены наклонно стоит палка длиной х м. Один ее конец находится на расстоянии у м от стены. Определить значение угла a между палкой и полом для значений х = k м и у, изменяющегося от 2 до 3 м с шагом h м.

Нужно под Delphi, Console Application.

[maladoy]

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils,math;
var h:real;
k:real;
y:real;
ugol:array[0..100] of real;
i,j:integer;
mas:array[0..100] of real;

begin
try
writeln('vvedi k');
readln(k);
writeln('vvedi h');
readln(h);
i:=trunc(1/h);// количество элементов массива

for j := 1 to i do
begin
y:=2+h*j;
ugol[j]:= radTOgrad(arccos(s/k));
mas[j]:=y;
writeln('pri k =',k:4:4,' i shage h ',h:4:4, ' i y =',mas[j]:4:4 ,' ugol = ',ugol[j]:4:4);

end;
readln;
except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
readln
end.

[Mishkaplus]

Большое спасибо!

[maladoy]

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

Большое спасибо!

обращаися!!!!!!!!!!!!

[Mishkaplus]

Переменная "y" не используется, при шаге отличном от 1 программа висит..
i:=trunc(1/h); смысла не имеет...
i:=trunc(h);

[maladoy]

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

Переменная "y" не используется, при шаге отличном от 1 программа висит..
i:=trunc(1/h); смысла не имеет...
i:=trunc(h);

при отличном в какую сторону ?????

[maladoy]

если шаг > 1 м тогда как это понимать " изменяющегося от 2 до 3 м с шагом h м.

"

[Mishkaplus]

Может имеется ввиду вывод в цикле от 2х до 3х м. с шагом в h в этом промежутке.. тоесть 2, 2.1, 2.2 ... 3, или 2, 2.2, 2.4 ... 3. тоесть тот шаг который ты введешь.

[Serge_Bliznykov]

да правильное решение было!
просто шаг h нужно вводить МЕНЬШЕ единицы!
вот, чуток подсократил/подправил!

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils, math;
var h: extended;
  k: extended;
  y: extended;
  ugol:  extended;
begin
  try
    writeln('vvedi k');
    readln(k);
    writeln('vvedi h');
    readln(h);
    y := 2; {начальное значение}
    while y<=3 {конечное значение Y} do begin
      ugol := 180*arccos(y/k)/pi;
      writeln('pri k =', k:4:4,' y =', y:4:4, ' ugol = ', ugol:4:4);
      y := y + h;
    end;
  except
    on E: Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
  readln
end.

p.s.афигеть, но в Delphi5 функции RadToGrad и GradToRad дают КРАЙНЕ неточные значения!!!!
поэтому лучше переводить по формуле c 180 и PI (смотри код!)

[Mishkaplus]

Проверил. все работает прекрасно. Спасибо большое!