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

Перевести из делфи в с++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Поиск максимального http://www.cyberforum.ru/cpp-beginners/thread968078.html
//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include <iostream> using namespace std; int main() { int a,b,c,max; {
C++ Прерывание работы рекурсионной функции типа void Есть рекурсионная функция, имеющая нечто общее с функцией ниже: void function test(int b) { int a; a = b; a++; if (a == 10) return; test(a); http://www.cyberforum.ru/cpp-beginners/thread968061.html
C++ Не получается изменить данные в бинарном файле
Здравствуйте. Мучаюсь, не пойму как сделать чтобы изменить данные. Программа обращается к файлу с базой (структуре).В структуре счет, фамилия, имя, баланс. Все функции прописал, а функцию "удалить счет" не получается. Вместо удаления счета хочу просто номер счета изменить на 0, чтоб при выводе всех данных нулевые счета не выводились. В коде функция откоментирована как ///Удаление нужной записи....
Найти максимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали матрицы C++
#include <iostream> #include <iomanip> #include <conio.h> #include <math.h> using namespace std;
C++ Замена фона в C++ http://www.cyberforum.ru/cpp-beginners/thread967993.html
У меня есть консольное приложение, как поменять в нем фон что бы выводило вместо сетки глубины - зеленый фон.
C++ Пустая консоль Когда открываешь программу(после компиляции на dev-c++), то появляется пустая консоль, на которой ничего не отображается. #include <iostream> using namespace std; int main() { int x; for(x=0; x>6; x++) { if (x==1) cout << "õ ðàâåí îäíîìó\n"; подробнее

Показать сообщение отдельно
KostyaMoscow
-1 / 2 / 0
Регистрация: 27.02.2013
Сообщений: 95
03.10.2013, 14:50     Перевести из делфи в с++
В числовой последовательности ищется максимальный элемент и выводится его номер

var s,max:real;
i,k,n:integer;
c:extended;
begin
repeat
write('n = ');readln(n);
until n>=0;
max:=0;k:=0;
if n>0 then
begin
max:=5;k:=1;c:=1;
for i:=1 to n do
begin
c:=c*i;
s:=exp(ln(5)*i)/c;
if s>max then
begin
max:=s;
k:=i;
end;
end;
end;
writeln('max = ',max:0:4,', number = ',k);
readln
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 19:30. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru