| Frozen_Sky |
17-03-2014 16:19 2324871 |
из Pascal в C++
Помогите, пожалуйста, перевести небольшой код из 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.
|
Ежели не особо заботит читаемость получаемого кода, можно воспользоваться автоматическими конвертерами из Паскаля в С/С++. А их не так мало:
PtoC - скачивать отсюда
p2c -- a Pascal to C translator
В последней ссылке забита строка поиска в Гугле на все остальное. А его (остального) немало! |
Время: 13:34.
© OSzone.net 2001-
