Pascal. Всегда ответ Infinity. Что не так с кодом?

@Cheb29 · Регистрация: 21.01.2021

Pascal

program Project_3_1_2;
 
begin
var a,b,c,k,t:real;
Writeln('Введіть значення x:');
Readln(a);
Writeln('Введіть значення b:');
  Readln(b);
  Writeln('Введіть значення c:');
  Readln(c);
  Writeln('Введіть значення k:');
  Readln(k);
  t:=0.15*k*a*(abs(a+b+c))/(sin(a-c))+sqrt(exp((abs(a+b+c))))/(sin(a-c));
  writeln(t);
 
  
  
end.

@Puporev · 22.01.2021, 06:12

С кодом все так, просто вы вводите числа a=c и sin(a-c)=0,a на 0 делить нельзя.
Попробуйте написать так

Pascal

begin
var a,b,c,k,s,t:real;  
Writeln('Введіть значення x:');
Readln(a);
Writeln('Введіть значення b:');
  Readln(b);
  Writeln('Введіть значення c:');
  Readln(c);
  Writeln('Введіть значення k:');
  Readln(k);
  s:=sin(a-c);
  if s=0 then writeln('Значение t не определено')
  else
   begin 
    t:=0.15*k*a*(abs(a+b+c))/(sin(a-c))+sqrt(exp((abs(a+b+c))))/(sin(a-c));
    writeln(t);
   end; 
  end.

Опции темы