一道pascal的题用PASCAL算开始,把2赋值给a,把4赋值给b,然后判断,(a+b)>=5,如果yes,c=1/(a+2b),如果no,c=1/(b+2a),输出C.结束

来源：学生作业帮助网 编辑：作业帮 时间：2024/10/05 17:54:54
一道pascal的题用PASCAL算开始,把2赋值给a,把4赋值给b,然后判断,(a+b)>=5,如果yes,c=1/(a+2b),如果no,c=1/(b+2a),输出C.结束
x͑JQ_e^t3_ n[=ӭaf &520Ĕ$M֢e]g&qѾv+*-Z*Լn5vz>/&pun{M.,Z 9=!G7=Hb9 a Gcq xE|ڛܫL0^6 ? EM$hE}DU01DL[4;Ӥ~"CF%>7YHXAAE$LH8b TLi*ĂI^oFq45 NBVIYwB kzBeXHx?9gPW r-X

一道pascal的题用PASCAL算开始,把2赋值给a,把4赋值给b,然后判断,(a+b)>=5,如果yes,c=1/(a+2b),如果no,c=1/(b+2a),输出C.结束
一道pascal的题
用PASCAL算
开始,把2赋值给a,把4赋值给b,然后判断,(a+b)>=5,如果yes,c=1/(a+2b),如果no,c=1/(b+2a),输出C.结束

一道pascal的题用PASCAL算开始,把2赋值给a,把4赋值给b,然后判断,(a+b)>=5,如果yes,c=1/(a+2b),如果no,c=1/(b+2a),输出C.结束
var a,b:longint;c:real; {定义变量a,b整形 c实型}
begin
a:=2;b:=4;{a,b赋值}
if a+b>5 then c:=1/(a+2*b) {判断真执行}
else c:=1/(b+2*a); {判断假执行}
writeln(c); {输出C值}
end.
调试通过

Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal? 一道pascal的题用PASCAL算开始,把2赋值给a,把4赋值给b,然后判断,(a+b)>=5,如果yes,c=1/(a+2b),如果no,c=1/(b+2a),输出C.结束 用pascal语言做一道题读入三个整数,找出并输出其中最大的数 pascal pascal pascal! Miller-Rabbin素数测试法求一个用Miller-Rabbin算法判断是否为素数的程序,注意要用PascalPascal!Pascal!Pascal!Pascal!Pascal!Pascal!Pascal!Pascal!最好有说明 PASCAL求2的n次方用高精度算 Pascal图的基本知识 PASCAL 需要的数学知识 一道PASCAL题 读入10个数,计算它们的和、积、平方和及和的平方 一道poj上的题目求poj2253 的pascal程序 求助一道pascal高精度乘法题：输入两个正整数m、n,输出他们的积.( 1 一道编程题目pascal：用辗转相除法求两数的最大公约数. 求助：pascal exp怎么用pascal exp怎么用啊,比如我要算2的3次方用exp怎么表达.谢谢 一道PASCAL题 读入10个数,计算它们的和、积、平方和及和的平方我急用 一道pascal试题,输入两个数a,b求两个数的最大公因数（用while语句）. 用pascal 输入N个数,计算偶数、奇数和零的个数如题 用Pascal语言求m^n的精确值,0 用PASCAL怎么求x的N次方