用Pascal 将图片设置为桌面背景求完整、可运行代码

软件 2022-09-17

求Pascal代码，题目地址是http://codevs.cn/problem/1205/

var
s:string;
c:array[0..1000]ofchar;
words:array[1..50]ofstring[35];	
i,k,m,n:integer;
begin
fori:=1to50dowords[i]:='';	
s:='iloveyou';
{readln(s);}
n:=length(s);
fori:=1tondoc[i]:=s[i];
{以上3行为模拟输入，将串s的内容转换到字符数组c中}

c[0]:='';
k:=0;
fori:=1tondo
ifc[i]<>''thenbeginm:=i;break;end;
{确定第一个单词的第一个字符位置m}
fori:=mtondobegin
if(c[i]<>'')and(c[i-1]='')then
		begininc(k);words[k]:=c[i]end
	elseifc[i]<>''thenwords[k]:=words[k]+c[i];
{只有当前字母为非空且前一个字母为空时，单词数加一}
end;
writeln;
fori:=kdownto1dowrite(words[i],'');
writeln;	
end.

求PASCAL调用CMD命令语句

方法1 uses WinProcs; …… begin WinExec(......); …… end. 和调用Pascal库函数没什么两样。方法2 用ShellExecute更好,在USES段加入SHELLAPI,使用时如: 执行"c:\myapp\myapp.exe"参数为"-s" ShellExecute(handle,'open','c:\myapp\myapp.exe','-s','',SW_SHOWNORMAL); 第一个参数为父窗口句柄; 第二个参数为打开方式(OPEN,PRINT两种); 第三个参数为执行文件全路径; 第四个参数为执行文件参数; 第五个参数为执行文件开始运行时

如何用Pascal语言编一个打开二进制文件（.exe）的程序？求完整程序。

exe文件是可执行程序，你可以用二进制编辑工具打开，这种工具很多，比较强大的就是UltraEdit，这个网上很多，自己收索一下下载一个安装一下就可以打开了。还有的就是CAS32这个也是很强大的工具网上很多！！！

怎样把桌面变成图片

这个挺简单的呀，有两种方法：第一种就是在你确定好桌面的背景后，自己看一下键盘的右上角附近找到一个带有PrtScrSysRq英文的按键，按一下它，然后自己新建或者打开一个Word文档，打开后来，在文字的输入区单击右键，选择粘贴或者按快捷组合键Ctrl+V这样就可以把桌面的背景图片显示出来了，然后右击该图片选择复制，然后把Word最小化，再在桌面右击粘贴，再跟据提示这个背景图片就制造好了，第二种就是必须在你登录了QQ时随便点击打开一好友的聊天窗口，然后在点击可以设置字体大小的那一栏的中间，有一个电视和剪刀的图标，点击后如果鼠标的颜色变了，就表示可以捕捉屏幕了，然后按住左击键不放，选取你要的背景图，

求秦九韶算法在PASCAL中的实例

大意是这样的。从高阶到低阶的系数分别为2,-1,1,5 你就是先弄一下 2*x，记为a__________________________就是系数的最高项然后(a-1)*x，再算出来给a ___________这个-1就是第二个系数然后(a+1)*x，再第出来给a____________这个a就是第三个系数最后a+5 最后算出来的就是结果。你可以仔细地跟几步，就知道怎么回事了。这种算法可以减少乘法的次数。秦九韶算法 1．教学任务分析 (1)在学习中国古代数学中的算法案例的同(2)时,进一步体会算法的特点。(3)体会中国古代数学对世界数学发展的贡献。 2．重点与难点重点：理解秦九韶

标签：编程 pascal 信息技术编程语言桌面