Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - Перевод процедуры с Pascal на C++

Ответить
Настройки темы
C/C++ - Перевод процедуры с Pascal на C++

Аватара для Snake750

Старожил


Сообщения: 175
Благодарности: 0

Профиль | Отправить PM | Цитировать


Изменения
Автор: Drongo
Дата: 29-03-2009
Описание: Тег [code]...[/code]
помогите пожалуйста с переводом вот этой процедурки
Код: Выделить весь код
Function kkk(var ki,kj:byte):integer;
var i,j:byte;
k,k_min:integer;
b:boolean;
Begin
b:=1=1;
for i:=1 to Na do
for j:=1 to Nb do
if p[i,j]=-1 then begin
k:=c[i,j]-alfa[i]-betta[j];
if b then begin
b:=1=2;
ki:=i; kj:=j; k_min:=k;
end else
if k<k_min then begin
k_min:=k;
ki:=i; kj:=j;
end;
end;
kkk:=k_min;
End;
У меня вопрос возник на счет двойного присваивания значения переменной b.Перевести процедуру нужно на с++

Отправлено: 13:28, 29-03-2009

 

Новый участник


Сообщения: 7
Благодарности: 0

Профиль | Отправить PM | Цитировать


Цитата since12:
Z_a,Z_b:predpr »
получается это массив?

Отправлено: 22:47, 06-11-2010 | #51



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Старожил


Сообщения: 295
Благодарности: 30

Профиль | Отправить PM | Цитировать


Z_a и Z_b - это два однотипных массива.
Это сообщение посчитали полезным следующие участники:

Отправлено: 23:20, 06-11-2010 | #52


Новый участник


Сообщения: 7
Благодарности: 0

Профиль | Отправить PM | Цитировать


Цитата since12:
Nul(Z_a); Nul(Z_b);
alfa[1]:=0; Z_a[1]:=1; k:=1;
Repeat »
репит действует как?

a_b:=d;

и что делает вот это?

Отправлено: 23:38, 06-11-2010 | #53


Старожил


Сообщения: 295
Благодарности: 30

Профиль | Отправить PM | Цитировать


Цитата:
Repeat
d:=1=1;
for i:=1 to Na do
if Z_a[i]=1 then
for j:=1 to Nb do
if (p[i,j]>-1) and (Z_b[j]=0) then begin
Z_b[j]:=1;
betta[j]:=c[i,j]-alfa[i];
inc(k);
d:=1=2;
end;
for i:=1 to Nb do
if Z_b[i]=1 then
for j:=1 to Na do
if (p[j,i]>-1) and (Z_a[j]=0) then begin
Z_a[j]:=1;
alfa[j]:=c[j,i]-betta[i];
inc(k);
d:=1=2;
end;
Until (k=Na+Nb) or d;
Repeat сначала выполняет действия до Until. Затем проверяется условие после Until. Если оно равно false, эти действия повторяются вновь - до тех пор, пока условие после Until не получит true.

Цитата:
a_b:=d;
и что делает вот это?
Смотри исходник.
Цитата:
Function a_b:boolean;
Это выражение находится внутри этой функции. Значит, её результат (промежуточный или окончательный) в этой строке становится равным значению переменной d.
Это сообщение посчитали полезным следующие участники:

Отправлено: 00:08, 07-11-2010 | #54


Новый участник


Сообщения: 7
Благодарности: 0

Профиль | Отправить PM | Цитировать


Спасибо большое)пока все понятно)если что напишу еще)

Отправлено: 00:45, 07-11-2010 | #55


Новый участник


Сообщения: 1
Благодарности: 0

Профиль | Отправить PM | Цитировать


Ребят, помогите пожалусто.... Задача такая: нужна в СИ++ написать программу(элементарную), чтобы переводила программку с паскаля на си... т.е у меня есть программа на паскале, я должен запустить программу на СИ, откомпилировать и у меня должна выйти программа уже не на Паскале, а на СИ... Программа на паскале простая... Вывод текста на экран допустим... "Привет всем!".... помогите пожалусто написать эту программку на СИ++.... буду очень благодарен. Зараннее спасибо.

Отправлено: 22:49, 04-04-2011 | #56


Старожил


Сообщения: 295
Благодарности: 30

Профиль | Отправить PM | Цитировать


Цитата Jenea_oo:
я должен запустить программу на СИ, откомпилировать и у меня должна выйти программа уже не на Паскале, а на СИ... »
Сразу видно, что ты не в курсе, что такое "компиляция". А браться за такие вещи, не зная этой элементарщины, имхо, глупо. Тем более за "пожалусто".

Последний раз редактировалось Любезный, 05-04-2011 в 09:44.


Отправлено: 09:39, 05-04-2011 | #57



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - Перевод процедуры с Pascal на C++

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
C/C++ - Перевод с Pascal на C++ Snake750 Программирование и базы данных 14 14-09-2015 04:48
Разное - Всё о TURBO PASCAL (обсуждение, помощь в написание программ, ошибки, Pascal ABC) Loading Программирование и базы данных 41 20-05-2015 15:28
Использование - Возврат процедуры активации Windows XP Craager Лицензирование продуктов Microsoft 6 06-03-2009 15:22
Вызов процедуры ToX Программирование и базы данных 10 24-07-2004 00:11
Delphi - Delphi,Описание процедуры Roman Go Программирование и базы данных 14 09-03-2003 00:04




 
Переход