把下列C语言源代码 转换成 Pascal源代码_百度知道
把下列C语言源代码 转换成 Pascal源代码
//tieba://tieba?ct=&tn=baiduPostBrowser&sc=&z=&pn=0&rn=30&lm=0&word=pascal#" target="_blank">/f!急贴吧地址<a href="http!急./f.baidu?ct=&tn=baiduPostBrowser&sc=&z=&pn=0&rn=30&lm=0&word=pascal#急
其实不复杂 上面定义数组中间两个转换函数下面一个主函数可惜我不会Pascal 事情紧急 又没时间学习 在此麻烦各位了
提问者采纳
end: array[0;;;
Writeln('.'>.;);, j, ';-;; #0) do
for j .--, ';.;;, '.----'.', '.;-, 'const
n, '.;;---;.;;;-.-'.-;-----'.-'.;;-;
end: Insert code here }
FillChar(v.;) or (v[0] = '
if (v[0] = '., ', ', ';'.;;
.-.;;;.--;.'输入错误.'.'.-.'.'.---';.;
, ', ', 'program Project, '.;-.;;--;procedure ABCtoMor(v;;..-'--'.;begin
{ TODO -oUser -cConsole Main := 0 to 38 do
if 0 = StrComp(v;;.;begin
i , ';-', ': I-.;;.', ', ', ';;;
m, '.;.-',*'.....'
until v = '., '
while(v[i] &,'
', '--,m[j]), ', 256;{$APPTYPE CONSOLE}uses
SysU, 0).'.--'--..-,'.---': PChar = ', ': Iabcdefghijklmnopqrstuvwxyz.';procedure MortoABC(v.': PChar).--'.'.'
Inc(i).;var
i., PChar(m[i])) then
Writeln(n[i]);).;..?, '..'.-'.'.;---'.'.-','.-'.;--;;.;----.38] of String = (', '-'begin;;
Exit, '.'..'--;) then
MortoABC(v)
ABCtoMor(v).-;;-: PChar);end, ', '
Readln(v).-.'-,', '..:= 0 to 38 do
if v[i] = n[j] then
Writeln(v[i].-', '.255] of C;;: array[0, '.--'.;
Break, '.--'.', ', ':= 0;
StrLower(v)
提问者评价
O(∩_∩)O谢谢~
其他类似问题
为您推荐:
您可能关注的推广
pascal的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁请问pascal语言中的real对应的是C语言的什么?
请问pascal语言中的real对应的是C语言的什么? 20
如题,谢谢
pascal语言中的real对应的是C语言的float
我只会Pascal不会C,把Pascal翻译成自然语言,你照着打打看 Var{定义变量:} longint k,m,n; {定义k,m,n为长整型,在C里应该是long或long long} delta1,delta2 : {定义delta1,delt12为实型} Begin {相当于C的花括号左边} write(&k=&); {这个懂,printf(&k=&);} readln(k); { 键盘输入k,应该是scanf } m:=k; {将k赋给m} while m&=1 do {While型循环,当m&=1时就做下面的} begin {又是花括号左边} delta1:=sqrt(5.0*m*m+4);{赋值} if (delta1-trunc(delta1))&1e-9 then {如果 delta1减去取整的delta1 小于 1*10^(-9) 那么就} begin {……} n:=trunc((m+delta1)/2); {trunc是取整,右赋左} if n&=k then begin writeln(m,&,&,n); {如果n小于等于k那么就输出m和n} delta2:=sqrt(5.0*m*m-4); {sqrt是取平方根} if (delta2-trunc(delta2))&1e-9 then {同上} begin n:=trunc((m+delta2)/2); {同上} if n&=k then begin writeln(m,&,&,n); {如果n小于等于k那么就输出m和n,同上} dec(m); {dec就是把m减1} 我猜想“}”是end对吗?只能这样了…… 没办法,实在对C了解不多,见谅。
其他回答 (2)
pascal 1、关于Turbo Pascal Pascal是一种计算机通用的高级程序设计语言。它由瑞士Niklaus Wirth教授于六十年代末设计并创立。 以法国数学家命名的Pascal语言现已成为使用最广泛的基于DOS的语言之一,其主要特点有:严格的结构化形式;丰富完备的数据类型;运行效率高;查错能力强。 正因为上述特点,Pascal语言可以被方便地用于描述各种算法与数据结构。尤其是对于程序设计的初学者,Pascal语言有益于培养良好的程序设计风格和习惯。IOI(国际奥林匹克信息学竞赛)把Pascal语言作为三种程序设计语言之一, NOI(全国奥林匹克信息学竞赛)把Pascal语言定为唯一提倡的程序设计语言,在大学中Pascal语言也常常被用作学习数据结构与算法的教学语言。 在Pascal问世以来的三十余年间,先后产生了适合于不同机型的各种各样版本。其中影响最大的莫过于Turbo Pascal系列软件。它是由美国Borland公司设计、研制的一种适用于微机的Pascal编译系统。该编译系统由1983年推出1.0版本发展到1992年推出的7.0版本,其版本不断更新,而功能更趋完善。 下面列出Turbo Pascal编年史 出版年代 版本名称 主要特色 1983 Turbo Pascal 1.0 Turbo Pascal 2.0 Turbo-87 Pascal 提高实数运算速度并扩大值域 1985 Turbo Pascal 3.0 增加图形功能 Turbo BCD Pascal 特别适合应用于商业 1987 Turbo Pascal 4.0 提供集成开发环境(IDE),引入单元概念 1988 Turbo Pascal 5.0 增加调试功能 1989 Turbo Pascal 5.5 支持面向对象的程序设计(OPP) 1990 Turbo Pascal 6.0 提供面向对象的应用框架和库(Turbo Vision) 1992 Turbo Pascal 7.0 面向对象的应用系统、更完善的IDE Turbo Vision 2.0 1993 Borland Pascal 7.0 开发 Object Windows库、 __(For Windows) 提供对OLE多媒体应用开发的支持 1995 Delphi Visual Pascal Turbo Pascal语言是编译型程序语言,它提供了一个集成环境的工作系统,集编辑、编译、运行、调试等多功能于一体 ps:高级语言发展过程中,PASCAL是一个重要的里程碑。PASCAL语言是第一个系统地体现了E.W.Dijkstra和C.A.R.Hoare定义的结构化程序设计概念的语言。1971年,瑞士联邦技术学院尼克劳斯·沃尔斯(N.Wirth)教授发明了另一种简单明晰的电脑语言,这就是以电脑先驱帕斯卡的名字命名的PASCAL语言。PASCAL语言语法严谨,层次分明,程序易写,具有很强的可读性,是第一个结构化的编程语言。它一出世就受到广泛欢迎,迅速地从欧洲传到美国。沃尔斯一生还写作了大量有关程序设计、算法和数据结构的著作,因此,他获得了1984年度“图灵奖”。 Pascal有5个主要的版本,分别是Unextended Pascal、Extended Pascal、Object-Oriented Extensions to Pascal、Borland Pascal和Delphi Object Pascal。其中,Unextended Pascal、Extended Pascal和Object-Oriented Extensions to Pascal是由Pascal标准委员会所创立和维护的,Unextended Pascal类似于瑞士Niklaus Wirth教授和K.Jensen于1974年联名发表的Pascal用户手册和报告,而Extended Pascal则是在其基础上进行了扩展,加入了许多新的特性,它们都属于正式的Pascal标准;Object-Oriented Extensions to Pascal是由Pascal标准委员会发表的一份技术报告,在Extended Pascal的基础上增加了一些用以支持面向对象程序设计的特性,但它属于非正式的标准。Borland Pascal和Delphi Object Pascal是由Borland公司专门为其开发的编译工具设计的Pascal语言,前者是用于DOS的Turbo Pascal系列和Windows 3.x的Turbo Pascal for Windows的传统高级语言,后者是用于Windows的Delphi和Linux的Kylix的面向对象程序设计语言,它们都不是正式的Pascal标准,具有专利性。但由于Turbo Pascal系列和Delphi功能强大并且广为流行,Borland Pascal和Delphi Object Pascal已自成为一种标准,为许多人所熟悉。 看到这里,你可能会发觉我的回答与你最初的设想不同。你原来可能是想问Turbo Pascal有几个版本,然而我却回答了Pascal语言有几个版本。这就是初学者常有的一个错误认识:Pascal是一种编程工具。实际上,Pascal是一种程序设计语言的名称(从一般意义上说,Pascal也可以是指人名,它的取名原本就是为了纪念十七世纪法国著名哲学家和数学家Blaise Pascal),而不是编程工具。刚才我是纯粹从字面意思上来回答这个问题。 在中国的信息学奥林匹克竞赛中,过去比较常用的Pascal编程工具是Turbo Pascal。Turbo Pascal是DOS下的一种16位编程工具,在Delphi出现之前,它是世界上最多人使用的Pascal编程工具,拥有编译速度极快的先进编译器和功能强大而又简便易用的集成开发环境(IDE),在微机程序员中广为流行,正是它的出现奠定了Pascal在DOS/Windows平台上不可动摇的根基,现在常见的版本有Turbo Pascal 5.5、Turbo Pascal 6.0和Borland Turbo Pascal with Objects 7.0。Turbo Pascal 6.0与Turbo Pascal 5.5相比,主要是IDE更为强大,而其程序设计功能改变不大,只是增加了一些新的功能,例如可以内嵌asm汇编语句等。而Borland Turbo Pascal with Objects 7.0(简称Borland Pascal 7.0)则有了新的飞跃,首先是IDE进一步加强,提供了程序浏览器,然后是程序设计功能有了很大的提升,新增了一些十分有用的标准子程序,支持比较完善的面向对象程序设计功能,并提供了DOS实模式、DOS保护模式和Windows模式三种程序编译模式,能够编写出可以使用扩充内存(XMS)的保护模式应用程序或者在Windows 3.x下运行的Windows程序,另外还提供了一个对象窗口库(OWL),使用它可以快速的开发出具有一致的视窗界面(DOS或Windows 3.x)的应用程序。Borland Pascal 7.0在1992年推出,是Turbo Pascal系列在DOS下的最后版本。 现在,随着Turbo Pascal逐渐被淘汰,全国信息学奥林匹克竞赛决赛(NOI)和国际信息学奥林匹克竞赛(IOI)已经指定Free Pascal为比赛使用的Pascal编程工具。Free Pascal是由一个国际组织开发的32位Pascal编程工具,属于共享软件,可用于各种操作系统。根据编译选项的不同,它可以使用Borland Pascal兼容语法、Delphi 2 Object Pascal语法或者其它语法进行编写程序。由于它拥有32位的编译器,而且一直在更新发展中,因此它的功能比Borland Pascal更加强大,拥有许多现代程序设计的特征,但同时也很不成熟,存在很多漏洞。Free Pascal正处于发展初期,相应的函数库十分少,对程序员的吸引力远比不上拥有VCL和CLX的Delphi和Kylix。
real在Pascal里面表示实型数据吗?如果是的话,那对应到C语言里面就是float. 定义的时候这样来:float a,b,c,……;
相关知识等待您来回答
编程领域专家
& &SOGOU - 京ICP证050897号您的举报已经提交成功,我们将尽快处理,谢谢!
大家还关注
怎么查找我的icloud绑定的邮箱 怎么...
我电脑浏览器证书错误,淘宝就是登陆不了。...
(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'编写一个程序把Pascal 源代码直接转换成c语言源代码_百度知道
编写一个程序把Pascal 源代码直接转换成c语言源代码
翻译太麻烦了啊。。。郁闷
提问者采纳
有将C的转化为PASCAL的软件,但C变化太多了,好像还没有这种软件
其他类似问题
为您推荐:
您可能关注的推广
pascal的相关知识
其他2条回答
我靠~~~写的出来的是神人~~~问这个问题的你也挺神
饿,要能这样,那编程也太容易了吧。
我感觉一定有高手能做到的
而且只要有恒心
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁关于Pascal转成C/C++的问题:有谁知道免费的Pascal to C的转换软件?
[问题点数:0分,结帖人CSDN]
关于Pascal转成C/C++的问题:有谁知道免费的Pascal to C的转换软件?
[问题点数:0分,结帖人CSDN]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
本帖子已过去太久远了,不再提供回复功能。}