чтобы прога работала(должна выдавать решение квадратного уравнения) желательно скинуть ваш решенный рабочий вариант Program _1;
var
Kl,Wmin,Wmax,B,Lxod,Lmin,Lmax,La,L0,l: real;
begin
readln(Kl);
writeln('Kl=',Kl:6:3);
readln(Wmin);
writeln('Wmin=',Wmin:6:3);
readln(Wmax);
writeln('Wmax=',Wmax:6:3);
readln(B);
writeln('B=',B:6:3);
readln(La);
writeln('La=',La:6:3);
readln(L0);
writeln('L0=',L0:6:3);
Lmin:= La*sqrt(l+sqr(Kl)-(2*Kl*cos((Wmin+B)*Pi/180)));
Lmax:=La*sqrt(l+sqr(Kl)-(2*Kl*cos((Wmax+B)*Pi/180)));
Lxod:= Lmax-Lmin;
L:= L0+Lxod;
writeln('Lmin=',Lmin:6:3);
writeln('Lmax=',Lmax:6:3);
writeln('Lxod=',Lxod:6:3);
writeln('L=',L:6:3);
end.
194
418
Ответы на вопрос:
Плоскости орбит компонентов затменно-двойной звезды перпендикулярны или почти перпендикулярны картинной плоскости.
Популярно: Другие предметы
-
pershikovanata23.07.2022 17:33
-
стефания3125.06.2023 10:05
-
MaGaFaYa12.01.2021 14:00
-
baseke201820.12.2022 03:13
-
katya02209.08.2021 00:46
-
ruslan200318525.05.2021 11:39
-
марыч77720.05.2023 12:42
-
dashanarmania22.03.2021 15:20
-
2810vika19.04.2021 05:32
-
Помошь008.07.2020 15:42