Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/13: Рейтинг темы: голосов - 13, средняя оценка - 5.00
Natawa
1 / 1 / 0
Регистрация: 18.02.2010
Сообщений: 15
1

НОД И НОК

21.02.2010, 21:13. Просмотров 2368. Ответов 6
Метки нет (Все метки)

Как решить..
1
Миниатюры
НОД И НОК   НОД И НОК   НОД И НОК  

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.02.2010, 21:13
Ответы с готовыми решениями:

НОД и НОК
Народ, помогите! Надо написать программу: Даны два числа а и b. Найти НОД и...

НОК и НОД для нескольких чисел
Помогите пожалуйста=) Нужно написать программу для вычисления наименьшего...

Процедура: вычисление НОД и НОК двух чисел
ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ! Описать процедуру обчисления НОД и НОК двух чисел. С...

Программа НОК и НОД для 2 чисел через процеруды
вообще не могу составить эту прогамму использую процедуры, помогите!

Составить процедуру возврата НОК и НОД для двух чисел
Составить процедуру возврата НОК и НОД для двух чисел (использовать функцию)...

6
TAVulator
3959 / 1118 / 161
Регистрация: 27.07.2009
Сообщений: 3,478
21.02.2010, 21:18 2
первая задача больше на геометрию - выведи формулы, мы поможем по ним программу составить.
вторую задачу можно было бы и перепечатать.
2
Puporev
Модератор
54680 / 42101 / 29069
Регистрация: 18.05.2008
Сообщений: 99,353
21.02.2010, 21:36 3
2.
Как некоторой организации получить 185 кг мастики не вскрывая ящики
2
Natawa
1 / 1 / 0
Регистрация: 18.02.2010
Сообщений: 15
21.02.2010, 23:59  [ТС] 4
А какую формулу вывести конкрктно?

Добавлено через 1 час 11 минут
пусть сектор составляет альфа градусов, тогда разбивая его на альфа равных секторов мы получим альфа секторов с углом один градус
360 таких секторов бы дали полную окружность, значит площадь одноградусного сектора равна 1/360 части площади окружности, площадь сектора с углом альфа градусов в альфа раз больше, поэтому равна альфа / 360 * площадь окружности.
площадь окружности пи * r^2
окончательно получаем площадь сектора (альфа*пи*r^2)/360
если надо формулу площади сектора где альфа в радианах, то пользуемся тем, что 360 градусов это 2 пи радиан, заменяем 360 в знаменателе на 2 пи и получаем
(альфа*пи*r^2)/(2пи) = (альфа*r^2)/2
0
Puporev
Модератор
54680 / 42101 / 29069
Регистрация: 18.05.2008
Сообщений: 99,353
22.02.2010, 07:10 5
Natawa, Надо было не площадь сектора посчитать, а его объем, может быть и помогло.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
procedure Obl(x,y,r:real);
begin
if((x>=-r)and(x<=0)and(y>=0)and(y<=r-sqrt(r*r-sqr(x+r))))
or((x>0)and(x<=r)and(y<=0)and(y>=-sqrt(r*r-x*x)))
then write('Точка попадает в область')
else write('Точка не попадает в область');
readln
end;
var x,y,r:real;
begin
clrscr;
write('r=');readln(r);
write('x=');readln(x);
write('y=');readln(y);
Obl(x,y,r);
end.
Добавлено через 27 минут
3.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
procedure Graf(x,r1,r2:real; var y:real);
begin
if(x<-2*r2-2)then y:=1
else if(x>=-2*r2-2)and(x<-2*r2) then y:=-0.5*x-r2
else if(y>=-2*r2)and(x<0)then y:=sqrt(sqr(r2)-sqr(x+r2))
else if(x>=0)and(x<2*r1)then y:=-sqrt(sqr(r1)-sqr(x-r1))
else y:=-x+2*r1;
write('Y=',y:0:2);
readln
end;
var x,r1,r2,y:real;
begin
clrscr;
write('r1=');readln(r1);
write('r2=');readln(r2);
write('x=');readln(x);
Graf(x,r1,r2,y);
end.
1
Natawa
1 / 1 / 0
Регистрация: 18.02.2010
Сообщений: 15
22.02.2010, 12:38  [ТС] 6
Составить прогу нахождения NOD NOK двух трёх заданных целых чисел.
0
Puporev
Модератор
54680 / 42101 / 29069
Регистрация: 18.05.2008
Сообщений: 99,353
22.02.2010, 13:07 7
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program nodnok;
uses crt;
function NOD(m,n:integer):integer;
begin
If m<>0 then NOD:=NOD(n mod m,m) else NOD:=n;
end;
function NOK(m,n:integer):integer;
begin
NOK:=(m div NOD (m,n))*n;
end;
var x,y,z:integer;
begin
clrscr;
writeln('Vvedite x y z:');
readln(x,y,z);
writeln('NOD ',x,' ',y,' ',z,'=',NOD(NOD(x,y),z));
writeln('NOK ',x,' ',y,' ',z,'=',NOK(NOK(x,y),z));
readln;
end.
1
22.02.2010, 13:07
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.02.2010, 13:07

Процедура/функция для обсчета НОК и НОД двух чисел
Необходимо реализовать процедуры/функции, которые в качестве результата выдают...

Даны натуральные числа A и B. Найти их НОК, определив функцию для расчета НОД двух натуральных чисел, используя алгоритм Евклида
Даны натуральные числа A и B. Найти их наименьшее общее кратное, определив...

НОК
Уважаемые программисты,подскажите пожалуйста,как решить задачу. Найти...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru