Циклический алгоритм

@BEZSERG · Регистрация: 11.10.2009

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

Переменные x, y меняются по закону:
0<=x<=2 hx=0.6

0<=y<=1,5 если Х<=1 и 0<=y<=2.1 если X>1
hy=0.3

Для каждой пары (x,y) выяснить: попадает ли точка с координатами (x,y) внутрь круга, ограниченного окружностью (х-1)^2+у^2=1 и вывести на печать соответствующее сообщение. Из множества полученных точек, лежащих внутри круга, выбрать точку с максимальным значением х.

HHHHEEEEEELLLLLPPPPPP!!!!!!!!!!

@кот Бегемот · 07.11.2009, 00:20

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

Переменные x, y меняются по закону:
0<=x<=2 hx=0.6

0<=y<=1,5 если Х<=1 и 0<=y<=2.1 если X>1
hy=0.3

Для каждой пары (x,y) выяснить: попадает ли точка с координатами (x,y) внутрь круга, ограниченного окружностью (х-1)^2+у^2=1 и вывести на печать соответствующее сообщение. Из множества полученных точек, лежащих внутри круга, выбрать точку с максимальным значением х.

HHHHEEEEEELLLLLPPPPPP!!!!!!!!!!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
var
x,y,maxx,maxy:real;
i,j,t:integer;
s:string;
begin
x:=0;
maxx:=0;
   repeat
         y:=0;
             if x<=1 then
             repeat
     if (x-1)*(x-1)+y*y<=1 then s:= ' yes ' else s:=' no ';
     write(' x=',x:3:1,' y=',y:3:1,s);
             if s=' yes ' then
                    if x>maxx then
                        begin
                        maxx:=x;
                        maxy:=y;
                        end;
                inc(t);
             if t mod 2=0 then writeln;
             y:=y+0.3;
                until y>1.5
              else
                      repeat
      if (x-1)*(x-1)+y*y<=1 then s:=' yes 'else s:=' no ';
      write(' x=',x:3:1,' y=',y:3:1,s);
                      if s=' yes ' then
                          if x>maxx then
                              begin
                              maxx:=x;
                              maxy:=y;
                              end;
                  inc(t);
             if t mod 2=0 then writeln;
                       y:=y+0.3;
                    until y>2.1 ;
   x:=x+0.6;
   until x>2;
write('tochka s max x vnutri kruga x=',maxx:3:1,' y=',maxy:3:1);
 end.

Новые блоги и статьи Все статьи Все блоги /
К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .

@BEZSERG 0 / 0 / 0 Регистрация: 11.10.2009 Сообщений: 6

	Циклический алгоритм 06.11.2009, 23:05. Показов 1697. Ответов 1 Метки нет (Все метки) Переменные x, y меняются по закону: 0<=x<=2 hx=0.6 0<=y<=1,5 если Х<=1 и 0<=y<=2.1 если X>1 hy=0.3 Для каждой пары (x,y) выяснить: попадает ли точка с координатами (x,y) внутрь круга, ограниченного окружностью (х-1)^2+у^2=1 и вывести на печать соответствующее сообщение. Из множества полученных точек, лежащих внутри круга, выбрать точку с максимальным значением х. HHHHEEEEEELLLLLPPPPPP!!!!!!!!!! 0

Циклический алгоритм

Решение