Если убрать фигурные скобки, то компилятор скажет:"ошибка 201". Что это за ошибка я уже посмотрел, но все-равно не вкуриваю. Прошу громко не смеяться, осваиваю по книжке, а на лекции я узнал только о том, что программа состоит из заголовка, описания переменных и тела.))))
- Код: Выделить всё
program zadanie4_3;
var
q:array[1..11,1..4] of real;
tanuro,uro:array[1..4] of real;
ufi,tanufi:array[1..11] of real;
i,j,n,m,z,y:integer;
tan,dufi,duro,uron,urok,ufin,ufik,p1,p2,db,dm,l,s:real;
begin
p1:=200;
p2:=400;
db:=90;
dm:=60;
l:=200;
s:=8;
uron:=0.5;
urok:=0.75;
ufin:=10;
ufik:=20;
dufi:=1;
duro:=0.1;
for i:=1 to 3 do uro[i]:=uron+((i-1)*duro);
uro[4]:=urok;
for j:=1 to 10 do ufi[j]:=ufin+((j-1)*dufi);
ufi[11]:=ufik;
for z:=1 to 4 do
tanuro[z]:=round((sin(180/(pi*uro[i])))/(cos(180/(pi*uro[i]))));
for y:=1 to 11 do
tanufi[y]:=round((sin(180/(pi*ufi[j])))/(cos(180/(pi*uro[j]))));
{for n:=1 to 4 do
begin
for m:=1 to 11 do
begin
q[n,m]:=round(1.57*p1*(tanuro[z]+tanufi[y])*(db+dm)*l+s);
write('Q[',n,',',m,']=',q[n,m],' ');
end;
writeln(' ');
end;}
for i:=1 to 4 do
write('uro(',i,')=',uro[i]:2:2);
writeln(' ');
for j:=1 to 11 do
write('ufi(',j,')=',ufi[j]:2:2);
end.
Если нужно обнародовать само задание(а оно очень запутанное, по крайней мере для меня), могу озадачиться.
Заранее спасибо за ответы.)))
