2011年1月25日

program abc;
uses crt;
var
   a,b:string;
   c,d,e,f,g,h,i:real;
begin
     textcolor(white);
     clrscr;
     gotoxy(30,10);
     write('Name:');
     gotoxy(30,11);
     write('Class:');
     gotoxy(30,14);
     write('Enter Subject 1:');
     gotoxy(30,15);
     write('Enter Subject 2:');
     gotoxy(30,16);
     write('Enter Subject 3:');
     gotoxy(30,17);
     write('Enter Subject 4:');
     gotoxy(30,18);
     write('Enter Subject 5:');

     gotoxy(36,10);
     readln(a);
     gotoxy(37,11);
     readln(b);
     gotoxy(48,14);
     readln(c);
     gotoxy(48,15);
     readln(d);
     gotoxy(48,16);
     readln(e);
     gotoxy(48,17);
     readln(f);
     gotoxy(48,18);
     readln(g);
     readkey;


     h:=c+d+e+f+g;
     i:=h/5;

     clrscr;
     gotoxy(30,10);
     write('Name:',a);
     gotoxy(30,11);
     write('Class:',b);
     gotoxy(30,12);
     write('Total Mark:',h:3:2);
     gotoxy(30,13);
     write('Average:',i:3:2);
     gotoxy(30,15);
     write('Press any key to continue');
     readkey;
end.

以上的东东 我相信没什么人看的懂
这是我今天的电脑作业 用第三代语言程式写东西
超夸张的咯 今年的电脑尽然学这种东西 实在~~~恐怖
花了半个小时多才写好 结果老师只花了几分钟 变态！
我想说 可不可以换点简单的 写电脑程式叻？！
如果以后读医科 要会写电脑程式吗？？
如果以后读建筑 要会写电脑程式吗？？
如果以后我做老板 我可以直接请人写吗？？
干嘛要让我们学着玩意儿啊？！真是搞不懂 晕~
不止我晕 我看班上很多人都快吐了
今天真的花了很长时间 死命打字 删删改改 才写好的 呼~
不提电脑了 提了还真扫兴~~

话说 病还没好 到了学校还是烧烧的 有点累
进到班上后就直接睡了 睡了半个小时多才起来
后来头就很痛 不是普通的痛 痛到我眼球内都感觉快要爆了
我的班在三楼 一些特别课程得到特别课室上
上上下下的 顶着一颗快要爆的头走来走去 实在辛苦啊！
被傻羊会好吗？我想试试看哦~~
不想吃药 尤其是头痛药 不是因为我怕哦
是因为一颗panadol吃下肚子后 会残留在身体内5年哦！！
我才不想身体内残留这种东西 我宁愿忍一忍
痛了好几个小时了 早上到现在还在痛 眼睛热热的
有哪个好心的家伙能来照顾我这可怜的家伙？
回到家 自己一个人 是闷到~~~（我不会想撞墙 因为很痛）
有点辛苦的说~
今天没有功课 虽然生病 但还是舍不得离开电脑 哈哈
今天也没什么特别的了 停笔咯
如果还有 迟点再发表了 眼睛+头很痛T.T