Добавлено (2011-05-30, 11:59 PM)
---------------------------------------------
isden, и вообще, не стоит писать за девочку, пусть учится сама, так ей пользы будет в 100 раз больше.=)

Добавлено (2011-05-31, 0:01 Am)
---------------------------------------------
KaDeaT, на СИБ ей это макс 1 семестр еще нужно будет

Добавлено (2011-05-31, 11:05 PM)
---------------------------------------------
ну вот...игра..
uses graph,crt;
var mass: array[1..3,1..3] of string[20];
Procedure Massive;
begin
mass[1,1]:='Nothing'; mass[1,2]:='You win'; mass[1,3]:='You lose'; mass[2,2]:='Nothing'; mass[3,3]:='Nothing'; mass[2,1]:='You lose'; mass[2,3]:='You win'; mass[3,1]:='You win'; mass[3,2]:='You lose';
end;
procedure game(x,y:byte);
var driver,mode,error:integer; k:char;
begin
driver:=detect;
initgraph(driver,mode,'C:\tp7\BGI');
{ if error<>grOk then writeln(grapherrormsg(error))
else }
begin
textcolor(white);
outtextXY(20,12,mass[x,y]); outtextXY(200,12,'Your choose'); outtextXY(350,12,'Comp choose');
case x of
3:begin
setfillstyle(1,white); bar(160-30,240-30,160+30,240+30);
end;
1:begin
setfillstyle(1,8); fillellipse(160,240,80,30);
end;
2:begin
circle(125,210,5); circle(125,270,5);
line(160-30,240+30,160+50,240-30); line(160-30,240-30,160+50,240+30)
end
end;
case y of
3:begin
setfillstyle(1,white); bar(480-30,240-30,480+30,240+30);
end;
1:begin
setfillstyle(1,8); fillellipse(480,240,80,30);
end;
2:begin
circle(445,210,5); circle(445,270,5);
line(480-30,240+30,480+50,240-30); line(480-30,240-30,480+50,240+30)
end
end;
line(320,0,320,480);
readln;
closegraph;
end;
end;
procedure igra;
var n,m:word; y:boolean; s:string; k:char;
begin
y:=true;
repeat
randomize;
n:=random(3)+1;
repeat
clrscr;
writeln('‚Выберите предмет: '); writeln('1: Камень(круг)'); writeln('2: Ножницы(крестик)'); writeln('3: Бумага(квадрат)');
k:=readkey;
m:=ord(k)-48;
if k=#27 then halt;
until (m=1)or(m=2)or(m=3);
massive;
game(m,n);
until not(y);
end;
begin
igra;
end.

что скажете?

Добавлено (2011-05-31, 11:25 PM)
---------------------------------------------
неа, не могу =)