以后要多看看字符串的操作
November 30th, 2005 by 张磊
有高手说c里面有得最多的其实是对字符串的操作，看来以后要多多学习了。今天做题，因为字符串不会，都白忙了。
Archive for November, 2005
自己在acm月赛里做出的第一道题
November 30th, 2005 by 张磊
Code:
#include <stdio.h>
int main()
{
int i,t,y,no,j;
while (scanf("%d",&t)==1)
{
for (i=1;i<=t;i++)
{
scanf("%d%d",&y,&no);
if ((no<1)||(no>10000))
{
continue;
}
while (((y%4!=0)||(y%100==0))&&(y%400!=0))
{
y++;
}
j=1;
while (j<no)
{
y++;
if (((y%4==0)&&(y%100!=0))||(y%400==0))
{
j++;
}
}
printf("%d\n",y);
}
}
}
int main()
{
int i,t,y,no,j;
while (scanf("%d",&t)==1)
{
for (i=1;i<=t;i++)
{
scanf("%d%d",&y,&no);
if ((no<1)||(no>10000))
{
continue;
}
while (((y%4!=0)||(y%100==0))&&(y%400!=0))
{
y++;
}
j=1;
while (j<no)
{
y++;
if (((y%4==0)&&(y%100!=0))||(y%400==0))
{
j++;
}
}
printf("%d\n",y);
}
}
}
刚刚完成，太兴奋了
给社团联合会写的领票系统
November 29th, 2005 by 张磊
Code:
unit Unit1;interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Btn_exit: TButton;
memotxt: TMemo;
Panel1: TPanel;
Editxt: TEdit;
Btn_check: TButton;
Label1: TLabel;
procedure Btn_saveClick(Sender: TObject);
procedure Btn_exitClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Btn_checkClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Btn_saveClick(Sender: TObject);
begin
memotxt.Lines.SaveToFile(‘data.txt’);
ShowMessage(‘保存成功！’);
end;
procedure TForm1.Btn_exitClick(Sender: TObject);
var
remsg:integer;
begin
remsg:=Application.MessageBox(‘确定要退出系统吗？’,'操作提示’,MB_yesno+MB_IconQuestion) ;
if remsg=6 then
begin
close;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
memotxt.Lines.LoadFromFile(‘data.txt’);
ShowMessage(‘数据载入成功’);
end;
procedure TForm1.Btn_checkClick(Sender: TObject);
var
i:integer;
mytext:string;
noban:Boolean;
begin
noban:=true;
for i:=0 to form1.memotxt.Lines.Count-1 do
begin
mytext:=form1.memotxt.Lines[i];
if editxt.Text=mytext then
begin
showmessage(‘此学号已领取过票’);
noban:=false;
form1.Editxt.Text:=”;
break;
end
else
begin
noban :=true;
continue;
end;
end;
if noban then
begin
form1.memotxt.Lines.Add(editxt.Text);
form1.Editxt.Text:=”;
showmessage(‘学号已记录’);
memotxt.Lines.SaveToFile(‘data.txt’);
end;
end;
end.
不会操作文件，只好避重就轻。:ex2_42:
期末考试的一个题目：计算器
November 28th, 2005 by 张磊
做好一个界面都烦死了，还是个框架呢，以后会慢慢完善起来
Code:
program cal;
uses
Forms,
Unit1 in ‘Unit1.pas’ {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
谁没有发财梦
November 28th, 2005 by 张磊
谁没有发财梦？记得那时候buyren论坛来了个叫做打假办的人，抓住zhanghe4的blog上一句话“希望当当能早日上市，圆张智勇的发财梦”对智勇进行了疯狂的批斗，哼，这个人的身份后来我也大概查清楚了，要是他没有发财梦，干吗也仿着buyren做那么一个购物论坛？
我也很想发财，有钱的感觉很好，我不必常常顶着大风跑到1公里之外的ATM上取自己微薄的生活费，也不必在和GF打电话的时候担心明天手机欠费。生活会是多么惬意呢？我周围的也在想发财，他们说我好幸运，能有那么一个有钱的GF。谁不想发财呢？
只是人生总不为我们自己所设计，在我们需要努力的时候我们往往会借口推搪，于是更多的不满接踵而来，生活也将我们再三地挫败。如果我们只是向着钱财，也许我们永远都不会真正富裕起来，我们永远只能望着别人高高在上而哀叹。
没钱也罢，不要没有干劲，不要没有思想，不要没有恒心。
Buyren不再是个单纯的电子商务网站了
November 28th, 2005 by 张磊
今天上buyren，看到一个链接“也许是世界上唯一有稿费的博客”。居然是buyren自己的blog服务。buyren正在成长，我很对着感到很惊讶。
智勇永远是智勇，我原本以为他在之前的bsp的不成功之后，应该不会再涉足这里了，而且事务又是如此繁忙。但我又看到了http://blog.buyren.net，而且，这样的模式比以前进步了太多。
所谓的“稿费”也许会在将来的某一天取消，如果真的有那么一天，说明buyren的blog已经足够成功了。当然要支持一下buyren的blog，也许我以后每一篇都要copy一份过去。
但是这套系统明显是依托于论坛的（我不是说它不是独立的），只是简单地实现了发布文章的功能，需要改进的地方还有很多。比如自定义模板，但不乐观一点说，这个功能可能永远也不会有。
整了一晚上……
November 26th, 2005 by 张磊
今天blog终于被解放了！
每天我都不忘记去http://pai.buyren.net转一转，但看来看去都只有9个卖家。我写的系统还在不断完善之中。整完了，我就跑到这里，想动动手术给这套系统。
那时候馒头和我说友情链接的事情，我就毫不犹豫地把随机选择的部分去掉了（学了php，有底气了）……成功了。然后又把顶上的链接改了一下，把不需要的部分毫不留情的去掉了。希望这个月不要再超流量了，要不我真会疯掉。
这两天每天上机都忙死呢。红包网的系统应该成熟了，现在关键就是要搜罗到更多的卖家，宣传方面还有待提高……。
今天一早爬起来，给老婆去弄自主招生的事情，然后……传真4块钱一张到山西，天价也不过如此。不过那边接线的MM声音很不错……
下一步的目标我还没有。馒头又回来了，Buyren的团队也将正式成型。红包网的系统成型了，就只需要日常的维护了，最多再把后台的功能完善一下。还要做的事就是跟老师搞好关系，多学一点专业知识，至少比我的同学们超前3个学期……
开始相信自己是真的很强
November 26th, 2005 by 张磊
今年我17周岁。最近又学了一些东西，让我有了那时学会flash时的感觉。很有成就感，也很有继续深入学习的激情。
Livid今年只有20岁，当我第一次看到他的blog，就对他充满了崇拜也把它作为自己的偶像。3年，我会成为他那样的高手吗？曾经这些我没有敢想，但现在突然就很有信心。也许livid不知道，有这么一个大一的学生，默默地以他为目标努力着。
正在负责的http://pai.buyren.net 也许是我真正做的第一件事。现在的我，相信自己一定会把红包网做好。今年17岁，我的青春似乎注定是充实的。
好爽，虽然有点败家
November 26th, 2005 by 张磊
这几天在为http://pai.buyren.net 浪费脑细胞。在杭州这个什么都要钱的地方，上一个小时网要两块钱。周末泡了一天，做了一个简单的系统出来，这几天又在不断的完善之中。
想象自己的第一段php就献给buyren了，真是有点郁闷：）……写得虽然不好，却也敝帚自珍……还马上拿了一个本子出来，外面工整地写上“buyren开发手记”。
我从来没想到自己会这么热衷，不过趴在桌上写代码的感觉很爽，然后再把它们传到ftp，那种成就感，象是自己买了google一样。
