Учеба и наука

• Всего ответов: 2


Валентина
3-й в
411 отзыв
Если еще нужно, напишите в ЛС
май 13, 2012 г.

Валентина
3-й в
411 отзыв
program tabul;
uses crt;
var x,y:real;
max,min:real;
begin
clrscr;
writeln('x':10,'y':10); 
x:=0.6;
max:=sin(x/3)-1; min:=max; 
while x<=28 do
begin
  y:=sin(x/3)-1;
  writeln(x:10:2,y:10:2);
  if y>=max then max:=y;
  if y<=min then min:=y; 
  x:=x+0.2;
end; 
writeln('max=',max:10:2); 
writeln('min=',min:10:2);  
readln
end. 
май 13, 2012 г.

Похожие вопросы