Перевод с Pascal на С Опции

[CORS@R]

Мне нужно чтобы вот эта программа была написана на Си, но с Си у меня проблемы. Помогите пожалуйста

uses crt;
label start, money, exit;
var
x,y:byte;
sum,rez,otv,stavka:integer;
begin
textbackground(1);
textcolor(10);
clrscr;
randomize;
sum:=100;
writeln;
writeln( '							   Ћђ…‹ €‹€ ђ…˜ЉЂ			');
while sum>0 do
begin
if sum>=1000 then
begin
writeln;
writeln(' Њ®Ґ Є §Ё­® ®Ў ­Єа®вЁ«®бм, в Є зв® Ё¤Ё Є  вл ®вбо¤  Ї®Є  п вҐЎп ­Ґ гЎЁ«');
writeln;
readln;
goto exit;
end;
start:
writeln;
writeln(' 0-Ћђ…‹  1-ђ…˜ЉЂ  2-‚›•Ћ„ €‡ €ѓђ›');
writeln;
readln(otv);
if otv>2 then
begin
writeln;
writeln(' ’л зҐ б«ҐЇ®©? Ќ ЇЁб ­® ¦Ґ  0-Ћђ…‹  1-ђ…˜ЉЂ  2-‚›•Ћ„ €‡ €ѓђ› ');
writeln;
writeln( ' Ђ ' ,otv,' п зв®-в® ­Ґ ўЁ¦г');
writeln;
goto start;
end;
if otv=2 then goto exit;
if otv=0 then
begin
x:=WhereX;
y:=WhereY-1;
gotoXY(x,y);
writeln(' Ћђ…‹');
end;
if otv=1 then
begin
x:=WhereX;
y:=WhereY-1;
gotoXY(x,y);
writeln(' ђ…˜ЉЂ');
end;
money: begin
writeln;
Writeln(' ” ⥡п ',sum,' агЎ«Ґ©. ‘Є®«мЄ® бв ўЁим?');
writeln;
readln(stavka);
if stavka>sum then
begin
writeln;
writeln(' ’л зҐ бзЁв вм зв® «Ё ­Ґ 㬥Ґим, г вҐЎп ­Ґв в ЄЁе ¤Ґ­ҐЈ!!!');
readln;
goto money;
end;
rez:=random(2);
if rez=1 then
begin
writeln;
writeln(' ‚лЇ «  ђ…˜ЉЂ');
end;
if rez=0 then
begin
writeln;
writeln(' ‚лЇ « Ћђ…‹');
end;
if rez=otv then
begin
writeln;
writeln(' ”г и а ');
sum:=sum+stavka;
writeln;
writeln(' ‘зҐв: ',sum);
writeln('-----------------------------------------------------------------');
end
else begin
writeln;
writeln( ' ”г б в ЄЁ¬ ЁЈа вм ¤ ¦Ґ ­Ґ Ё­вҐаҐб­®');
sum:=sum-stavka;
writeln;
writeln(' ‘зҐв: ',sum);
writeln('------------------------------------------------------------------');
end;
end;
end;
if sum<=0 then
begin
writeln;
writeln(' ” вҐЎп § Є®­зЁ«Ёбм Ў ЎЄЁ. Љ Є в®«мЄ® Ї®пўпвбп, § е®¤Ё');
readln;
end;
exit: end.

[CORS@R]

В принципе работает. Но у пользователя спрашивается только 1 раз Орел или решка, а потом - только сколько он будет ставить. И еще нет выхода: когда денег на счету 0 и при вводе любой суммы пишет что нет таких денег и все. Все равно спасибо.

PS Все таки я попытаюсь разобраться с файлами в Паскале. Хорошо что это задание на след. семестр

Сообщение отредактировано: CORS@R - 4.02.2006 0:05