Для заданных a и b найти все точки с целочисленными координатами, находящиеся внутри эллипса - Turbo Pascal

@Anicoros · Регистрация: 19.03.2015

Для заданных a и b найти все точки с целочисленными координатами, находящиеся внутри эллипса $http://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{{x}^{2}}{{a}^{2}}+\frac{{y}^{2}}{{b}^{2}}\leq 1$

@Peoples · 12.06.2016, 16:15

Pascal

program pr;
var
  a, b, x, y: integer;
begin
  writeln('Введите а');
  readln(a);
  writeln('Введите b');
  readln(b);
  for x := -a to a do
    for y := -b to b do
      if  (((x * x) / (a * a)) + ((y * y) / (b * b))) <= 1  then
      begin
        writeln('(', x, ':', y, ')');
      end;
end.

@Satoshi_Kun · 12.06.2016, 17:30

а не проще писать вместо x*x, sqr(x) ?

@Satoshi_Kun 0 / 0 / 0 Регистрация: 16.05.2016 Сообщений: 5
	12.06.2016, 17:30	#3
	а не проще писать вместо x*x, sqr(x) ? 0

@Anicoros 0 / 0 / 0 Регистрация: 19.03.2015 Сообщений: 19
		#1
	Для заданных a и b найти все точки с целочисленными координатами, находящиеся внутри эллипса - Turbo Pascal 12.06.2016, 15:59. Просмотров 248. Ответов 2 Метки нет (Все метки) Для заданных a и b найти все точки с целочисленными координатами, находящиеся внутри эллипса $http://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{{x}^{2}}{{a}^{2}}+\frac{{y}^{2}}{{b}^{2}}\leq 1$ 0

Опции темы