作业帮用free pascal语言的直到型循环解下面这道题将一根369米长的钢管截成长为69米和39米两种规格的短料,在这两种规格的短料至少各截一根的前提下,如何截才能使余料最少?
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/12 12:51:18
用free pascal语言的直到型循环解下面这道题将一根369米长的钢管截成长为69米和39米两种规格的短料,在这两种规格的短料至少各截一根的前提下,如何截才能使余料最少?
用free pascal语言的直到型循环解下面这道题
将一根369米长的钢管截成长为69米和39米两种规格的短料,在这两种规格的短料至少各截一根的前提下,如何截才能使余料最少?
用free pascal语言的直到型循环解下面这道题将一根369米长的钢管截成长为69米和39米两种规格的短料,在这两种规格的短料至少各截一根的前提下,如何截才能使余料最少?
program JGG;
const l=369;l1=69;l2=39;
var i,m1,m2,my,yl: Integer;
begin
my := l;
yl := l;
for i := 1 to (l div l1) do begin
yl := yl - i * l1;
yl := yl - (yl div l2) * l2;
if (yl > 0) and (yl < my) then begin
m1 := i;
m2 := (l - i * l1 - yl) div l2;
my := yl;
end;
end;
writeln('369=',m1,'*69+',m2,'*39 ... ',my);
readln;
end.
//369=1*69+7*39 ... 27
用free pascal语言的直到型循环解下面这道题将一根369米长的钢管截成长为69米和39米两种规格的短料,在这两种规格的短料至少各截一根的前提下,如何截才能使余料最少?
Free Pascal语言.求10个数的最大值和最小值,我们循环语句的作业,帮看下,
free pascal语言.打印下列图形（共4个）.用循环.88888888881121123211234321#空空空空@#空空@@###@@@
Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?
pascal语言编程问题（free pascal求1—N中的素数的个数.(1
找出数字之和等于6且能被5整除的所有两位数(用free pascal语言回答)
Pascal 也分 Turbo Pascal 和 Free Pascal 的 推荐的三种语言是 Free Pascal ,Lazarus ,dec-c++ 上面是从知道里复制来的.请问,Delphi7和里面说到的Turbo Pascal和Free Pascal可以说是什么关系呢?Free Pascal ,Lazarus ,dec-
free pascal 用for循环做 求所有的三位数中十位数能被个位数和百位数之和整除的数.
在pascal语言中,for循环的循环变量的初值若等于终值,该做何循环?
计算1*2*3*.*n>1000的第一个n值（用pascal语言,while循环和repeat循环来做）
直到型循环结构的功能是什么?
一道简单的free pascal题目,各位free pascal大师解答一下吧.求2~100中每个数的质因子,输出如下形式：2=23=34=2*2...99=3*3*11100=2*2*5*5请一定是自编,要用我这种水平去做.最好用for循环.并请写上每一步的
pascal语言for循环能0 to 如题.
Basic语言中,循环结构必须用当或直到型?可以跟这两个类型不一样吗?
用FREE PASCAL的简单的循环语句便一道题求1至500中满足以下条件的所有整数1：用3除余22：用5除余33：用7除余2
用Pascal语言求m^n的精确值,0
free pascal中write 和write in的用法分别是怎么用的
用free pascal编程：输入两个数,求他们的最大公因数和最小公倍数