请问一下两个free pascal 2.04下载题目怎么做?

 下载
 收藏
该文档贡献者很忙,什么也没留下。
 下载此文档
正在努力加载中...
Pascal基础题100道合集(全)
下载积分:1000
内容提示:
文档格式:TXT|
浏览次数:7|
上传日期: 00:02:12|
文档星级:
该用户还上传了这些文档
Pascal基础题100道合集(全).TXT
官方公共微信请高手帮我做一下下面这道pascal题目_百度知道
请高手帮我做一下下面这道pascal题目
jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="/zhidao/pic/item/bcffc14a90f703ea54://d.baidu.jpg" esrc="http<a href="/zhidao/wh%3D450%2C600/sign=11d017e6be096b03ab72/bcffc14a90f703ea54.hiphotos./zhidao/wh%3D600%2C800/sign=83b497f70cf3d7ca0ca1/bcffc14a90f703ea54://d.baidu.hiphotos://d
提问者采纳
string,判断一个数的大小必定是要看最高位的数值来决定的;begin
AStr 这问题看上去复杂:function OutputByInput(var AInStr:= OutputByInput(AInStr,然后将移除的位数减去1; var ACount:begin
Result ,或者移除位数为0为止: Integer):= &#39,1,I)): string,1)
Delete(AInS
ShowMessage(OutputByInput(AStr:= AInStr:= 3: I= ACount) or (Length(AInStr) &= 0) or (Length(AInStr) = 0) or (Length(AInStr) &
if (ACount &lt,ACount)
Result ,接着再重复刚才的过程;
I ;; 2) then
if Ord(AInStr[1]) &lt,1); Ord(AInStr[2]) then
Delete(AInStr,知道数字字符串小于2,2;
Dec(ACount);
if ACount &gt。------------------------------------------------------------使用范例如下。这时剩下的数字字符串就是我们所要的结果了;思路描述:= AInStr,接着将形成了一个新的数字字符串,所以看最高位的两个数比较那个数大就移除那个数;end:说白了;end,但是如果明白了怎么去找一个最小数就容易很多了;/&#47。实现函数如下
提问者评价
谢谢你帮我大忙了
其他类似问题
pascal的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁问题补充&&
在Object Pascal中;”这样的语句!你看程序中最常见的“Form1有人说指针是C语言的灵魂,但在Object Pascal中又何尝不是如此呢: TForm1?S”的声明,还有“proce**re TForm1,其中的Form1不正是一个对象指针么.Button1Click(Sender: TObject),不也是的么,通过一个对象指针来访问一个对象实例是最直接、最有效的方式
eexcn727&3-29 15:26
猜你感兴趣
服务声明: 信息来源于互联网,不保证内容的可靠性、真实性及准确性,仅供参考,版权归原作者所有!Copyright &
Powered by请问一下两个Pascal题目怎么做?_百度知道
请问一下两个Pascal题目怎么做?
则输出“YES”。若是,判断其中是否有两个奇数一个偶数题目,不是则输出“NOT” (要求用条件表达式进行判断。输入任意大小的三个整数,请把这三个数由小到大输出,z,y:输入三个整数x
大家请说明好第几题,非常感谢。
if(x&lt.,%d”.int
main(){y),y;z&&z&lt,x)if(x&lt,z;scanf(“%d.,y,z;n”,%d/z)printf(“%d,%d;y&&y&lt,&z),&y,&x,%d
我是初学者,这样的程序看不懂啊!不过非常感谢回答我的问题。
其他类似问题
pascal的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 free pascal 2.04下载 的文章

 

随机推荐