Pascal の初心者用の質問・相談所

Pascal の初心者用の質問・相談所 at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

800:799
 03/11/27 20:01
続きです 
Personarray=array[index] of person; 
procedure sort(n:index;var x:personarray); 
procedure exchangeperson(var A,B:person); 
 
var temp:person; 
begin 
   ・・・ 
end; 
 
var i,j:index; 
begin 
    for i:=1 to N-1 do 
        for j:=N-1 downto 1 do 
 ・・・ 
end; 
 
var num:o..nmax; 
i:index; 
Student:personarray; 
Infile:text; 
Filename:string[80]; 
begin 
 ・・・ 
end.

801:デフォルトの名無しさん
 03/11/27 20:25
あのー、少しは自分でやった方がいいと思うよ？ 
せめて、自分が考えたものを書くとかしたほうが。

802:デフォルトの名無しさん
 03/11/27 22:18
コンパイル通しただけだから、バグ取りは自分で 
program seiretu(input,output); 
const nmax = 100; 
type index    = 1..nmax; 
  Person      = record 
  name   : string[14]; 
  math,eng : 0..100; 
  total   : 0..200; 
end;    
  Personarray = array[index] of person; 
procedure sort(n : index; var x:personarray); 
  procedure exchangeperson(var A,B : person); 
  var temp : person; 
  begin    
    temp := A; A := B; B := temp; 
  end; 
var i,j: index; 
begin 
  for i:=1 to N-1 do 
    for j:=N-1 downto i do 
      if x[j+1].total < x[j].total then 
exchangeperson(x[j+1], x[j]); 
end;

次ページ