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

Перевод из Pascal в C++ / С++ для начинающих - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ О графическом интерфейсе ! http://www.cyberforum.ru/cpp-beginners/thread1145342.html
Всем привет! Появился следующий вопрос, я учусь писать граф. приложения на opengl, как я могу сделать там нормальный интерфейс, с кнопочками,что-то вроде текстбокса,ну и так далее. Возможно ли это?Где можно почитать?Заранее спасибо за помощь!
C++ Написать функцию, которая удаляет элемент в позиции position из массива void remove(int position) { } Спасибо) http://www.cyberforum.ru/cpp-beginners/thread1145333.html
C++ Даны целые числа A B C, проверить можно ли из них составить геометрическую прогрессию
Даны целые числа A B C , проверить можно ли из них составить геометрическую прогрессию. Если да, со ставьте из них возрастающую и убывающую прогрессию.
C++ Матрицы в си++ реверс при выводе на консоль
Мне нужно чтобы заданная матрица выводилась на экран не с первого элемента, а с последнего, как так сделать ? #include <iostream> using namespace std; { setlocale(0,"") int a={1,2,3,4}; cout<<"Наша изначальная матрица"<<endl; for (int i=n;i>0;i--) { for(int j=n;j>0;j--)
C++ Выводить в случайном порядке вопросы в программе тестирования http://www.cyberforum.ru/cpp-beginners/thread1145270.html
Здравствуйте. У меня есть программа тестирования. Мне нужно сделать так что бы вопросы выводились рандомно. Короче по другому если перефразировать, то как сделать такой рандом, что бы числа не повторялись? Если использую rand()%4 и прокручиваю 4 раза, то появляются одинаковые числа. Помогите.
C++ Признак окончания потока для буферного итератора Собственно надоело вводить ctrl+z для ввода признака окончания потока, засим возник вопрос а возможно ли изменить этот самый признак для буферного итератора? Взглянул на заголовочники - узрел эти конструкторы: /// Construct end of input stream iterator. istreambuf_iterator() throw() : _M_sbuf(0), _M_c(traits_type::eof()) { } /// Construct start of input stream... подробнее

Показать сообщение отдельно
ad98
Сообщений: n/a

Перевод из Pascal в C++ / С++ для начинающих - C++

11.04.2014, 13:34. Просмотров 172. Ответов 0
Метки (Все метки)

Помогите перевести исходник из Pascal в C++
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
{$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R-,S-,T-,V+,X+}
{$M 16384,0,655360}
{$R+,S+,Q+}
  Const
    Digits = ['0'..'9'];
 
  Var
    hh,mm,ss: Longint;
    h,m,s: Longint;
 
  Function ReadNum: Longint;
    Var c: Char; res: Longint;
  Begin
    Repeat Read(c) Until (c in digits);
    Res := 0;
    While (c in Digits) Do
     Begin
       Res := Res*10+(Ord(c)-Ord('0'));
       Read(c);
     End;
    ReadNum := Res;
  End;
 
  Procedure Init;
  Begin
    Assign(input, 'input.txt'); Reset(input);
      hh := ReadNum; mm := ReadNum; ss := ReadNum;
      h := ReadNum;
      If Not SeekEof Then
       Begin
         m := ReadNum;
         If Not SeekEof Then s := ReadNum
         Else Begin s := m; m := h; h := 0 End;
       End
      Else Begin s := h; m := 0; h := 0 End;
    Close(input);
  End;
 
  Procedure Out(num: Longint);
  Begin
    If num < 9 Then Write('0'); Write(num);
  End;
 
  Procedure Done;
  Begin
    Assign(output, 'output.txt'); Rewrite(output);
      inc(mm, m+(s+ss) div 60); ss := (ss+s) mod 60;
      inc(hh, h+mm div 60); mm := mm mod 60;
      Out(hh mod 24); Write(':'); Out(mm); Write(':'); Out(ss);
      If hh div 24 > 0 Then Write('+',hh div 24,' days');
    Close(output);
  End;
 
BEGIN
  Init; Done;
END.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru