Форум программистов, компьютерный форум 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
 Аватар для Sylar
2 / 2 / 0
Регистрация: 06.06.2012
Сообщений: 119
09.06.2012, 11:24     Переделайте её в С++ не получается
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;
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 13:37. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru