http://www.ttshadu.cn/SoftView/Soft11/138.html
Trojan.PSW专杀工具 简介杀毒步隐搏骤:
用瑞星专杀工具
1.以Administrator身份登陆
2.下载瑞星Trojan.PSW专杀工具
3.断开网络
4.打开浏览器,工具-Internet选项-删除文件-选中"删除所有脱机内容"
5.运行-MSCONFIG,查看启动加载项里可疑启动项删除掉
6.重启机器,按F8进入安全模式
7.使用专杀工喊携并具全面杀毒郑迹
{首先,约分}:function small(xx,yy:longint):longint
var
tt:longint
begin
if xx<yy then
exit(xx)
exit(yy)
end
function last(x,y):longint
var
g:longint
begin
g:=small(x,y)+1
repeat
g:=g-1
until (g mod x=0) and (g mod y=0)
end.
procedure logo(var x,y:longint)
begin
x:=x div last(x,y)
y:=y div last(x,y)
end
{主程序}:
var
i,j:longint
begin
assign(input,'huajian.in')
reset(input)
assign(output,'huajian.out')
rewrite(output)
readln(i,j)
logo(i,j) {调用约分的过程}
if j=1 then{分母为1时,即结果袜返为整数}
writeln(i)
else
if i>j then
writeln(i div j {整数部分},'+', i mod j {分数部分的分子} ,'/', j {分母})
else
writeln(i, '/' , j) {分子、分母原样输出}
close(input)
close(output)
end.
这是正确答案,阳光上的桥的回答里没有文祥好神件输入输出。
注意:
我估计你是在文件输入输出时出了问题。
要注意,pas 文件和 .in 文件要在谨亏同一目录下,否则会报错(Runtime Error)。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)