Табуляция

@Emergency · Регистрация: 24.05.2012

Помогите решить 3 задачу. 2 решил,но не получается сделать так, чтобы произведение функции было отдельно в одной строке,а не повторялось.

Pascal

program num2;
uses crt;
const k=0.017;
var x,u,p,r,y:real;
begin
clrscr;
x:=15;
r:=1;
while x<=85 do
 begin
 y:=sin(x)/cos(x)-Pi;
 u:=x*k;
 writeln('x(grad)=', x:3:0, ';  ' ,'x(rad)=',u:3:3,';  ', 'y=',y:3:3);
 x:=x+5;
 end;
   if u>1 then
   begin
   u:=r;
   p:=r*r;
   writeln('proizvedenie radianov ', r:2:3);
   end;
   readln
end.

@Emergency · 29.05.2012, 16:01 **[ТС]**

кто знает - подскажите, пожалуйста.

Добавлено через 2 часа 30 минут

Pascal

if u>1 then
   begin
   u:=r;
   p:=r*r;
   writeln('proizvedenie radianov ', r:2:3);
   end;
   readln

как сделать цикл, чтобы произведение считал?

Добавлено через 3 минуты
все сделал сам, спасибо за помощь

Опции темы