C/C++ - из Pascal в C++

C/C++ - из Pascal в C++

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

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

Изменения

Автор: 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

XPEHOMETP

Ветеран

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

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

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

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

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