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

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

Восстановить пароль Регистрация
 
ollien
0 / 0 / 0
Регистрация: 01.12.2013
Сообщений: 26
30.03.2014, 22:54     Перевести с Pascal на С++ #1
помогите пожалуйста с переводом на язык с++
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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.03.2014, 22:54     Перевести с Pascal на С++
Посмотрите здесь:

Перевести из Pascal на С++ C++
C++ перевести с pascal в С++
Перевести на C++ из Pascal C++
Перевести из Pascal в C++ C++
C++ Перевести с pascal в C++
C++ Перевести с Pascal на C++
перевести с pascal на С++ C++
C++ Перевести с Pascal на C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
НеСказочник
58 / 46 / 7
Регистрация: 12.11.2012
Сообщений: 339
Записей в блоге: 2
31.03.2014, 13:08     Перевести с Pascal на С++ #2
мне кажется или у Вас количество бегинов и эндов не совпадает?
ollien
0 / 0 / 0
Регистрация: 01.12.2013
Сообщений: 26
31.03.2014, 14:49  [ТС]     Перевести с Pascal на С++ #3
да, потеряла один end прямо перед
Procedure WriteLong(Const A : Tlong);
Yandex
Объявления
31.03.2014, 14:49     Перевести с Pascal на С++
Ответ Создать тему
Опции темы

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