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

Перевод кода из Pascal в С++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Найти среднее арифметическое среди простых чисел, расположенных после минимального значения http://www.cyberforum.ru/cpp-beginners/thread1168576.html
Создать двоичный файл, куда записать n целых чисел.Найти среднее арифметическое среди простых чисел, расположенных после минимального значения. Помогите Pleassss!!! Программа должна формировать двоичный файл и считать данные из двоичного файла, выполнять вычисления и записывать результаты в текстовый файл.
C++ Вывести те из предложений, в которых встречается слово, введенное пользователем Работа со строками и файлом Написать программу, которая считывает из текстового файла предложения и выводит те из них, в которых встречается слово, введенное пользователем. http://www.cyberforum.ru/cpp-beginners/thread1168570.html
C++ Удалить из файла все строки содержащие заданное слово
Входной текстовый файл содержит отрывок литературного произведения. Необходимо сформировать выходной файл, удалив все строки, содержащие заданное слово (с учетом регистра) . При реализации программы необходимо использовать файловые потоки ifstream, ofstream из <fstream> и класс строки string из заголовочного файла <string>. Пожалуйста, помогите! Действительно очень нужна ваша помощь! Завтра...
Работа с файлами и записями. "Учет проданных товаров" C++
Осталась последняя лабораторная и никак не могу сделать. Фирма ведет учет проданных товаров и хранит эти сведения в файле. Структура записи: наименование товара, артикул, фирма-изготовитель, фирма-покупатель, стоимость партии. Написать программу, которая определяет фирму, купившую наибольшее количество товаров (по общей стоимости) и наименее ходовой товар (товары с разными артикулами не...
C++ Как правильно записать в виде функции выделение памяти для двумерного массива и ее освобождение http://www.cyberforum.ru/cpp-beginners/thread1168537.html
Здравствуйте! Подскажите, как правильно записать в виде функции выделение памяти для двумерного массива и ее освобождение. //------------------------Выделение памяти------------------------------------ int **mas = new int *; for (int i = 0; i < k; i++) { mas = new int ; }
C++ Все слова в тексте отсортировать в алфавитном порядке Все слова в тексте отсортировать в алфавитном порядке. Считать, что слова отделены друг от друга одним пробелом. Огромное спасибо. подробнее

Показать сообщение отдельно
Yalunin
0 / 0 / 0
Регистрация: 27.02.2014
Сообщений: 4
06.05.2014, 21:55     Перевод кода из Pascal в С++
Люди добрые прошу помочь в переписи кода из 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
function st2(k:integer): integer; 
var j, rez: integer; 
begin 
rez:=1;
for j:=1 to k do rez:=rez*2; 
st2:=rez;
end;
function a(sta: string):integer;
var dl,i,rez: integer;
begin
dl:=length(sta);
rez:=0;
for i:=1 to dl do
if sta[i]='1' then rez:=rez+st2(dl-i); 
a:=rez; 
end;
function ast(x:integer): string;
var i:integer; rez: string; 
begin 
rez:='';
while x>=1 do begin 
if x mod 2= 1 then rez:='1'+rez else rez:='0'+rez; 
x:=x div 2; 
end; 
ast:=rez; 
end;
var op: char; r,xs,ys: string; 
begin
writeln('введите двоичное натуральное число'); 
readln(xs);
writeln('введите одно из действий: + - * /'); 
readln(op);
writeln('введите второй операнд(двоичное натуральное число)'); 
readln(ys); 
case op of
'+':r:=ast(a(xs)+a(ys));
'-':r:=ast(a(xs)-a(ys));
'*':r:=ast(a(xs)*a(ys));
'/': r:=ast(a(xs)div a(ys)); 
end;
writeln('=',r); 
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 09:49. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru