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

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

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

Перевести на С. - C++

22.10.2009, 09:49. Просмотров 376. Ответов 1
Метки нет (Все метки)

Очень нужно перевести на СИ
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.Button1Click(Sender: TObject);
var a,b,x,i:integer;
begin
a:=strtoint(Edit1.text);
b:=strtoint(Edit2.text);
x:=0;
for i:=a to b do
begin
inc(x);
memo1.Lines.Add(inttostr(i));
end;
memo1.Lines.Add('количество цифр='+inttostr(x));
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
memo1.Lines.Add('Целые числа расположенные между А и В (включая сами числа А и В)');
end;
 
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.10.2009, 09:49     Перевести на С.
Посмотрите здесь:

C++ Перевести с С на С++
Перевести из C++ на С. C++
C++ Перевести на C++
C++ Перевести JS на C++
Перевести с C на C++ C++
C++ Перевести из с++ в си
Перевести с С++ на С C++
C++ Перевести из for в while
C++ Перевести из C# в С++
Перевести на c++ C++
Перевести из с в с++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
oxotnik
1586 / 1063 / 33
Регистрация: 21.08.2008
Сообщений: 4,545
Записей в блоге: 1
22.10.2009, 09:59     Перевести на С. #2
Код
void __fastcall TForm1.Button1Click (TObject *Sender)
{
    int a, b, x = 0;
    a = StrToInt(Edit1->Text);
    b= StrToInt(Edit2->Text);
    for (int i = a; i < b; i++)
    {
        Memo1->Lines->Add(i);
         x++;
    }
    Memo1->Lines->Add("количество цифр="+IntToStr(x));
}
Yandex
Объявления
22.10.2009, 09:59     Перевести на С.
Ответ Создать тему
Опции темы

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