Немогу написать программы (не понятны алгоритм действий)

@Andrei--ru · Регистрация: 04.12.2011

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

1) Даны действительные числа: x1, y1. x2, y2,...,x20, y200, r1,...,r11 (0<r1 <r2<...<r11).
Пары (х1, у1),...,(х20, у20) рассматриваются как координаты точек плоскости. Числа r1,...,r2 рассматриваются как радиусы одиннадцати полукругов в полуплоскости у>0 с центром в начале коордиат. Найти количество точек, попадающих внутрь каждого полукруга ( границы-полуокружности не принадлежат полукругам)

2) Дана вещественная матрица размером 5x4. Упорядочить её строки по неубыванию их наибольших элементов.

Буду очень признателен за помощь,заранее спасибо.

P.S. если обубиковал не так, перенаправьте в нужном направлении.

@Ales'hon'ne · 04.12.2011, 18:35

1. цикл по всем радиусам, в нём циклы по всем точкам:

Delphi

for i:=1 to 11 do
  for j:=1 to 20 do
    if (x[j]*x[j]+y[j]*y[j])<(r[i]*r[i]) and (y[j]>=0) then
      inc(k[i])

2.

Delphi

function max(a:array[1..5] of real):real;
var
  j:integer;
begin
  Result:=a[1];
  for j:=2 to 5 do
    if a[j]>Result then
      Result:=a[j];
end;
 
var
  i,k,min:Integer;
  t:array [1..5] of real;
begin
for i:=1 to 3 do
begin
  min:=i;
  for k:=i+1 to 4 do
    if max(a[min])<max(a[k]) then
      min:=k;
  t:=a[i];
  a[i]:=a[min];
  a[min]:=t; 
end;
end;

@Andrei--ru · 04.12.2011, 22:14 **[ТС]**

Большое спасибо, очень выручили))

И еще такие вопросы,

1)какие объекты поместить на форму в первой задаче?

2)во второй задаче правильно что я на форме размещаю два объетка StrigGrid?

Добавлено через 40 минут
Еще хотел поспросить помочт, с решением вот такой задачи

Одним из численных методов решения уравнения найти корень уравнения sqrt(1-1/x^2)=.5

Не понимаю что ставить на форму и алгоритм решения.

@Andrei--ru · 10.12.2011, 20:50 **[ТС]**

Появился такой вопрос, такт так еще не изучал процедуры и функции языка delphi7 преподаватель запретил использовать их в написании,нужно чтобы на форме было два объекта стринггрид и одна кнопка, при нажатии которой введеная матрица в стринггрид один отсортитуется и выведется в стринггрид два, можете помочь с написанием кода, недею мучаюсь(

если можно, выложите готовый проект, очень срочно нужно((((

@Andrei--ru 0 / 0 / 0 Регистрация: 04.12.2011 Сообщений: 16
		1
	Немогу написать программы (не понятны алгоритм действий) 04.12.2011, 17:40. Показов 754. Ответов 3 Метки нет (Все метки) 1) Даны действительные числа: x1, y1. x2, y2,...,x20, y200, r1,...,r11 (0<r1 <r2<...<r11). Пары (х1, у1),...,(х20, у20) рассматриваются как координаты точек плоскости. Числа r1,...,r2 рассматриваются как радиусы одиннадцати полукругов в полуплоскости у>0 с центром в начале коордиат. Найти количество точек, попадающих внутрь каждого полукруга ( границы-полуокружности не принадлежат полукругам) 2) Дана вещественная матрица размером 5x4. Упорядочить её строки по неубыванию их наибольших элементов. Буду очень признателен за помощь,заранее спасибо. P.S. если обубиковал не так, перенаправьте в нужном направлении. 0

@Andrei--ru 0 / 0 / 0 Регистрация: 04.12.2011 Сообщений: 16
	04.12.2011, 22:14 [ТС]	3
	Большое спасибо, очень выручили)) И еще такие вопросы, 1)какие объекты поместить на форму в первой задаче? 2)во второй задаче правильно что я на форме размещаю два объетка StrigGrid? Добавлено через 40 минут Еще хотел поспросить помочт, с решением вот такой задачи Одним из численных методов решения уравнения найти корень уравнения sqrt(1-1/x^2)=.5 Не понимаю что ставить на форму и алгоритм решения. 0

@Andrei--ru 0 / 0 / 0 Регистрация: 04.12.2011 Сообщений: 16
	10.12.2011, 20:50 [ТС]	4
	Появился такой вопрос, такт так еще не изучал процедуры и функции языка delphi7 преподаватель запретил использовать их в написании,нужно чтобы на форме было два объекта стринггрид и одна кнопка, при нажатии которой введеная матрица в стринггрид один отсортитуется и выведется в стринггрид два, можете помочь с написанием кода, недею мучаюсь( если можно, выложите готовый проект, очень срочно нужно(((( 0

Опции темы