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

Переделайте её в С++ не получается - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Алгоритм Джонсона http://www.cyberforum.ru/cpp-beginners/thread601265.html
Всем привет. Кто-нибудь знает где в сети найти реализацию алгоритма Джонсона? Задача состоит в том, что даны детали и время обработки, нужно написать прогу при которой станки будут простаивать наименьшее время
C++ Для массивов с структурами нужны обработчкики Добрый день форумчани. Есть массив с структурами: #include <stdio.h> #include <conio.h> #include <iostream> struct firm { http://www.cyberforum.ru/cpp-beginners/thread601260.html
найти количество чисел ,необходимых для достижения заданой точности ε при обчислении числа пи C++
найти количество чисел ,необходимых для достижения заданой точности ε при обчислении числа ∏ за следуюшим розложением в ряд ∏ √6*(1+1\2+1\3.....)
C++ На шахматной доске стоят три ферзя. найти ту пару из них которые угрожают друг другу!
помогите пожалуйста, или подскажите как начать)) на шахматной доске стоят три ферзя. найти ту пару из них которые угрожают друг другу!
C++ Численно удостовериться, является ли заданная функция y=f(x) парной или не парной на заданном отрезке [-a;a]. http://www.cyberforum.ru/cpp-beginners/thread601243.html
Численно удостовериться, является ли заданная функция y=f(x) парной или не парной на заданном отрезке . Учесть ошибку вычислений и возможные точки разрыва функции. Проверить, например, для функций y=x4, y=tgx, y=ex, выполняя их вычисление на отрезке с шагом 0,1.
C++ Найти первых k чисел Найти первых k чисел в этом уравнении. \frac{1}{a} + \frac{1}{a(a + 1)} + \dots + \frac{1}{a(a + 1) \cdot \dots \cdot (a + n)} подробнее

Показать сообщение отдельно
Sylar
2 / 2 / 0
Регистрация: 06.06.2012
Сообщений: 120

Переделайте её в С++ не получается - C++

09.06.2012, 11:24. Просмотров 246. Ответов 1
Метки (Все метки)

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
var n, m: longint;
    a: array [1..100] of longint;
    
 
procedure Show (n: longint);
var i: integer;
begin
for i:= 1 to n do
 write (a[i],' ');
 
writeln;
end;
 
 
procedure Force (start, n1, a1: longint);
var i: integer;
begin
if start > n1 then exit;
 
if (a1 > 0) and (n1 < n) then
 begin
  a[a1+1]:= n1;
  Show (a1+1);
 end;
 
 
for i:= start to n1 do
 if i > n then break
 else begin
  a[a1+1]:= i;
  Force (i, n1-i, a1+1);
 end;
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru