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

Компьютерный форум 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

 

Аватара для Alan85

Забанен


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

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


Эх какое знакомое чувство дискомфорта и автоматом набирающий i:= вместо i= , if (i=5) вместо if (i==5) и так далее. Конфортнее в делфях все же так и осталось

Отправлено: 21:29, 30-03-2009 | #31



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

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


Аватара для Snake750

Старожил


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

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


Код: Выделить весь код
Procedure div_mod(c:byte; var a,b:byte);
Begin
b:=c mod Nb; a:=c div Nb +1;
if b=0 then begin
b:=Nb; dec(a);
end;
End;
Переведите плз на с++.у меня че то не получаеться

Отправлено: 22:40, 30-03-2009 | #32


Аватара для Alan85

Забанен


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

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


Пишу в слепую без компилятора если что поправте:
Код: Выделить весь код
 void div_mod(char c, char& a, char& b);
{
 b=c % Nb;
 a=c / Nb +1;
 if (!b) { b=Nb; a--; }
}
Это сообщение посчитали полезным следующие участники:

Отправлено: 10:11, 31-03-2009 | #33


Аватара для Drongo

Будем жить, Маэстро...


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

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


Цитата Snake750:
if b=0 then begin »
Цитата Alan85:
if (!b) { b=Nb; a--; } »
Оператор '!' - вроде бы оператор отрицания. А нужно оператор сравнения. Мне кажется, что должно быть так:
Код: Выделить весь код
...
if(b == 0)
...
P.S. На истине не настаиваю, так как Pascal не владею.

-------
Правильная постановка вопроса свидетельствует о некотором знакомстве с делом.
3нание бывает двух видов. Мы сами знаем предмет — или же знаем, где найти о нём сведения.
[Quick Killer 3.0 Final [OSZone.net]] | [Quick Killer 3.0 Final [SafeZone.cc]] | [Парсер логов Gmer] | [Парсер логов AVZ]

http://tools.oszone.net/Drongo/Userbar/SafeZone_cc.gif


Отправлено: 13:41, 31-03-2009 | #34


Аватара для Alan85

Забанен


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

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


Код: Выделить весь код
if (!b) ... \\если b>0 то даст отрицание "истины" - то есть "лож", а если b=0 то даст отрицание "лжи" - истину. значит это        \\эквивалентно 
if (b==0) \\ так как 0 есть лож в c и с++
Это сообщение посчитали полезным следующие участники:

Отправлено: 13:50, 31-03-2009 | #35


Аватара для Snake750

Старожил


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

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


Код: Выделить весь код
#include "stdafx.h"
#include <iostream>
#include <string.h>
#include <stdlib.h>
#include <conio.h>
#include <windows.h>
#include <math.h>
#include <iomanip>
//using namespace std;
unsigned char Nt,x_p,r,r_min,ki,kj,Na,Nb,h,l,i,j;
......
int _tmain(int argc, _TCHAR* argv[])
{Nul(alfa); 
Nul(betta);
Nt=1;
system("cls");

do

std::cout << "Postavshiki:";
std::cin  >> Na;
std::cout << "Potrebiteli:";
std::cin  >> Nb;
while ((Na>1) && (Na<=N-1) && (Nb>1) && (Nb<=N-1));
Tabl;
getch();
return 0;
}
Error 13 error C2061: syntax error : identifier 'cin'
что это за ошибка.библиотеки вроде все подключены.ошибка вылазит только в цикле??

Отправлено: 17:43, 31-03-2009 | #36


Аватара для Alan85

Забанен


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

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


Цитата Snake750:
Error 13 error C2061: syntax error : identifier 'cin' »
убери // в строчке:
Код: Выделить весь код
//using namespace std;

Отправлено: 19:06, 31-03-2009 | #37


Аватара для Snake750

Старожил


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

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


пробовал,не катит.а если убрать цикл то все работает

Отправлено: 19:09, 31-03-2009 | #38


Аватара для Alan85

Забанен


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

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


а ну тогда убери std:: , если не поможет то убери std:: и #include <iostream> замени на #include <iostream.h>

Отправлено: 21:02, 31-03-2009 | #39


Аватара для Snake750

Старожил


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

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


Вы меня не так поняли.библиотеки <iostream.h> у меня вообще нет.а сами процедуры ввода(cin>> и scanf) у меня работают=> библиотеки впорядке.компилятор выдает ошибку только при попытке использовать данные операторы в цикле do..while

Отправлено: 21:32, 31-03-2009 | #40



Компьютерный форум 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




 
Переход