| Profil de Hao电子小虫 PlusBlogListesLivre d'or | Aide |
带牙套了~~~今天上午去小白象,装上了牙套。难受死了,到晚上所有牙都疼,吃饭都吃不下,只有喝汤不疼。唉,还有一年半呢,任重而道远啊。本来我就瘦,这一下又要减肥了。医生说别吃硬的,我看豆腐我都吃不下。要一天刷三回牙,在学校怎么刷牙? Ooops~~疼死我了~~~ “云存储计划”---谢谢gmail了 家里硬盘实在太小,只有40G,而且天天出问题,万一哪天咔嚓一下,多少照片、程序全完了。Gmail空间巨大(8GB呢),本人决定利用软件把文件慢慢传上去,此乃对Google云计算工程的有效支持(^_^)。本来准备用Gmail Driver传文件,后来得知被Google封了(太不厚道了),于是换了个gmailstore(http://groups.google.com/group/gmailstore/web/index-2),国产的,中文支持好,而且是绿色软件,放U盘里就可以了。
主要转移对象为:Windows中E:的照片,Linux中mydoc的旧程序,并复制些电子书。
解放硬盘万岁!
汇编语言的A+B(采用C函数)前阵子学汇编语言,难死了。这是汇编版的A+B,AT&T格式,Windows函数名(Linux请把所有的_去掉),保存为*.s,可以用gcc编译:
.dataa:.int 0//加数1b:.int 0//加数2rd:.asciz "%d"//scanf参数pr:.asciz "%d\n"//printf参数
.text.globl _main_main:noppushl $apushl $rdcall _scanfaddl $8,%esp//读入a
pushl $bpushl $rdcall _scanfaddl $8,%esp//读入b
movl $0,%eaxadd a,%eaxadd b,%eax//a+b—>%eax
pushl %eaxpushl $prcall _printfaddl $8,%esp//输出
pushl $0call _exit//退出PasCalc II Beta Test --- 强大的计算器C语言写的,窝了好久,总算发布了。像彭勃这样的高手可以自行阅读源码,推荐安装codeblocks阅读,方便管理。 PasCalc II Beta Test 帮助 一.简介 二.公式规范 三.变量及定义 四.常量 五.运算符及函数优先级 注意,省略的乘号也作为乘号。 六.命令 七.函数列表模式 我的音乐程序核心(完整介绍) 公开一下我的音乐程序核心(请用 Turbo Pascal 编译,若200号错误请打补丁 http://www.brain.uni-freiburg.de/~klaus/pascal/runerr200/t7tplfix.zip 解压到tp/bin运行t7tplfix.exe,再按p键)。
无需开音响,可能会出现速度过快,那是程序不太稳定~~~
uses crt;
procedure music(i:integer; n,wait:integer); { i:表示音调的范围(音符下面加点的是0,无点的是1,上面加点的是2)
n:音符(1哆 2来 3咪...) wait:声音持续时间(0.1秒*wait)} var st,hz:real; {st:哆的频率 hz:音调频率} begin case i of 0:st:=130.5; 1:st:=261; 2:st:=522; end; case n of
0:hz:=-st; 1:hz:=0; 2:hz:=st*1/12*2; 3:hz:=st*1/12*4; 4:hz:=st*1/12*6; 5:hz:=st*1/12*7; 6:hz:=st*1/12*9; 7:hz:=st*1/12*11; 8:hz:=st*1/12*12; end; sound(round(st+hz));
delay(100*wait); nosound; delay(50); end; begin
music(2,1,4); {高1,一拍} music(2,1,2); {高1,半拍} music(1,3,2); {3,半拍} music(1,5,8); {5,一拍} music(2,1,4); {高1,一拍}
music(2,1,2); {高1,半拍} music(1,3,2); {3,半拍} music(1,5,8); {5,两拍} .....
end.
|
|
|