所有分数求教…………………………

2005-06-06 10:48:22 690 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

埃及分数［算法］埃及同中国一样，也是世界文明古国之一。古埃及人只用分子为1的分数，在表示一个真分数时，将其分解为若干个埃及分数之和，例如：7/8表示为1/2+1/3+1/24。设计程序把一个真分数表示为最少的埃及分数之和的形式这涉及到了贪心的思想，即，每一项都是减去前一项后，留下分子是1的最大真分数就可以了，所以如何找到真分数包含的最大埃及分数，就是解决问题的关键了。设真分数为A/B，B除以A的整数部分为C，余数为D，则有下式成立： B=AC+D 即 B/A=C+D/A＜C+1(因为D/A是小于1的，因此呢，C+D/A 阅读详情

想要做一个程序，探知一个未知IP的机器的IP地址；
目前的想法是截获那台未知IP机器发出的IP数据包，然后从中获取他的IP，不知道该怎么做，或者那位高手能够指点一个更好的实现方法，最后的一点分数，全部放出来，希望不要嫌少！！！！
再现等待……

...全文

将真分数分解为埃及分数题目描述分子为1的分数称为埃及分数。现输入一个真分数(分子比分母小的分数，叫做真分数)，请将该分数分解为埃及分数。如：8/11 = 1/2+1/5+1/55+1/110。接口说明 /* 功能: 将分数分解为埃及分数序列输入参数： String pcRealFraction:真分数(格式“8/11”) 返回值： String pcEgpytFraction:分... 阅读详情

何鲁青

网络通信/分布式开发 1,594 成员 32,944 内容

+ 关注 + 加入社区

切换为时间正序

jenycheng 2005-07-15

打赏
举报

这个帖子一定要留住！！！

MARK以下

以后留着看！！！

何鲁青 2005-06-17

打赏
举报

这里的分有个p用哦
////////////////
知识问答，这句话里p表示什么意思？
回答正确就给分...-_-!!

foolishidea 2005-06-16

打赏
举报

uses WinSock2

const
SIO_RCVALL = IOC_IN or IOC_VENDOR or 1;

jinhaiwu 2005-06-16

打赏
举报

不要老是解决问题就给分。。。。。。。。。。。。。。
这里的分有个p用哦
我感觉还是一个角比较爽

jinhaiwu 2005-06-16

打赏
举报

{ Protocols }

{$EXTERNALSYM IPPROTO_IP}
IPPROTO_IP = 0; { dummy for IP }
{$EXTERNALSYM IPPROTO_ICMP}
IPPROTO_ICMP = 1; { control message protocol }
{$EXTERNALSYM IPPROTO_IGMP}
IPPROTO_IGMP = 2; { group management protocol }
{$EXTERNALSYM IPPROTO_GGP}
IPPROTO_GGP = 3; { gateway^2 (deprecated) }
{$EXTERNALSYM IPPROTO_TCP}
IPPROTO_TCP = 6; { tcp }
{$EXTERNALSYM IPPROTO_PUP}
IPPROTO_PUP = 12; { pup }
{$EXTERNALSYM IPPROTO_UDP}
IPPROTO_UDP = 17; { user datagram protocol }
{$EXTERNALSYM IPPROTO_IDP}
IPPROTO_IDP = 22; { xns idp }
{$EXTERNALSYM IPPROTO_ND}
IPPROTO_ND = 77; { UNOFFICIAL net disk proto }

何鲁青 2005-06-16

打赏
举报

终于搞定了，能够获取IP数据报了，谢谢楼上的各位高手。
现在有个问题是
TIPHeader = packed record
iph_verlen: byte; // Version and length
iph_tos: byte; // Type of service
iph_length: word; // Total datagram length
iph_id: word; // Identification
iph_offset: word; // Flags, fragment offset
iph_ttl: byte; // Time to live
iph_protocol: byte; // Protocol
iph_xsum: word; // Header checksum
iph_src: longword; // Source address
iph_dest: longword; // Destination address
end;
这里的iph_protocol: byte;给我的是一个byte类型的编号，
不知道谁有编号对应的表，让我查出来到底是什么通信协议
解决问题就给分...

何鲁青 2005-06-15

打赏
举报

本来想省事的，没想到弄巧成拙，我分开写写看，如果成功就给分了...

jinhaiwu 2005-06-15

打赏
举报

晕啊，函数分开写多好，为什么要合并到一起。。。。。。。。。

何鲁青 2005-06-15

打赏
举报

我仿佛明白了，应该了写成两个函数对不对？

何鲁青 2005-06-15

打赏
举报

获得IP那段是从这个函数改过去的
/////////////////////////////////////
uses winsock;

function MyForm.NetGetLocalIP(var LocalIp,LocalHostName: string): Boolean;
var
HostEnt: PHostEnt;
Ip: string;
addr: pchar;
strName: string;
Buffer: array [0..63] of char;
GInitData: TWSADATA;
begin
Result := False;
try
WSAStartup(2, GInitData);
GetHostName(Buffer, SizeOf(Buffer));
HostEnt := GetHostByName(buffer);

if HostEnt = nil then Exit;
LocalHostName:=StrPas(HostEnt^.h_name);
addr := HostEnt^.h_addr_list^;
ip := Format('%d.%d.%d.%d', [byte(addr [0]),
byte (addr [1]), byte (addr [2]), byte (addr [3])]);
LocalIp := Ip;
Result := True;
finally
WSACleanup;
end;
end;

何鲁青 2005-06-15

打赏
举报

我把代码贴出来吧，你帮忙给看看
/////////////////////////
procedure TForm1.FormCreate(Sender: TObject);
var iErrorCode:integer;
wsd:TWSADATA;
host:sockaddr_in;
Buffer: array [0..63] of char;
HostEnt: PHostEnt;
bopt:integer;
begin
if WSAStartup(MAKEWORD(2,2),wsd)=0 then
begin
MySocket:=socket( AF_INET , SOCK_RAW , IPPROTO_IP );//------------------ipproto_raw
if MySocket<>INVALID_SOCKET then
begin
bopt:=1;
iErrorCode:=setsockopt(MySocket, SOL_SOCKET, SO_RCVTIMEO, @bOpt, sizeof(bOpt));
if iErrorCode<>SOCKET_ERROR then
begin
GetHostName(Buffer, SizeOf(Buffer));
HostEnt:=GetHostByName(Buffer);
if HostEnt <> nil then
begin
showmessage(HostEnt^.h_name);
Host.sin_addr:=in_addr(HostEnt^.h_addr_list);
//Host.sin_addr:=Inet_addr(pchar(FActiveIP[i]));
Host.sin_family:=AF_INET;
Host.sin_port:=htons(7000);
if bind(MySocket, Host, sizeof(Host))<>SOCKET_ERROR then showmessage('网卡绑定成功！！！')
else
begin
showmessage('错误类型：'+IntToStr(WSAGetLastError));
//WSAEADDRNOTAVAIL 10049 Cannot assign requested address.
end;
end;
end
else showmessage('设置网卡属性时失败！！');
end;
end;
end;

jinhaiwu 2005-06-15

打赏
举报

ginitdata: twsadata;

要调用 wsastartup(2, ginitdata);进行初始化

最后要释放 wsacleanup;

何鲁青 2005-06-15

打赏
举报

我用这种方法获取IP的，不知道为什么不对
GetHostName(Buffer, SizeOf(Buffer));
HostEnt:=GetHostByName(Buffer);
Host.sin_addr:=in_addr(HostEnt^.h_addr_list);

jinhaiwu 2005-06-15

打赏
举报

TWSAIoctl = function(s: TSocket; cmd: DWord; lpInBuffer: PCHAR;
dwInBufferLen: DWord; lpOutBuffer: PCHAR; dwOutBufferLen: DWord;
lpdwOutBytesReturned: LPDWORD; lpOverLapped: POINTER;
lpOverLappedRoutine: POINTER): Integer; stdcall;

WSAIoctl:TWSAIoctl ;
dwBufferLen: array[0..10] of DWord;
dwBufferInLen: DWord;
dwBytesReturned: DWord;

dwBufferInLen := 1;
dwBytesReturned := 0;
//设置Fsocket为SIO_RCVALL接收所有的IP包
iErrorCode := FWSAIoctl(Fsocket[i], SIO_RCVALL, @dwBufferInLen,
sizeof(dwBufferInLen),
@dwBufferLen, sizeof(dwBufferLen), @dwBytesReturned, nil, nil);

jinhaiwu 2005-06-15

打赏
举报

我是监听机器上的所有ip，才用数组的

jinhaiwu 2005-06-15

打赏
举报

你机器的监听ip

何鲁青 2005-06-15

打赏
举报

FActiveIP[i]是从哪里得到的？就是这个地方不明白呀！！！

何鲁青 2005-06-15

打赏
举报

谢谢楼上的，我感觉这就是我要找的，试一下，希望你继续关注这个帖子...

jinhaiwu 2005-06-15

打赏
举报

sa: tSockAddrIn;
iErrorCode :integer ;

Fsocket[i] := socket(AF_INET, SOCK_RAW, IPPROTO_IP);
sa.sin_family := AF_INET;
sa.sin_port := htons(i);
sa.sin_addr.S_addr := Inet_addr(pchar(FActiveIP[i]));
iErrorCode := bind(Fsocket[i], sa, sizeof(sa));
if(iErrorCode <> SOCKET_ERROR )then..............

何鲁青 2005-06-15

打赏
举报

一大早up一下，进来的跟我说说怎样绑定端口把，我的总是出错误，
GetHostName(Buffer, SizeOf(Buffer));
HostEnt:=GetHostByName(Buffer);
if HostEnt <> nil then
begin
showmessage(HostEnt^.h_name);
Host.sin_addr:=TInAddr(HostEnt^.h_addr_list);//可能是这里的毛病
Host.sin_family:=AF_INET;
Host.sin_port:=htons(7000);
if bind(MySocket, Host, sizeof(Host))<>SOCKET_ERROR then showmessage('网卡绑定成功！！！')
else
begin
showmessage('错误类型：'+IntToStr(WSAGetLastError));
//WSAEADDRNOTAVAIL 10049 Cannot assign requested address.
end;
end;
//////////我定义了一个错误位置，但是不知道怎样才能找到解决办法，大家如果做过socket编程，肯定都应该知道怎么去获得本机的网卡，地址，然后去绑定他的，帮忙看看吧，那么长时间都弄不出来，太没面子了...

加载更多回复（41）

所有分数求教…………………………

相关推荐