Здравствуйте, Strike5555!
Формулу Вашей задачи взял из
Лабораторного практикума, стр.49.
Известные величины задаются как константы. Программа вводит только значения начального, конечного углов, а также шаг итераций.
И у Вас в формуле и в найденой мною есть переменная h(n). Что она представляет собой я не знаю, но навсякий случай ввел её как известную величину.
Вопросы и уточнения задавайте в минифорум.
Удачи!
Приложение:
const
{известные параметры}
a=2;
b=3;
h=4;
r=5;
var
u,u1,u2,i,n:integer;
a0:real;
begin
{вводим начальный угол}
write('Enter U1:');
readln(u1);
{вводим конечный угол}
write('Enter U2:');
readln(u2);
{вводим шаг}
repeat
write('Enter u:');
readln(u);
until u<>0;
{считаем количество итераций}
n:=abs(u1-u2) div abs(u);
{меняем знак шага на противоположный если начальный угол больше конечного}
if u1 > u2 then u:=-u;
{считаем всё что не изменяется за пределами цикла}
a0:=h*(a*(3*sqr(r)-sqr(a))+3*sqr(r)*(b-r))*pi/(180*3*b);
{в цикле считаем каждую итерацию и выводим её}
for i:=0 to n do
writeln('u:=',(u1+i*u):5,'V:=':6,a0*(u1+i*u):20:10);
{всё}
readln;
end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.