用PASCAL编程怎么做?
对于输入的方程系数,求二元一次方程组的解.
08-12-23 &
2分查找. var ch： n,x,y: begin n:=500;writeln(n);x:=1;y:=1000; readln(ch); while ch&&'R' do begin if ch='G' then begin y:=n-1;n:=(x+y)div 2; end else begin x:=n+1;n:=(x+y)div 2; writeln(n);readln(ch);
请登录后再发表评论!
2分查找. var ch： n,x,y: begin n:=500;writeln(n);x:=1;y:=1000; readln(ch); while ch&&'R' do begin if ch='G' then begin y:=n-1;n:=(x+y)div 2; end else begin x:=n+1;n:=(x+y)div 2; writeln(n);readln(ch);
请登录后再发表评论!
2分查找. var ch： n,x,y: begin n:=500;writeln(n);x:=1;y:=1000; readln(ch); while ch&&'R' do begin if ch='G' then begin y:=n-1;n:=(x+y)div 2; end else begin x:=n+1;n:=(x+y)div 2; writeln(n);readln(ch);
请登录后再发表评论!
Pascal是一种计算机通用的高级程序设计语言。它由瑞士Niklaus Wirth教授于六十年代末设计并创立。 　　以法国数学家命名的Pascal语言现已成为使用最广泛的基于DOS的语言之一，其主要特点有：严格的结构化形式；丰富完备的数据类型；运行效率高；查错能力强。 　　正因为上述特点，Pascal语言可以被方便地用于描述各种算法与数据结构。尤其是对于程序设计的初学者，Pascal语言有益于培养良好的程序设计风格和习惯。IOI(国际奥林匹克信息学竞赛)把Pascal语言作为三种程序设计语言之一， NOI(全国奥林匹克信息学竞赛)把Pascal语言定为唯一提倡的程序设计语言，在大学中Pascal语言也常常被用作学习数据结构与算法的教学语言。 　　在Pascal问世以来的三十余年间，先后产生了适合于不同机型的各种各样版本。其中影响最大的莫过于Turbo Pascal系列软件。它是由美国Borland公司设计、研制的一种适用于微机的Pascal编译系统。该编译系统由1983年推出1.0版本发展到1992年推出的7.0版本，其版本不断更新，而功能更趋完善。
请登录后再发表评论!怎么用free pascal做这道题？_百度知道
怎么用free pascal做这道题？
对于其中重复的数字：第2行有x个用空格隔开的正整数，不同的数对应着不同的学生的学号，第1行为1个正整数。然后再把这些数从小到大排序，表示不相同的随机数的个数，为所产生的随机数输出第1行为1个正整数M，只保留一个，为从小到大排好序的不相同的随机数，把其余相同的数去掉。输入有2行，表示所生成的随机数的x个数，按照排好的顺序去找同学做调查。第2行为M个用空格隔开的正整数，为了实验的客观性题目描述明明想在学校中请一些同学一起做一项问卷调查，他先用计算机生成了x个1到1000之间的随机整数（x≤100）。请你协助明明完成“去重”与“排序”的工作
提问者采纳
end else&end&nbsp.;&downto& AA;&of&&aa[i])and(x&&begin for&nbsp:=1&nbspvar&&
For&&m;i;& &nbsp:=0;&
If& repeat
x;For&&do&m=100;aa[m]&
Else&nbsp:=m&then&&if&&&begin&nbsp:=x;aa[i+1]:=x:=x;&nbsp:do&nbsp,j;0&
if&&&&&nbsp:=0:=m&{忽略相同的}Var&&&nbsp:=1;Aa[j+1];then&&
insert(m;&&j;begin&&
Aa[1];&aa[i+1];do&&& for&I;x&gt,x:=aa[i]; Procedure&then&to&&nbsp,x);&begin
For&aa[1];to&begin&&
begin&insert(var&&&I;m;&inc(m);
Else& until&&I:=1&(x&m-1&if& i;m&aa[i+1]&i;)&then&aa[m+1]:=x;&&nbsp:=aa[i];&&&
Ej&&nbsp:=random(1000)+1;&nbsp:aa[i];&&begin&j+1&aa[1]&&1000&m=0&I;to&nbsp:do&&begin&&nbsp.1000]&&nbsp:integer);Begin if&nbsp:=I:=0;&then&&x&lt,m;&&&nbsp:=1&&inc(m);downto&&nbsp:array[1;&&&
End& m;&&1&writeln(aa[i]);x;&&&&
inc(m);Edo&
提问者评价
其他类似问题
为您推荐：
pascal的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁有人做Free pascal吗,看了介绍很好呀
[问题点数：0分]
有人做Free pascal吗,看了介绍很好呀
[问题点数：0分]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2010年9月 Delphi大版内专家分月排行榜第三2010年8月 Delphi大版内专家分月排行榜第三2010年5月 Delphi大版内专家分月排行榜第三
2008年8月 Delphi大版内专家分月排行榜第二2006年11月 扩充话题大版内专家分月排行榜第二2006年9月 扩充话题大版内专家分月排行榜第二2006年7月 扩充话题大版内专家分月排行榜第二2006年6月 扩充话题大版内专家分月排行榜第二2006年5月 扩充话题大版内专家分月排行榜第二2006年3月 扩充话题大版内专家分月排行榜第二2006年7月 Delphi大版内专家分月排行榜第二2006年3月 Delphi大版内专家分月排行榜第二2005年12月 Delphi大版内专家分月排行榜第二
2008年9月 Delphi大版内专家分月排行榜第三2007年1月 扩充话题大版内专家分月排行榜第三2006年12月 扩充话题大版内专家分月排行榜第三2006年10月 扩充话题大版内专家分月排行榜第三2006年11月 Delphi大版内专家分月排行榜第三2006年10月 Delphi大版内专家分月排行榜第三2006年9月 Delphi大版内专家分月排行榜第三
2014年4月 Delphi大版内专家分月排行榜第三2014年3月 Delphi大版内专家分月排行榜第三2013年5月 Delphi大版内专家分月排行榜第三2013年1月 Delphi大版内专家分月排行榜第三2010年11月 Delphi大版内专家分月排行榜第三2009年12月 Delphi大版内专家分月排行榜第三2009年11月 Delphi大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。}