Форум программистов, компьютерный форум, киберфорум
Наши страницы

как переделать на с++? с паскаля - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Препроцессор,исключительные ситуации http://www.cyberforum.ru/cpp-beginners/thread955627.html
Всем доброго времени суток!) По прочтению изложенного в моей книге материала по искл. ситуациям и операторам препроцессора(? так можно назвать вот это: "#define","#ifdef","#ifndef","#else" ?) возник...
C++ Определить ф-цию, нахождения векторного произведения векторов трёхмерного пространства Определить ф-цию, нахождения векторного произведения векторов трёхмерного пространства(без массивов). Параметрами ф-ции должны быть координаты. Ф-ция должна возвращать несколько значений, для этого... http://www.cyberforum.ru/cpp-beginners/thread955610.html
Найти произведение отрицательных элементов массива C++
Найти произведение отрицательных элементов массива. Использовать функцию для каждой строки матрицы K(4,8). Тело ф-ции реализовать 2 способами: через указатели и обычным способом. Добавлено через 1...
C++ Задача не компилиться
Вот решил освоить данный язык программирования и столкнулся со следующими проблемами: // KR_3.cpp: определяет точку входа для консольного приложения. // #include "stdafx.h" #include "iostream"...
C++ задача на пересечение http://www.cyberforum.ru/cpp-beginners/thread955599.html
В этой задаче необходимо определить, пересекается ли прямая с окружностью. я нахожу дискриминант и затем нужно записать условие, но как его писать не знаю, объясните пожалуйста заранее спасибо ...
C++ Написать программу, которая решает следующую задачу: было куплено 3 курицы за 46 гривен. Первая несет 3 яйца за 4 дня, вторая 2 яйца за 3 дня, третья Написать программу, которая решает следующую задачу: было куплено 3 курицы за 46 гривен. Первая несет 3 яйца за 4 дня, вторая 2 яйца за 3 дня, третья 1 яйцо за 2 дня. За сколько дней окупятся куры,... подробнее

Показать сообщение отдельно
pmipmi
0 / 0 / 0
Регистрация: 15.09.2013
Сообщений: 44

как переделать на с++? с паскаля - C++

16.09.2013, 15:51. Просмотров 294. Ответов 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
function aaa(x: integer):boolean;
var b: integer;
begin                    
b:=1;
While (x-b*2)>0 do b:=b*2;
x:=x-b;
if x<>1 then
   result:=not(aaa(x))
   else
   result:=false;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var x: integer;
    znach: boolean;
begin
try
x:=StrToInt(edit1.Text);
if x=1 then label1.Caption:='1' else
begin
znach:=aaa(x);
if znach=true then label1.Caption:='1' else label1.Caption:='0';
end;
except
showmessage('Задано неверное значение!')
end;
как переделать на с++ ?
ijonhson,please
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru