Произвести табулирование функции X-SIN(x) на отрезке [0,pi/2] в 10 точках

@dvpvitas · Регистрация: 12.03.2015

Author24 — интернет-сервис помощи студентам

Произвести табулирование функции X-SIN(x) на отрезке [0,pi/2] в 10 точках.
Использовать цикл с предусловием и цикл с постусловием.

@ermolay · 13.06.2015, 10:25

Pascal

var
  x: real;
  n: integer;
 
begin
  writeln('    x        x-sin(x) (while do)');
  writeln('--------------------');
  x := 0; n := 1;
  while x <= pi / 2 do
  begin
    writeln(n:2, '. ', x:0:5, x - sin(x):9:5);
    x := x + pi / 2 / 9;
    inc(n);
  end;
  
  writeln('    x        x-sin(x) (repeat until)');
  writeln('--------------------');
  x := 0; n := 1;
  repeat
    writeln(n:2, '. ', x:0:5, x - sin(x):9:5);
    x := x + pi / 2 / 9;
    inc(n);
  until x > pi / 2;
  readln;
end.

@dvpvitas · 13.06.2015, 10:52 **[ТС]**

а можно с шагом без inc(n)? спасибо

@Puporev · 13.06.2015, 11:18

inc(n) -> i:=i+1;

@ermolay · 13.06.2015, 11:20

можно, переменная n нужна только для того, чтобы показать количество точек.

Pascal

var
  x: real;
 
begin
  writeln(' x        x-sin(x) (while do)');
  writeln('--------------------');
  x := 0;
  while x <= pi / 2 do
  begin
    writeln(x:0:5, x - sin(x):9:5);
    x := x + pi / 2 / 9;
  end;
  
  writeln(' x        x-sin(x) (repeat until)');
  writeln('--------------------');
  x := 0;
  repeat
    writeln(x:0:5, x - sin(x):9:5);
    x := x + pi / 2 / 9;
  until x > pi / 2;
  readln;
end.

@dvpvitas · 13.06.2015, 11:29 **[ТС]**

Спасибо!

Произвести табулирование функции X-SIN(x) на отрезке [0,pi/2] в 10 точках

Решение

Решение

@dvpvitas 2 / 2 / 2 Регистрация: 12.03.2015 Сообщений: 51
		1
	Произвести табулирование функции X-SIN(x) на отрезке [0,pi/2] в 10 точках 13.06.2015, 08:12. Показов 1759. Ответов 5 Метки нет (Все метки) Произвести табулирование функции X-SIN(x) на отрезке [0,pi/2] в 10 точках. Использовать цикл с предусловием и цикл с постусловием. 0

@dvpvitas 2 / 2 / 2 Регистрация: 12.03.2015 Сообщений: 51
	13.06.2015, 10:52 [ТС]	3
	а можно с шагом без inc(n)? спасибо 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	13.06.2015, 11:18	4
	inc(n) -> i:=i+1; 0

@dvpvitas 2 / 2 / 2 Регистрация: 12.03.2015 Сообщений: 51
	13.06.2015, 11:29 [ТС]	6
	Спасибо! 0