pascal成績排名

① pascal 四科成績總和

一個人的
program 123;
var
a,b,c,d:longint;
begin
readln(a,b,c,d);{輸入四科成績}
writeln(a+b+c+d);{求和}
writeln((a+b+c+d) div 4);{求平均內分}
end.
多個人的
program 123;
var
i,n:longint;
a,b,c,d:array[1..10000]of longint;
begin
readln(n); {輸入人容數}
for i:=1 to n do
readln(a[i],b[i],c[i],d[i]); {輸入每個人的四科成績}
for i:=1 to n do
writeln(a[i]+b[i]+c[i]+d[i]); {求和}
writeln((a[i]+b[i]+c[i]+d[i]) div 4); {求平均分}
end.

② Pascal 排名次 問題

程序片段：
讀入後：
for i:=1 to 10 do
for j:=1 to 10 do
begin
if marks[i,4]<mars[j,4] then inc(marks[i,5]);
end;(排序）內
for i:=1 to 10 do write(i,':',marks[i.5]);(輸出容）
readln;
end.

③ pascal編程輸入三個同學的成績，求出平均分和總分，然後從高到低排序，求解

program ex_1;
var
x,y,z:integer;
procere px(var a,b:integer); //排序的過程
var
i:integer;
begin
if a<b then
begin
i:=a;
a:=b;
b:=i;
end;
begin
read(x,y,z);
writeln((trunc(x+y+z)/3),』 『,x+y+z); //輸出平均分（trunc取整數部位）和專總分
px(x,y); //進行排屬序
px(y,z);
px(x,y);
write(x,y,z);
end.

④ pascal題 成績排名 過程！

program sortV;
type
information=record
num:integer;
nam:string;
chn,mat,sum:integer;
end;

var
i,n:integer;
infR:array[1..100] of string;
inf:array[1..100]of information;
it:information;
st:string;
t,tn,code:integer;

procere sort(n:integer);
var
i,j:integer;
t:information;
begin
for i:=1 to n-1 do
for j:=i to n do begin
if inf[i].sum<inf[j].sum then begin
t:=inf[i];
inf[i]:=inf[j];
inf[j]:=t;
end;
if ((inf[i].num<inf[j].num) and (inf[i].sum=inf[j].sum)) then begin
t:=inf[i];
inf[i]:=inf[j];
inf[j]:=t;
end;
end;
end;

begin
readln(n);
for i:=1 to n do
readln(infR[i]);
for i:=1 to n do begin
st:=infR[i][1];
t:=2;
while (infR[i][t]<>' ') do begin
st:=st+infR[i][t];
inc(t);
end;
val(st,tn,code);
inf[i].num:=tn;

inc(t);
st:=infR[i][t];
inc(t);
while (infR[i][t]<>' ') do begin
st:=st+infR[i][t];
inc(t);
end;
inf[i].nam:=st;

inc(t);
st:=infR[i][t];
inc(t);
while (infR[i][t]<>' ') do begin
st:=st+infR[i][t];
inc(t);
end;
val(st,tn,code);
inf[i].chn:=tn;

inc(t);
st:=infR[i][t];
inc(t);
while (t<=length(infR[i])) do begin
st:=st+infR[i][t];
inc(t);
end;
val(st,tn,code);
inf[i].mat:=tn;

inf[i].sum:=inf[i].chn+inf[i].mat;
end;
sort(n);
for i:=1 to n do
writeln(inf[i].num,' ',inf[i].nam,' ',inf[i].sum);
end.

⑤ Pascal中如何輸出分數

寫程序通分，分別求分子分母，用最大公約數，最小公倍數求解

⑥ 急！！！求pascal問題：輸入5個學生的姓名和語、數、英成績，根據總分從大到小排序輸出。

type xx=record
na:string;//記錄姓名
x,y,z,sum:longint;//記錄語文，數學，英語和總分
end;
var a,b,c,d,e,m,n:longint;
ch:char;
s:array[0..5]of xx;
ss:string;
begin
n:=5;
for a:=1 to n do
begin
read(ch);
while ch<>' ' do
begin
s[a].na:=s[a].na+ch;
read(ch);
end;//讀入姓名
readln(s[a].x,s[a].y,s[a].z);//讀入語文數學英語
s[a].sum:=s[a].x+s[a].y+s[a].z;//計算總分
end;
for a:=1 to n do
for b:=a+1 to n do
if s[a].sum<s[b].sum then
begin
ss:=s[a].na;
s[a].na:=s[b].na;
s[b].na:=ss;
e:=s[a].sum;
s[a].sum:=s[b].sum;
s[b].sum:=e;
end;//排序
for a:=1 to n do
writeln(s[a].na);//輸出
end.

⑦ 求pascal題 允許並列的排名

var i,n,s:longint;
a:array[1..100]of longint;
begin
readln(n);
for i:=1 to n do
read(a[i]);
readln(m);
for i:=1 to n do
if a[i]>a[m] then inc(s);
writeln(s+1);
end.

⑧ 如何用pascal編寫程序:輸入5個學生的語文成績 排出他們的名次 並帶上原來的編號

幫你寫是作弊，可以給你提示：
用a和b兩個數組分別儲存成績和編號，排序後用以i為變數1到5的for循環分行輸出i和b[i]

⑨ pascal 程序有什麼問題,5個學生成績排序,輸入1,2,3,4,5和5,4,3,2,1(每行一個)結果都有問題

冒泡排序部分應該是:
for n:=1 to 4 do //------------ maopaopaixu
for m:=1 to 4 do
if stu[m].score>stu[m+1].score then
begin
temp:=stu[m];
stu[m]:=stu[m+1];
stu[m+1]:=temp;
end;
你的begin位置內打錯了容

⑩ pascal 如何做可以幫排序的成績統計程序

//讀入:一行姓名，一行成績;輸出: 第回i名 姓名：答成績var a:array[1..10000] of longint; name:array[1..10000] of string; temp,i,j,n:longint;begin readln(n); for i:=1 to n do begin readln(name[i]); readln(a[i]); end; for i:=1 to n-1 do for j:=i+1 to n do if a[i]>a[i] then begin temp:=a[i]; a[i]:=a[j]; a[j]:=temp; end; for i:=1 to n do writeln(i,name[i],':',a[i]);end.