pascal编程
begin
write(2);
end.
program gangguan;
var f_in,f_out:text;
num,i,j:integer;
max_l,min_d,max_bh:longint; //长度l,直径d,编号bh;
guan:array[1..1000,1..3] of longint; //钢管数组用于存储所有数据;
begin
//以下是读取文件中的数据;
assign(f_in,'input.txt');
reset(f_in);
readln(f_in,num);
for i:=1 to num do
for j:=1 to 3 do read(f_in,guan[i,j]);
close(f_in);
//变量初始化;
max_l:=0;
min_d:=maxlongint;
max_bh:=0;
//先找出最大长度;
for i:=1 to num do
if guan[i,1]>max_l then max_l:=guan[i,1];
//比最大长度小的钢管数据清零;
for i:=1 to num do
if guan[i,1]<max_l then
begin
guan[i,1]:=0;
guan[i,2]:=0;
guan[i,3]:=0;
end;
//接着找最小直径;
for i:=1 to num do
if (guan[i,2] < min_d) and (guan[i,2]>0) then min_d:=guan[i,2];
//非最小直径的钢管数据清零;
for i:=1 to num do
if guan[i,2]>min_d then
begin
guan[i,1]:=0;
guan[i,2]:=0;
guan[i,3]:=0;
end;
//最后找最大编号;
for i:=1 to num do
if guan[i,3]>max_bh then max_bh:=guan[i,3];
//非最大编号的清零;
for i:=1 to num do
if guan[i,3]<max_bh then
begin
guan[i,1]:=0;
guan[i,2]:=0;
guan[i,3]:=0;
end;
//屏幕显示筛选后的钢管数据;
for i:=1 to num do
writeln(guan[i,1]:4,guan[i,2]:3,guan[i,3]:10);
//最大编号数据写回文件;
assign(f_out,'output.txt');
rewrite(f_out);
writeln(f_out,max_bh);
close(f_out);
end.
附测试数据(保存在input.txt文件中):
14
3000 50 872198442
3000 45 752498124
2000 60 765128742
3000 45 652278122
7500 16 457888215
4000 88 445886125
4000 75 545681555
3358 65 454588212
7500 56 477868218
3600 12 879546212
7500 16 457888215
3600 78 900004557
7500 16 374355457
2500 35 574125667
输出为：457888215
var
n:longint;
i,j,k:integer;
s:string;
ch:char;
begin
readln(n);
str(n:0,s);
k:=length(s);
for i:=1 to k-1 do
for j:=i to k do
begin
if s[i]<s[j] then begin ch:=s[i]; s[i]:=s[j]; s[j]:=ch; end;
end;
val(s,n);
writeln(n);
end.
帕斯克(Pascal)-一门流行的编程语言
答：帕斯卡（Pascal）是一门流行的编程语言，由于其简洁、易学、易用的特点，被广泛应用于计算机科学、工程学、数学、物理学等领域。1.帕斯卡的起源 帕斯卡是由尼古拉斯·维尔特（NiklausWirth）于1968年发明的。维尔特是瑞士苏黎世联邦理工学院的教授，他发明帕斯卡的初衷是为了教授编程课程。帕斯卡最初的版本是为...
什么是pascal语言程序
答：Pascal是一种计算机通用的高级程序设计语言。它由瑞士Niklaus Wirth教授于六十年代末设计并创立。以法国数学家命名的Pascal语言现已成为使用最广泛的基于DOS的语言之一，其主要特点有：严格的结构化形式；丰富完备的数据类型；运行效率高；查错能力强。正因为上述特点，Pascal语言可以被方便地用于描述各种算法与...
pascal编程的语言
答：Turbo Pascal规定了两个预定义整型常量标识符maxint和maxlonint,他们各表示确定的常数值,maxint为32767, longint为2147483647,他们的类型分别是integer 和longint 2.实型 一个实型数据用来存放实数。Turbo Pascal支持五种预定义实型,它们是real(基本实型)、 single(但精度实型)、double(双精度实型)、extended(扩展...
Pascal是什么编程语言
答：在中国的信息学奥林匹克竞赛中，过去比较常用的Pascal编程工具是Turbo Pascal。Turbo Pascal是DOS下的一种16位编程工具，在Delphi出现之前，它是世界上最多人使用的Pascal编程工具，拥有编译速度极快的先进编译器和功能强大而又简便易用的集成开发环境（IDE），在微机程序员中广为流行，正是它的出现奠定了P...
pascal是什么?
答：实际上，Pascal是一种程序设计语言的名称（从一般意义上说，Pascal也可以是指人名，它的取名原本就是为了纪念十七世纪法国著名哲学家和数学家Blaise Pascal），而不是编程工具。刚才我是纯粹从字面意思上来回答这个问题。在中国的信息学奥林匹克竞赛中，过去比较常用的Pascal编程工具是Turbo Pascal。Turbo ...
用PASCAL编程
答：var a：array[1..5] of real；i，j,n:integer； t:real；begin n:=12；for i:=1 to n do readln(a[i])；for i:=1 to n-1 do for j:=1 to n-i do if a[j]＞a[j+1] then begin t:=a[j]；a[j]:=a[j+1]；a[j+1]:=t；end；for i:=1 to n do WRITE(a[...
如何用Pascal语言进行声音编程
答：Turbo pascal 声音编程 一、使用Pascal进行声音操作前的准备 首先需要说明的是我们所说的Pascal声音操作，并不是指实现Pascal对于声卡进行操作，而是利用Pascal对计算机的PC喇叭操作，使它发出声音。在Turbo Pascal中有一个叫做CRT单元的东西，CRT单元实现了一系列强大的可以充分地控制你计算机的功能CRT单元提供...
pascal编程
答：var s:string; i,j,k,n:integer; f:boolean; begin readln(s); //读数 for i:=1 to (length(s)-2) do //设定起点 for j:=(i+2) to length(s) do //设定终点 begin f:=true; //默认为升序串成立 k:=i; //游动指针，表示每次所...
Pascal编程
答：4、 从键盘上读入小写的"pascal"，利用CHR（）和ORD（）函数，输出大写的"PASCAL"。program Noname10;uses crt;var c:packed array[1..10]of char;p:integer;begin read (c);p:=1;while ord(c[p])<> 0 do begin write(chr(ord (c[p])-32));inc(p);end;readkey;end.5、 从键盘...
pascal编程
答：你可以调用 system的单元 uses system;初学者用不到。单元操作是Pascal高级编程技术。您学习到深层的时候自然会明白的。^_^ 弄一些简单的出来吧 （1）assign过程 形式：assign(f,str);功能：将文件名字符串str赋给文件变量f，程序对文件变量f的操作代替对文件str的操作。（2）rewrite过程 形式：rewrite...
