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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
km_
1 / 1 / 0
Регистрация: 06.02.2010
Сообщений: 13
#1

Перевести простую программку с Delphi - C++

13.02.2011, 23:16. Просмотров 352. Ответов 3
Метки нет (Все метки)

Имеется программа на Delphi. Нужно перевести на C++
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button1Click(Sender: TObject);
var s, sum, i, j, n: integer; p: string;
begin
s:= 0; sum:= 0;
n:=StrToInt(edit1.Text);
for i:=1 to n do
  begin
    s:= s + 1;
    p:= IntToStr(s);
    for j:= 0 to length(p) do
      if p[j] = '1' then
        begin
          sum:= sum + 1;
          break;
        end;
  end;
end;
Спасибо.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.02.2011, 23:16
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести простую программку с Delphi (C++):

Перевести простую пробь в десятичную - C++
доброго времини суток! в программировании я новичек. мне подкинули задачку: умеется числитель и знаменатель простой дроби -...

Перевести с DELPHI в С++ - C++
Кто-нибудь сможет помочь переписать код с delphi на с++? И вообще возможно ли это?

Перевести с Delphi на C/C++. - C++
program zadacha5; {$APPTYPE CONSOLE} uses SysUtils; var a,b,s,k,v :real ; begin

Перевести функцию с Delphi на C++ - C++
Ребята, может кто знает хотя бы примерно C или C++ , не понимаю код делфи, а функция на нём. type TSingleArray = Array of Single; ...

Перевести код программы из Delphi в C++ - C++
Добрый день! Стоит задача транслировать код из Delphi в C++. Среда Embarcodero. Вроде бы ничего сложного, точки на стрелки меняй себе и...

Перевести синтаксис программы с Delphi в C++, очень нужно - C++
Даны два текстовых файла f1 и f2. Файл f1 содержит произвольный текст. Слова в тексте разделены пробелами и знаками препинания. Файл f2...

3
lemegeton
2925 / 1354 / 135
Регистрация: 29.11.2010
Сообщений: 2,725
14.02.2011, 00:13 #2
Видимо, предлагается написать, заодно так, форму и событийную модель делфи?
0
name?
198 / 169 / 18
Регистрация: 01.06.2010
Сообщений: 371
Завершенные тесты: 1
14.02.2011, 00:25 #3
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int s, sum, i, j, n;
String p;
s= 0; sum= 0;
n=StrToInt(edit1->Text);
for (i=1; i<n; i++)
    {
    s++;
    p= IntToStr(s);
    for (j=0;j<p.Length(); j++)
        {
        if (p[j]==1)
          {sum++;break;}
        }
    }
}
1
km_
1 / 1 / 0
Регистрация: 06.02.2010
Сообщений: 13
14.02.2011, 10:51  [ТС] #4
Спасибо. Забыл сказать, что надо был под консоль, но это я уже сам.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.02.2011, 10:51
Привет! Вот еще темы с ответами:

Перевести с Delphi на C++. Ускорение умножения двоичных чисел с анализом двух разрядов - C++
Zdrastvuite dorogie programmisty... esli est vozmojnost perevidite na yazyk C++ Добавлено через 1 минуту unit lab3; interface...

Перевести с Delphi на C++. Найти элементы последовательности, представимые в виде суммы двух квадратов - C++
Всем доброго утра! помогите пожалуйста перевести программу на С++!! Дано натуральное число N. Среди чисел 1, 2, …, N найти те, которые...

программку написать - C++
плиззз пожалуйста помогите программа по зарез нужна чтоб на borland c++ 4.5 работала

подделать программку - C++
ребят помогите,есть программа написанная,ее нужно немного изменить на мой вариант вот есть рабочая 6-го варианта,нужно подправить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Yandex
Объявления
14.02.2011, 10:51
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru