uses crt;
var t:text;ch,k:char;s:string;q,n:longint;y,x:array['a'..'d']of longint;
procedure save(s:string);
begin
assign(t,s);rewrite(t);writeln(t,q);
writeln(t,y['a'],' ',y['b'],' ',y['c'],' ',y['d']);close(t);
end;
procedure print(ch:char);
begin
clrscr;
writeln('名称 ',ch);writeln('单价 ',x[ch]);writeln('拥有 ',y[ch]);writeln;
writeln('钱 ',q);writeln('1买 2卖 3离开');
end;
procedure go;
begin
clrscr;
writeln('名称 单价 拥有');
for ch:='a' to 'd' do writeln(ch,x[ch]:8,y[ch]:4);
ch:=readkey;
case ch of
'a','A':print('a');
'b','B':print('b');
'c','C':print('c');
'd','D':print('d');
'g','G':begin for ch:='a' to 'd' do x[ch]:=random(1000);go;end;
end;
k:=readkey;
if k<>'3' then begin clrscr;writeln('要多少？');readln(n);end else go;
if (k='1')and(n*x[ch]>q)then
begin clrscr;write('买不起!');readkey;go;end;
if (k='2')and(n>y[ch])then
begin clrscr;write('卖不了!');readkey;go;end;
if k='1' then
begin q:=q-n*x[ch];inc(y[ch],n);end;
if k='2' then
begin dec(y[ch],n);q:=q+n*x[ch];end;
save(s);
writeln('OK!');
readkey;
go;
end;
procedure zc;
begin
write('请输入账号：');
readln(s);q:=1000;for ch:='a' to 'd' do y[ch]:=0;
save(s);
end;
procedure dl;
begin
write('请输入账号：');
readln(s);assign(t,s);reset(t);readln(t,q);
readln(t,y['a'],y['b'],y['c'],y['d']); close(t);
end;
procedure csh;
begin
clrscr;
randomize;
for ch:='a' to 'd' do x[ch]:=random(1000);
writeln('投资小游戏');
writeln(' 1. 注册');
writeln(' 2. 登陆');
case readkey of
'1':zc;
'2':dl;
end;
end;
begin
csh;
go;
end.
注：空格自己掌握。
玩法：低买高卖赚钱