Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.10.2015, 21:18   #11
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Ну так найдите 10 различий, то есть одно.
Код:
y:=y+dr2;
end;
x:=x+dr2
end;
а у вас :
Код:
y:=y+r2;
end;
x:=x+r2
end;
type_Oleg вне форума Ответить с цитированием
Старый 26.10.2015, 21:20   #12
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Нипоял... А функция где?
Цитата:
y:=y+r2;
А это что? Ты с первой же итерации выпрыгиваешь за пределы окружности... Или точнее у тебя всего одна точка в окружность попадает - (0;0)
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 26.10.2015, 21:21   #13
bambaleo
 
Регистрация: 22.10.2015
Сообщений: 8
По умолчанию

Что за dr2 имел ввиду Mad_Cat
bambaleo вне форума Ответить с цитированием
Старый 26.10.2015, 21:27   #14
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Цитата:
Сообщение от bambaleo Посмотреть сообщение
Что за dr2 имел ввиду Mad_Cat
Да наверное 1. У тебя же был цикл for, где x,y приращивались с шагом 1.
Он наверное не обратил внимание, что у тебя все переменные целые, написал в общем виде - шаг dr2 назвал.

Что-то ты в своей задаче сам не разберешься.
type_Oleg вне форума Ответить с цитированием
Старый 26.10.2015, 21:28   #15
bambaleo
 
Регистрация: 22.10.2015
Сообщений: 8
По умолчанию

Цитата:
Сообщение от Mad_Cat Посмотреть сообщение
Код:
x:=-r2;
while x<=r2 do
begin
y:=-r2;
while y<=r2 do
begin

      if (sqrt(sqr(x) + sqr(y)) > R1)
          and (sqrt(sqr(x) + sqr(y)) < R2) then
      begin
        koltoch:= koltoch + 1;
        writeln (x,' ',y);
     end;
y:=y+dr2;
end;
x:=x+dr2;
end;
Я же написал, что этот код не работает.
и что за функцию нужно вводить?
bambaleo вне форума Ответить с цитированием
Старый 26.10.2015, 21:39   #16
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Цитата:
Сообщение от bambaleo Посмотреть сообщение
и что за функцию нужно вводить?
Вот эту -
Цитата:
Сообщение от bambaleo Посмотреть сообщение
Вычислить количество точек графика функции лежащих внутри кольца с радиусами r1 и r2
А ты просто считал количество точек из квадрата (-r2,-r2)-(r2,r2) , попадающих в кольцо.

PS А то что код не работает - просто тупо замени dr2 - на 1. И будет работать так же, как твой код с for

Последний раз редактировалось type_Oleg; 26.10.2015 в 21:43.
type_Oleg вне форума Ответить с цитированием
Старый 26.10.2015, 21:49   #17
bambaleo
 
Регистрация: 22.10.2015
Сообщений: 8
По умолчанию

Спасибо. Разобрался. Все работает.
bambaleo вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите написать программу в паскале майдар Паскаль, Turbo Pascal, PascalABC.NET 1 28.01.2014 10:00
Помогите написать программу в Паскале Dimka0506 Помощь студентам 1 23.09.2013 17:51
Помогите написать программу в Паскале Saaashka Помощь студентам 1 11.06.2008 11:30
помогите написать программу в паскале death Помощь студентам 3 22.10.2007 10:05