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

Зеркальное Отражение И Сисстемы счисления - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Задача о рюкзаке http://www.cyberforum.ru/cpp-beginners/thread608530.html
И так я все сделал как вы и просили. Условие задачи о рюкзаке: Итак, пусть у нас есть рюкзак объёма W, и список из n вещей, у каждой из которых есть объём v и стоимость c, и каждую из которых можно брать сколько угодно раз. При этом все объёмы и все стоимости будут положительными и целыми. Как же работает алгоритм? Заведём массив max длины W+1, в котором мы по итогам работы алгоритма...
C++ Метод бисекции Код: #include <iostream.h> #include <float.h> #include <cmath> #include <float.h> #include <iomanip.h> float f(float x) { return x*x-4; http://www.cyberforum.ru/cpp-beginners/thread608517.html
факториал пятью способами C++
Помогите написать пять способов нахождения факториала, число можно брать любое
Глобальная переменная для хранения вещественных чисел C++
Объявите одну глобальную переменную для хранения вещественных чисел объемом 8 байт на платморфе х86 инициализируйте ее ненулевым значением и четыре глобальные переменные для хранения целых чисел в диапозоне и иниализируйте каждую из них нудевым значением
C++ S(f)=x-x^3/3!+x^5/5!-x^7/7!-x^11/11!+x^13/13! http://www.cyberforum.ru/cpp-beginners/thread608487.html
Вычислить: S(f)=x-x^3/3!+x^5/5!-x^7/7!-x^11/11!+x^13/13!
C++ Зачем открывать файл как бинарный? Здравствуйте! Зачем открывать файл как бинарный? Ведь от того, что мы скажем, что он бинарный, работа с ним никак не изменится! подробнее

Показать сообщение отдельно
StepanDro
0 / 0 / 0
Регистрация: 04.05.2012
Сообщений: 9
20.06.2012, 17:20  [ТС]     Зеркальное Отражение И Сисстемы счисления
Помогите программу ниже перевести на с++ либо просто с
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
38
39
40
41
uses crt;
const digit:string[16]='0123456789ABCDEF'; //цифры
{функция перевода Dec числа в любую сс}
function FromDec(n,r:integer):string;
var s:String;
begin
s:='';
repeat
s:=digit[(n mod r)+1]+s;
n:=n div r;
until n=0;
FromDec:=s;
end;
{проверка на палиндромы}
function IsRevers(s1,s2:string):boolean;
var i,n:integer;
 f:boolean;
begin
if length(s1)<>length(s2) then f:=false
else
 begin
 i:=1;
 f:=true;
 n:=length(s1);
 while(i<=n) and f do
 if s1[i]<>s2[n-i+1] then f:=false
 else inc(i);
 end;
IsRevers:=f;
end;
var i,j:integer;
 s:string;
begin
for i:=10 to 999 do {все числа}
 begin
 str(i,s); {преобразуем в строку}
 for j:=2 to 16 do {проверяем во всех системах
 если палиндром в СС 10 и в данной, то выводим}
 if IsRevers(s,FromDec(i,j))and(j<>10) then writeln(s,'=',FromDec(i,j),' CC',j)
 end;
end.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru