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

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

Ответить
Настройки темы
C/C++ - из Pascal в C++

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


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

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


Изменения
Автор: Drongo
Дата: 17-03-2014
Помогите, пожалуйста, перевести небольшой код из Pascal в C++, си просто недавно изучать начал, пока испытываю трудности, а времени маловато осталось) Заранее благодарен

Код: Выделить весь код
program ferz;
uses crt;
var h,v:array[1..8]of byte;
    ch:char; k,i:integer;
 
begin
 clrscr;
 writeln('Vvedite koord. ferzei:');
 for i:=1 to 3 do
 begin
  write(i,': ');
  readln(ch,h[i]);
  v[i]:=ord(upcase(ch))-64;
 end;
 
 k:=0;
 if (v[1]=v[2]) or (h[1]=h[2]) or (abs(h[1]-h[2])=abs(v[1]-v[2])) then
 begin;
  writeln('Ugrozhauyt 1 i 2 ferzi');
  inc(k);
 end;
 
 if (v[1]=v[3]) or (h[1]=h[3]) or (abs(h[1]-h[3])=abs(v[1]-v[3])) then
 begin;
  writeln('Ugrozhauyt 1 i 3 ferzi');
  inc(k);
 end;
 
 if (v[3]=v[2]) or (h[3]=h[2]) or (abs(h[2]-h[3])=abs(v[2]-v[3])) then
 begin;
  writeln('Ugrozhauyt 2 i 3 ferzi');
  inc(k);
 end;
 
 if k=0 then writeln('Nikakie ferzi drug drugu ne ugrozhauyt');
 readln;
end.

Отправлено: 16:19, 17-03-2014

 

Ветеран


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

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


Ежели не особо заботит читаемость получаемого кода, можно воспользоваться автоматическими конвертерами из Паскаля в С/С++. А их не так мало:

PtoC - скачивать отсюда
p2c -- a Pascal to C translator
В последней ссылке забита строка поиска в Гугле на все остальное. А его (остального) немало!

Отправлено: 11:41, 18-03-2014 | #2



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

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



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

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

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Разное - Всё о TURBO PASCAL (обсуждение, помощь в написание программ, ошибки, Pascal ABC) Loading Программирование и базы данных 41 20-05-2015 15:28
C/C++ - перевести из Pascal в C++ Ластик Программирование и базы данных 12 28-11-2013 15:20
C/C++ - Перевести програму из Pascal на C starker Программирование и базы данных 0 13-12-2012 19:02
Разное - Pascal. Запись из массива в файлы. lenaustkz84 Программирование и базы данных 11 26-01-2012 18:32
Разное - Pascal Mishqa Программирование и базы данных 1 16-12-2009 20:37




 
Переход