B4rr4cuda , спасибо
А вы уверены, что sqrt(sqr_z) всегда будет натуральным? Я нет...
Я тоже нет. Это надо проверить. Я написал
For y:=1 To trunc(sqrt(n)) Do Begin
sqr_x:=x*x;
sqr_y:=y*y;
sqr_z:=n-(sqr_x+sqr_y);
If (sqr_z>0) Then begin
z:=trunc(sqrt(sqr_z));
If (sqr(z ...
Найдено 38 результатов
- 25.10.2008 14:46:04
- Форум: Обучение Free Pascal
- Тема: Программа представления числа в виде суммы трех квадр
- Ответы: 5
- Просмотры: 11984
- 25.10.2008 14:40:49
- Форум: Обучение Free Pascal
- Тема: Возведение числа в степень, используя закономерность
- Ответы: 1
- Просмотры: 6501
Возведение числа в степень, используя закономерность
Нужно возвести число в третью степень, используя следующую закономерность
Я что-то вообще не могу понять, в чем закономерность состоит? Используется ряд нечетных чисел, причем длля каждого возводимого в степень числа этот ряд начинается с новой цифры.
Я что-то вообще не могу понять, в чем закономерность состоит? Используется ряд нечетных чисел, причем длля каждого возводимого в степень числа этот ряд начинается с новой цифры.
- 24.10.2008 23:20:38
- Форум: Обучение Free Pascal
- Тема: Программа представления числа в виде суммы трех квадр
- Ответы: 5
- Просмотры: 11984
Программа представления числа в виде суммы трех квадр
Нужно представить введенное с клавиатуры натуральное число в виде суммы трех введенных с клавиатуры натуральных чисел. Я написал такой код:
Program l9_n5;
{представление числа в виде суммы трех квадратов натур. чисел}
Var n,x,y,z,sqr_x,sqr_y,sqr_z:Longint;
Begin
Readln(n);
For x:=1 ...
Program l9_n5;
{представление числа в виде суммы трех квадратов натур. чисел}
Var n,x,y,z,sqr_x,sqr_y,sqr_z:Longint;
Begin
Readln(n);
For x:=1 ...
- 23.10.2008 00:12:15
- Форум: Обучение Free Pascal
- Тема: Нахождение числа abcd, у которого ab-cd=a+b+c+d
- Ответы: 3
- Просмотры: 8987
Re: Нахождение числа abcd, у которого ab-cd=a+b+c+d
А почему a=c+2, d=9-c и 0<=c<=7?
- 22.10.2008 23:09:24
- Форум: Обучение Free Pascal
- Тема: Нахождение числа abcd, у которого ab-cd=a+b+c+d
- Ответы: 3
- Просмотры: 8987
Нахождение числа abcd, у которого ab-cd=a+b+c+d
Есть задание
Мне непонятен алгоритм. Сначало было 10*a+b-(10*c+d)=a+b+c+d, потом стало 9*(a-c)=2*(c+d). Откуда взялись 9 и 2 и куда пропало b?
Мне непонятен алгоритм. Сначало было 10*a+b-(10*c+d)=a+b+c+d, потом стало 9*(a-c)=2*(c+d). Откуда взялись 9 и 2 и куда пропало b?
- 20.10.2008 23:41:48
- Форум: Обучение Free Pascal
- Тема: Что значит "x0,y0 - частное решение"?
- Ответы: 11
- Просмотры: 23229
Re: Что значит "x0,y0 - частное решение"?
Вообще то, не переходя на личности, надо в школе балду не бить! А учить математику...
Я в школе балду не бил (ладно, бил, но совсем чуть чуть, хорошистом был). Просто если меня вещам, которые я сейчас на этом форуме узнать пытаюсь, в школе и учили, то было это так давно (3 года назад это точно ...
Я в школе балду не бил (ладно, бил, но совсем чуть чуть, хорошистом был). Просто если меня вещам, которые я сейчас на этом форуме узнать пытаюсь, в школе и учили, то было это так давно (3 года назад это точно ...
- 19.10.2008 15:00:11
- Форум: Обучение Free Pascal
- Тема: Что значит "x0,y0 - частное решение"?
- Ответы: 11
- Просмотры: 23229
Re: Что значит "x0,y0 - частное решение"?
Нашел статью [url]http://ru.wikipedia.org/wiki/Частное_решение[/url].
Интервал (альфа, бета) - это, я так понял, означает (x,y)?
А что за уравнение F(x,y,x',y',...) и почему оно равно нулю?
Интервал (альфа, бета) - это, я так понял, означает (x,y)?
А что за уравнение F(x,y,x',y',...) и почему оно равно нулю?
- 19.10.2008 13:17:52
- Форум: Обучение Free Pascal
- Тема: Программа для разложения числа на произведение просты
- Ответы: 10
- Просмотры: 18892
Re: Программа для разложения числа на произведение прос
"//" строку не комментит, значит таких однострочных комментариев в TurboPascal нет. Может, shade спутал с чем-то?
- 18.10.2008 23:53:10
- Форум: Обучение Free Pascal
- Тема: Программа для разложения числа на произведение просты
- Ответы: 10
- Просмотры: 18892
Re: Программа для разложения числа на произведение прос
А что значит
и// if
в некоторых местах программы? Это ты комментарий так обозначил? Комментарии же вроде фигурными скобками {...} обозначаются.// while
- 17.10.2008 16:24:39
- Форум: Обучение Free Pascal
- Тема: Что значит "x0,y0 - частное решение"?
- Ответы: 11
- Просмотры: 23229
Re: Что значит "x0,y0 - частное решение"?
Понятно, спасибо.
А если х0 и у0 - частные решения, то что тогда х и у?
А если х0 и у0 - частные решения, то что тогда х и у?
x = x0-n*(b Div d)
y = y0+n*(a Div d)
- 17.10.2008 00:11:56
- Форум: Обучение Free Pascal
- Тема: Что значит "x0,y0 - частное решение"?
- Ответы: 11
- Просмотры: 23229
Что значит "x0,y0 - частное решение"?
Есть задание:
Я не могу понять значение фразы "частное решение".
Я не могу понять значение фразы "частное решение".
- 15.10.2008 14:51:36
- Форум: Обучение Free Pascal
- Тема: "Решебник" или где?
- Ответы: 5
- Просмотры: 11338
Re: "Решебник" или где?
fs444, всё в порядке! Просто нам говорят, что надо сдерживаться, и вместо готового решения задачи давать рекомендации методического харрактера
Понятно
То, что студенты в ветку влезут, и будут свои проблемы пытаться решать - можно было ожидать...
А что в этой и вообще подавляющем большинстве ...
Понятно
То, что студенты в ветку влезут, и будут свои проблемы пытаться решать - можно было ожидать...
А что в этой и вообще подавляющем большинстве ...
- 15.10.2008 14:22:18
- Форум: Обучение Free Pascal
- Тема: "Решебник" или где?
- Ответы: 5
- Просмотры: 11338
Re: "Решебник" или где?
То, что я влез в ветку и пытаюсь решить здесь свои проблемы - это хорошо, плохо или нейтрально?
- 14.10.2008 22:55:54
- Форум: Обучение Free Pascal
- Тема: Вопрос по расширенному алгоритму Евклида
- Ответы: 1
- Просмотры: 5972
Вопрос по расширенному алгоритму Евклида
Есть задачка.
Сначала все понятно. А вот со слов "сформулируем последовательность" начинается непонятное. а0 - это, как я понял, значение НОДа? Почему тогда а0=а? Ведь а0=6, а а=12?
Сначала все понятно. А вот со слов "сформулируем последовательность" начинается непонятное. а0 - это, как я понял, значение НОДа? Почему тогда а0=а? Ведь а0=6, а а=12?
- 14.10.2008 22:53:06
- Форум: Обучение Free Pascal
- Тема: Программа для разложения числа на произведение просты
- Ответы: 10
- Просмотры: 18892
Re: Программа для разложения числа на произведение прос
Чегой-то у нас ветка в решебник превращается
Ну это потому что я паскаль по учебнику изучаю, поэтому и преваращается ) А до меня что из себя эта ветка представляла?
