Табулирование функции

@PortizaN · Регистрация: 11.05.2017

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

Проверьте пожалуйста правильность
Нужна ли здесь функция "trunc"?

Pascal

PROGRAM p2;
const
  x0=0.82; a=1.678; b=2.777; p=1; y=-1.5555; dx=1;n=12;pi=3.14;r=180;
VAR
  x, s ,xk: Real;
BEGIN
xk:=(n*dx)+x0-dx;
begin
  Writeln('Табулирование функции.');
  x:=x0;
  WHILE x<=xk DO begin
s:=trunc((a/b*cos(x*pi/r))+((b/y+p)*sin(x*pi/r)))+sqrt(a+b*b+y*y*y);
  Writeln ('x=',x:8:3,'  ;s=', s:8:3);
  x:= x+dx;
  end;
  Readln
END;
end.

@WindAndRain · 12.05.2017, 06:50

Первое, прочитайте про стиль программирования. Когда код оформлен как у вас - его трудно читать! //Спасибо ZX Spectrum-128; - поправил )
Второе, функция trunc "Возвращает целую часть числа x". Если вам нужно по заданию обрубать значение квадратной скобки до целой части, то да, использовать нужно.
Третье, у меня вызывает сомнения организация цикла: n в вашем задании, это количество шагов? Если да, то моему, проще использовать счётный цикл. Да и код от этого станет проще, понятнее, прозрачнее.
Четвёртое, строка 8 - begin и 17 - end лишние.

@Puporev · 12.05.2017, 09:24

Сообщение от PortizaN

Нужна ли здесь функция "trunc"?

Совершенно не нужна.

@WindAndRain 93 / 11 / 23 Регистрация: 11.04.2016 Сообщений: 34
	12.05.2017, 06:50	2
	Первое, прочитайте про стиль программирования. Когда код оформлен как у вас - его трудно читать! //Спасибо ZX Spectrum-128; - поправил ) Второе, функция trunc "Возвращает целую часть числа x". Если вам нужно по заданию обрубать значение квадратной скобки до целой части, то да, использовать нужно. Третье, у меня вызывает сомнения организация цикла: n в вашем задании, это количество шагов? Если да, то моему, проще использовать счётный цикл. Да и код от этого станет проще, понятнее, прозрачнее. Четвёртое, строка 8 - begin и 17 - end лишние. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	12.05.2017, 09:24	3
	Сообщение от PortizaN Нужна ли здесь функция "trunc"? Совершенно не нужна. 0