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

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

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

Из паскаля в си++ - C++

20.04.2012, 19:17. Просмотров 251. Ответов 0
Метки нет (Все метки)

Здравствуйте. Помогите, пожалуйста, сконвертировать программу с турбо паскаля на си++. Очень нужно для проекта. Заранее благодарен.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var n,i:integer; w:array[1..18] of longint; p,t,s,j,k,min:longint;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
readln ( n ); p:=0; s:=1;
for i:=1 to n do
begin read(w[i]); p:=p+w[i]; s:=s*2; end;
min:= p ;
for j:=1 to s-1 do
begin
k:=j; t:=0; i:=0;
while k>0 do
begin
i:=i+1;
if k mod 2=0 then t:=t+w[i];
k:=k div 2;
end;
if abs(p-2*t)<min then min:=abs(p-2*t);
end;
write(min);
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.04.2012, 19:17     Из паскаля в си++
Посмотрите здесь:

из паскаля в С++ - C++
Здравствуйте! Помогите пожалуйста перевести код программы в паскале на С++: Program Example; uses crt; Type mas=array of Integer; ...

С паскаля на С++ - C++
Всем добрый вечер!! Вот сама задача.....Дана квадратная матрица порядка M. Обнулить элементы матрицы, лежащие выше побочной диагонали....

с паскаля на с++ - C++
Всем добрый день. помогите перевести с паскаля на с++. Буду очень благодарен Program zarplata; uses dos,crt,BD; type Tbass=record ...

из паскаля в си) - C++
Переведите мне пожалуйста прогу, написанную в паскале, в си))))) для меня это очень важно))))))) завтра последний срок) program...

с паскаля в с++ - C++
помогите перевести с код паскаля в с++ program MYstring; var len1, len2:byte; s1, s2: string; function center (s1,s2:string;...

С Паскаля на С++ - C++
Кто способен переделать программу, написанную на Паскале, на С++?

С паскаля на с++ - C++
Помогите переписать код с паскаля на с++. вот код: var a:array of longint; k, n, t, i:longint; begin readln (n); ...

Из Паскаля на СИ - C++
const c = 9; var a, b, x, y: real; begin write('Введите x: '); readln(x); b := x + c * c; a := exp(ln(abs(92))...

из паскаля в C++ - C++
3)Даны два действитьельных числа. Заменить первое число нулем, если оно меньше или равно второму и оставить числа без изменения в противном...

Из Паскаля в С++ - C++
Дана программа на Паскале: Program q; var a,b:byte; begin Writeln('Двузначные числа, удвоенная сумма цифр которых равна...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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