При сооружении железобетонного фундамента площадь сечения арматуры определяется по формулам:

[email protected] в категроии Информатика, вопрос открыт 18.10.2017 в 06:19

F = (N - RS)/(D - R), если F > 0.03S;
F = (N - RS)/D, если F ≤ 0.03S,
где N - расчетная сила, приложенная по оси элемента;
S - площадь сечения бетона;
R - сопротивление бетона осевому сжатию;
D - сопротивление сжатой арматуры.
Рассчитать значения переменной N, если известны R, S и D, а F изменяется от F1 до F2 с шагом h.

Вот мое решение, но она не работает. Где мой косяк?
program jelezo;
var f,n,r,s,d:real;
f1,f2,a,h,p:integer;
begin
readln(r,s,d,f,h);
if (F>0.03*s) then p:=1
else p:=2;
begin
for a:=f1 to f2 do
begin
repeat
f1:=f1+h;
case p of
1:n:=f*d-r+(R*S);
2:n:= f*d+(R*S);
end;
until
f1=f2
end;
writeln(n);
end;
end.