Yoko

Code: Select all

If IsInRange(A * x + B * y + C, -3, 3) then

Code: Select all

If IsInRange(A * x + B * y + C, -3, 4) then

Code: Select all

If IsInRange(A * x + B * y + C, -4, 3) then

Code: Select all

Sub VectorPoints2(startx, starty, endx, endy)
  If startx <> endx or starty <> endy then 
    var Coordinates = ' ' + str(startx) + ' ' + str(starty) + ' ', Lenght = GetVectorLenght(startx, starty, endx, endy)
    var dx = (endx - startx) / Lenght, dy = (endy - starty) / Lenght
    var x = startx + 0.5 * Sign(dx), y = starty + 0.5 * Sign(dy), i
    For i = 1 to Lenght
      Coordinates = (Coordinates + str(Integer(x)) + ' ' + str(Integer(y)) + ' ')
      x = x + dx
      y = y + dy
    Next
    Return (str(Lenght) + Coordinates)
   else
    Return 0
  Endif
Endsub

Sub GetVectorLenght(startx, starty, endx, endy)
  If Absolute(endx - startx) >= Absolute(endy - starty) then
    Return Absolute(endx - startx)
   else
    Return Absolute(endy - starty)
  Endif
Endsub

Sub Integer(val)
  If int(val + 0.4) > int(val) then
    Return int(val) + 1
   else
    Return int(val)
  Endif
Endsub    

Sub Absolute(val)
  If val > 0 then
    Return val
   else
    Return -val
  Endif
Endsub

Sub Sign(val)
  If val > 0 then
    Return 1
   else
    If val < 0 then
      Return -1
     else
      Return 0
    Endif
  Endif
Endsub

Code: Select all

Sub GetVectorLenght(startx, starty, endx, endy)
  If Absolute(endx - startx) >= Absolute(endy - starty) then
    Return Absolute(endx - startx)
   else
    Return Absolute(endy - starty)
  Endif
Endsub

Code: Select all

Sub VectorPoints3(startx, starty, endx, endy)
  If startx <> endx or starty <> endy then ;если не нулевой вектор
    var Coordinates = ' ', Lenght = GetVectorLenght2(startx, starty, endx, endy) ; длина вектора = квадратному корню из суммы квадратов координат вектора
    var dx = (endx - startx) / Lenght, dy = (endy - starty) / Lenght   ;приращение = дельтаХ / длину
    var x = startx * Sign(dx), y = starty * Sign(dy) ; Sign() вернёт -1 при отрицательном параматре, 1 при положительном, 0 при 0(чтобы работать и с отрицателиными координатами вектора, и с положительными)
    While x <= endx + 0.5 and y <= endy + 0.5 ;условие окончания итерации
      Coordinates = (Coordinates + str(Integer(x)) + ' ' + str(Integer(y)) + ' ') ;Integer() - округляет (1.5 округлится до 1)
      x = x + dx
      y = y + dy
    Wend
    Return (str(Lenght) + Coordinates) ;вывод результата
   else
    Return 0
  Endif
Endsub

Code: Select all

Sub IsOnVector(x, y, startx, starty, endx, endy)
   var A = starty - endy, B = endx - startx, C = startx * endy - starty * endx
   If IsInRange(A * x + B * y + C, -5, 5) then
      If IsInRange(x, startx, endx) then
         If IsInRange(y, starty, endy) then
            Return 1
         Endif
      Endif
   Endif
   Return 0
Endsub

Code: Select all

IsInRange((endx - startx) * (y - starty) - (endy - starty) * (x - startx) , -3, 3)

Code: Select all

#include <iostream>
using namespace std;
const int N = 100;
int main() {
	double x, q, s = 0;
		int n;
	cout << "Enter x = ";
	cin >> x;
	q = x;
	for (n = 1; n <= N; n++) {
		s += q;
		q *= (-1) * x * x/(2 * n)/(2 * n + 1);}
	cout << "sin("<<x<<") = "<< s << endl;
	return 0;
}

Code: Select all

sub main()
var i = cos(3.14)
uo.msg(i)
end sub