FPC版LOL(未编完)
pascal吧
全部回复
仅看楼主
level 1
JHCKN88712 楼主
program LOL_IN_fpc;
VAR ah,bh,amvad,bmvad,amvap,bmvap,aad,bad,aap,bap,alan,blab,ahp,bhp,q1t,q2t,w1t,w2t,
e1t,e2t,r1t,rrt,g1,g2,t1,t2,abj,bbj,abs,bbs,ateet,bfeet,ax,bx,xzyx,aahp,bahp:real;
af,bf,axy,bxy:boolean;
i,j,k,l:longint;
procedure suan(uad,muad:real);
begin
if uad<=100 then
muad:=uad/2/100;
if uad<=200 then
muad:=0.5+(uad-100)*0.25;
if uad<=250 then
muad:=0.75+(uad-200)*0.1;
if uad<=300 then
muad:=0.8+(uad-250)*0.05;
if uad>300
then muad:=82.5+(uad-300)*0.02;
end;
begin
for i:=1 to 80 do
writeln;
writeln('现在,你是名英雄,请选择你的英雄:');
writeln('1:yasuo',' ','2:ZED',' ','3:Akko',' ','4:EZreal');
read(xzyx);
if xzyx=1 then begin writeln('装B如风,常伴吾身……');
if xzyx=2 then writeln('装B,是贤者的导师');
if xzyx=3 then writeln('装B,不在于你装多少,而在于你如何去装');
if xzyx=4 then writeln('是时候表演装B的技术了!');
writeln('瓦洛兰大陆正在饱受腥风血雨,英雄联盟中的英雄四处逃散,各自为政,你孤身一人,带着
一只小包,踏上前行的路…………');
writeln('loading……');
writeln('进入新手导学');
writeln('了解你的被动');
end.
2016年07月08日 07点07分 1
1