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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Посоветуйте среду разработки C++ под Windows 8 http://www.cyberforum.ru/cpp-beginners/thread1134348.html
Дайте, пожалуйста, ссылку на скачку пакета с++ совместимый с windows 8.1, скачал с офф. сайта, однако у меня пишет ошибку при запуске.
C++ Функция getline и ifstream int main() { int i,c; char filename; char input_line; cout<<"Enter a file name and press ENTER: "; cin.getline(filename,80); ifstream file_in(filename); if(! file_in){ cout<<"File"<<filename; cout<<" could not be opened."; http://www.cyberforum.ru/cpp-beginners/thread1134347.html
Вычисление фундаментальных констант с любой заданной точностью C++
Код программы, которая вычисляет и выводит число πи до N-ного знака. Тоже самое с числом e. Добавлено через 2 часа 38 минут Буду очень признателен за любую помощь!
Составить программу для кодирования некоторого текста до 50 символов, заменяя каждую букву на пятую после нее букву из а C++
Составить программу для кодирования некоторого текста до 50 символов, заменяя каждую букву на пятую после нее букву из алфавита. Алфавит понимать как таблицу кодов ASCII. Сохранить результат выполнения программы в файл. При написании программного кода не использовать файл заголовков string.h.
C++ Перегрузка оператора http://www.cyberforum.ru/cpp-beginners/thread1134307.html
Помогите доделать задание... Это в классе метод, осуществляющий ввод значений полей класса с клавиатуры; метод, осуществляющий вывод значений полей класса на экран в виде: 4 км 20 м 4 см. Перегрузка оператора (хотя бы один, мне для примера)
C++ Создание двумерного массива int Mass_create() { for (int i = 0; i < n; ++i) { for (int j = 0; j < m; ++j) { mas = rand() % 198 - (99); } } return **mas; подробнее

Показать сообщение отдельно
ollien
0 / 0 / 0
Регистрация: 01.12.2013
Сообщений: 26
30.03.2014, 22:54     Перевести с Pascal на С++
помогите пожалуйста с переводом на язык с++
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
Procedure ReadLong(Var A : Tlong);
Var ch : char; i : Integer;
Begin
FillChar(A, SizeOf(A), 0) ;
Read(ch);
While Not(ch In ['0'..'9']) Do Read(ch);
While ch In ['0'..'9'] Do
Begin
For i := A[0] DownTo 1 Do
Begin
A[i+1] := A[i+1] + (LongInt(A[i]) * 10) Div Osn;
A[i] := (LongInt(A[i]) * 10) Mod Osn
End;
A[1] := A[1] + Ord(ch) - Ord('0');
If A[A[0]+1] > 0 Then Inc(A[0]);
Read(ch)
End
Procedure WriteLong(Const A : Tlong);
Var Is, s : String; i : Integer;
Begin
Str(Osn Div 10, Is);
Write(A[A[0]];
For i := A[0] - 1 DownTo 1 Do
Begin
Str(A[i], s);
While Length(s) < Length(Is) Do s := '0' + s;
Write(s)
End;
WriteLn
End;
Procedure SumLongTwo(A, B : Nlong; Var C : Tlong);
Var i, k : Integer;
Begin
FillChar(C, SizeOf (C), 0) ;
If A[0] > B[0] Then k := A[0] Else k : =B[0];
For i := 1 To k Do
Begin С [i+1] := (C[i] + A[i] + B[i]) Div Osn;
C[i] := (C[i] + A[i] + B[i]) Mod Osn
End;
If C[k+1] = 0 Then C[0] := k Else C[0] := k + 1
End;
Var A, B, C : Tlong;
Begin
Assign(Input, 'Input.txt'); Reset(Input);
ReadLong(A); ReadLong(B) ;
Close(Input);
SumLongTwo(A, B, C);
Assign(Output, 'Output.txt');
Rewrite(Output);
WriteLong(C);
Close(Output)
End.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 08:35. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru