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

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

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

перевод в С - C++

19.06.2010, 10:23. Просмотров 430. Ответов 1
Метки нет (Все метки)

Помогите перевести этот участок программы на язык С
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
try
if StrToInt(Edit1.Text)>0 then
begin
Form2.Visible:=false;
Form1.Kol := StrToInt(Edit1.Text);
Form1.Visible:=True;
end;
except
MessageDlg('Введите число, не превышающее 20.', mtError,
[mbOk], 0);
end;
end;
6
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.06.2010, 10:23     перевод в С
Посмотрите здесь:

Перевод из 2 в 10 сс C++
перевод из С++ в Си C++
C++ Перевод из 10 си в 11-16
C++ Перевод из 2-ой в 8-ую СС
C++ Перевод в 8-ю ЧС
C++ Перевод на С++
Перевод if(n*n+m*m=i) then if(i<>a[c-1]) на с++ C++
Перевод C++
Перевод С++ в Си C++
Перевод из С++ в Си C++
C++ Перевод C#->C++
Перевод с Си на С++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
CyBOSSeR
Эксперт C++
 Аватар для CyBOSSeR
2297 / 1667 / 86
Регистрация: 06.03.2009
Сообщений: 3,675
19.06.2010, 10:27     перевод в С #2
C++
1
2
3
4
5
6
7
8
9
try {
  if (StrToInt(Edit1->Text) > 0) {
    Form2->Visible = false;
    Form1->Kol = StrToInt(Edit1->Text);
    Form1->Visible = true;
  }
} catch(...) {
  ShowMessage("Введите число, не превышающее 20");
}
Yandex
Объявления
19.06.2010, 10:27     перевод в С
Ответ Создать тему
Опции темы

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