Форум программистов, компьютерный форум CyberForum.ru

Рекурсия. Найти решения неравенства (x^2+ y^2 <= n) - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ процесы и потоки http://www.cyberforum.ru/cpp-beginners/thread355795.html
надо создать процес в програме и чтоб потом после её закрытия процес работал что надо сделать? пожалуста минимум кода(но чтоб я смог по вашем коментарием сделать то что я хочу) больше теории
C++ Произведение матриц Даны две матрицы. Получите их произведение. http://www.cyberforum.ru/cpp-beginners/thread355769.html
Двумерный массив.Как определить координаты элемента. C++
Есть двумерный массив arr.Я представил его в виде поля: 1 | 2 | 3 --+--+--- 4 | 5 | 6 --+--+--- 7 | 8 | 9 Мне нужно определить координаты каждого элемента.Например какая координата элемента в клетке с цифрой 1? и тд.
C++ Передача двумерного массива в функцию
Здравствуйте, появился новый вопрос на тему указателей: как передать двумерный массив в функцию ну и для проверки модифицировать его. Написал следующую программу: #include <iostream.h> #include <conio.h> void matSqr (int*, int); main () {
C++ Ошибка в решении СЛАУ методом Гаусса http://www.cyberforum.ru/cpp-beginners/thread355753.html
Ребят, помогите пожайлуйста найти ошибку у меня в программе метод Гаусса Вроде прямой ход правильный, может ошибка в обратном? Буду благодарен #include<math.h> #include<conio.h> #include<stdio.h> #include<iostream.h> main()
C++ вывод матрицы Как можно переделать эту процедуру ,чтобы результат-конечная матрица выводидась в таблицу? void Matrix :: Print(TMemo *memo) { char num = ""; AnsiString c= ""; memo->Clear(); char str = ""; sprintf(str, "\t%%.%df", 3); for(int i = 0 ; i < size_ ; i ++) { подробнее

Показать сообщение отдельно
IIIa66uMEM6eP
заставил Бендера
435 / 291 / 10
Регистрация: 05.12.2010
Сообщений: 1,644
Записей в блоге: 6
25.09.2011, 21:27  [ТС]     Рекурсия. Найти решения неравенства (x^2+ y^2 <= n)
Ребят, есть ли паскалисты? перевожу данную прогу на паскаль.ABC выдает ошибку, ошибка переполнение стека , вылетает после выполнения 2 шагов, скрин и текст:
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
program dad;
function solve_on_y(x,y,n:real):real;
begin
 if y >= n then
  solve_on_y:=0;
 if (x*x+y*y) <= n then
  begin
   writeln(x,' ',y);
   solve_on_y:=solve_on_y(x,y+1,n)+1;
  end
 else
  solve_on_y:=solve_on_y(x,y+1,n);
end;
 
function solve_on_x(x,n:real):real;
begin
 if x >= n then
  solve_on_x:=0;
 solve_on_x:=solve_on_y(x,1,n)+solve_on_x(x+1,n);
end;
 
function solve(n:real):real;
begin
 solve:=solve_on_x(1, n);
end;
 
var
  n,cnt:real;
begin
 repeat
  write('Input n : ');
  readln(n);
 until n<>0;
 writeln('Calculating for n = ',n);
 cnt := solve(n);
 writeln('Number of solutions: ',cnt);
end.
Миниатюры
Рекурсия. Найти решения неравенства (x^2+ y^2 <= n)  
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru