чтото с условием, проверяет а обратно не идет Опции

[admitriev1992]

program Trepykhalin3;
   uses crt;
   function Ugol(a,b:real):real;
begin
   Ugol:=180-a-b;
end;
   function Stor(a,ua,ub:real):real;
begin
   ua:=ua*pi/180;
   ub:=ub*pi/180;
   Stor:=a*sin(ub)/sin(ua);
end;
   function Per(a,b,c:real):real;
begin
   Per:=a+b+c;
end;
   function Plosh(a,b,uc:real):real;
begin
   uc:=uc*pi/180;
   Plosh:=a*b*sin(uc)/2;
end;
   var a,b,c,ua,ub,uc,p,s:real;
begin
   clrscr;
   write('Введите длину стороны BC b=');
   readln(b);
   repeat
   writeln('Введите углы BAC и ABC:');
   readln(ua,uc);
   if ua+uc >= 180 then writeln('Это не треугольник. Повторите код.');
   until a+c < 180;
   ub:=Ugol(ua,uc);
   a:=Stor(b,ub,ua);
   c:=Stor(b,ub,uc);
   p:=Per(a,b,c);
   s:=Plosh(a,b,uc);
   writeln('Стороны: AB=',c:0:2,' AC=',b:0:2);
   writeln('Угол: ACB=',uc:0:0,#248);
   write('Периметр=',p:0:2,' Площадь=',s:0:2);
   readln
end.

пишет что это не треугольник а заново ввести велечины не позволяет , программа работает дальше до конца ..(( исправьте плиз))
как можно более проще, я пока что на 1 курсе и мало что понимаю))))
спасибо!)
и вообще она правильно написана то?
"Вычислить для треугольника ABC все стороны, все углы (в градусной мере), периметр и площадь, если известны: сторона BC и углы BAC, ABC.
Замечание: Программа должна содержать ввод известных величин с клавиатуры, вычисление неизвестных с использованием раздела Function и вывод результатов вычислений на экран"

Сообщение отредактировано: Lapp - 4.06.2011 14:21

[Krjuger]

Что за угадай мелодию......

program trepykhalin8;
uses crt;
   var T:real;
   k,i,d:integer;
begin
i:=5;
k:=3;
d:=2;
T:=(i/(k+ln(d)));
   while i<=14 do
begin
   i:=i+1;
   k:=k+3;
   d:=d+2;
   T:=T*(i/(k+ln(d)));
end;
   writeln('T=', T);
readln;
end.

В этом коде есть как минимум 1 проблема здесь нету знакочередования в знаменателе.....И вторая проблема.Нах тебе CRT если ты его вообще не используешь...........

[admitriev1992]

Что за угадай мелодию......

program trepykhalin8;
uses crt;
   var T:real;
   k,i,d:integer;
begin
i:=5;
k:=3;
d:=2;
T:=(i/(k+ln(d)));
   while i<=14 do
begin
   i:=i+1;
   k:=k+3;
   d:=d+2;
   T:=T*(i/(k+ln(d)));
end;
   writeln('T=', T);
readln;
end.

В этом коде есть как минимум 1 проблема здесь нету знакочередования в знаменателе.....И вторая проблема.Нах тебе CRT если ты его вообще не используешь...........

да фиг с этим crt в окошке просто удобнее )))
а как сделать чтобы прога чередовала знак с плюса на минус?)))
подскажи пожалуйста!))

[DarkWishmaster]

да фиг с этим crt в окошке просто удобнее )))
а как сделать чтобы прога чередовала знак с плюса на минус?)))
подскажи пожалуйста!))

меняешь T:=T*(i/(k+ln(d))); на T:=T*(i/(k+sgn(i)*ln(d)));
где sgn:

  function sgn(x:byte):byte;
    begin
       if odd(x) then sgn:=1  
          else sgn:=-1;
      end;

т.е если у тя " i " четное то будет минус если нечетное то будет +.

Сообщение отредактировано: DarkWishmaster - 5.06.2011 21:26