Giúp bài tập pascal cần rất gấp

[horseman]

Để quản lý thông tin của học sinh ở trường, người ta yêu cầu cần quản lý các dữ liệu sau:
+ Họ tên
+ Điểm Toán
+ Điểm Văn
+ Điểm Anh
+ Điểm trung binh
a> Hãy xây dựng kiểu bản ghi với cấu trúc như mô tả ở trên
b> Khai báo một mảng động kiểu bản ghi học sinh và sinh số liệu ngẫu nhiên cho mảng
+ Sinh họ tên ngẫu nhiên
+ Sinh điểm các môn ngẫu nhiên và tính điểm trung bình biết Toán x1, Văn x2, Anh x3
c> Nhập giá trị điểm môn Toán từ bàn phím, hãy tìm tất cả các học sinh trong danh sách có điểm môn Toán bằng với giá trị vừa nhập và xuất ra màn hình theo mẫu sau: Hoten-Toan-Van-ANh. Có thống kê số lượng tìm kiếm.
d> Hãy tìm điểm trung bình lớn nhất và liệt kê các học sinh có điểm trung bình lớn nhất theo mẫu ở câu Hoten-Toan-Van-Anh-DTB
e> Hãy sắp xếp danh sách học sinh trên theo chiều giảm dần của điểm trung bình
Em xin cảm ơn:m/

 

[Viết Sang]

Để quản lý thông tin của học sinh ở trường, người ta yêu cầu cần quản lý các dữ liệu sau:
+ Họ tên
+ Điểm Toán
+ Điểm Văn
+ Điểm Anh
+ Điểm trung binh
a> Hãy xây dựng kiểu bản ghi với cấu trúc như mô tả ở trên
b> Khai báo một mảng động kiểu bản ghi học sinh và sinh số liệu ngẫu nhiên cho mảng
+ Sinh họ tên ngẫu nhiên
+ Sinh điểm các môn ngẫu nhiên và tính điểm trung bình biết Toán x1, Văn x2, Anh x3
c> Nhập giá trị điểm môn Toán từ bàn phím, hãy tìm tất cả các học sinh trong danh sách có điểm môn Toán bằng với giá trị vừa nhập và xuất ra màn hình theo mẫu sau: Hoten-Toan-Van-ANh. Có thống kê số lượng tìm kiếm.
d> Hãy tìm điểm trung bình lớn nhất và liệt kê các học sinh có điểm trung bình lớn nhất theo mẫu ở câu Hoten-Toan-Van-Anh-DTB
e> Hãy sắp xếp danh sách học sinh trên theo chiều giảm dần của điểm trung bình
Em xin cảm ơn:m/

Đây là bài cơ bản nhất. Vui lòng đọc kỹ giáo trình để tìm ra hướng giải

 

[rcp]

Trích:
Nguyên văn bởi horseman
Để quản lý thông tin của học sinh ở trường, người ta yêu cầu cần quản lý các dữ liệu sau:
+ Họ tên
+ Điểm Toán
+ Điểm Văn
+ Điểm Anh
+ Điểm trung binh
a> Hãy xây dựng kiểu bản ghi với cấu trúc như mô tả ở trên
b> Khai báo một mảng động kiểu bản ghi học sinh và sinh số liệu ngẫu nhiên cho mảng
+ Sinh họ tên ngẫu nhiên
+ Sinh điểm các môn ngẫu nhiên và tính điểm trung bình biết Toán x1, Văn x2, Anh x3
c> Nhập giá trị điểm môn Toán từ bàn phím, hãy tìm tất cả các học sinh trong danh sách có điểm môn Toán bằng với giá trị vừa nhập và xuất ra màn hình theo mẫu sau: Hoten-Toan-Van-ANh. Có thống kê số lượng tìm kiếm.
d> Hãy tìm điểm trung bình lớn nhất và liệt kê các học sinh có điểm trung bình lớn nhất theo mẫu ở câu Hoten-Toan-Van-Anh-DTB
e> Hãy sắp xếp danh sách học sinh trên theo chiều giảm dần của điểm trung bình

Đây là bài cơ bản nhất. Vui lòng đọc kỹ giáo trình để tìm ra hướng giải

Chào bạn horseman,

Đúng như lời bạn Viết Sang nói trên đây, bài tập của bạn khá là cơ bản. Bạn hãy tập tành đọc xem giáo trình, từ đó mày mò tự giải đáp.

Xong rồi và nếu ko ăn chắc thì bạn cứ đưa bài giải đáp của bạn lên đây, thể nào cũng có các bạn khác giải thich thêm hoặc góp ý để hướng dẫn thêm cho bạn hiểu hen.

Chúc bạn học tập tốt.

--- rcp ---

 

[horseman]

Mình không khai báo được. Bạn chỉ giúp mình khai báo ( tức làm câu a b ) giúp mình.

 

[Viết Sang]

Mình không khai báo được. Bạn chỉ giúp mình khai báo ( tức làm câu a b ) giúp mình.

Như đã nói ở trên. Xin nhắc lại cho bạn là điều cấm kị của "Programmer" là làm giúp (dùm). Nói thẳng là COPY. Bạn hãy viết những gì bạn suy nghĩ để tìm ra hướng. Bạn có thể gửi bài của bạn lên đây để mọi người khác góp ý bài làm cho bạn (không giải hay làm giúp) để bạn hiểu và lần sau không có đi hỏi nữa .

VS biết bạn là một người mới lập trình nên vấp phải là đúng. Nhưng những gì VS học được thì sẽ truyền đạt lại cho bạn (nếu bạn có theo nghề lập trình)

 

[horseman]

Type
quanly=record
hoten:string[30];
toan,van,anh,dtb:real;
end;
var
a:array of quanly;
i,n,d:integer;
m:real;
max:real;
begin
write(' So hoc sinh : '); readln;
setlength(a,n);
randomize;
for i:= low(a) to high(a) do
begin
a.hoten:=chr(random(26)+65);
a.toan:=random*random(11);
a.van:=random*random(11);
a.anh:=random*random(11);
a.dtb:=(a.toan+a.van*2+a.anh*3)/6;
writeln(' hoten : ',a.hoten);
writeln(' Diem Toan : ',a.toan:0:2);
writeln(' Diem Van : ',a.van:0:2);
writeln(' Diem Anh : ',a.anh:0:2);
writeln(' DTB : ',a.dtb:0:2);
end;
write(' Nhap diem Toan : ');readln(m);
d:=0;
for i:= low(a) to high(a) do
if (a.toan= m) then
begin
writeln(' Ho ten:',a.hoten,'-Toan:',m:0:2,'-Van:',a.van:0:2,'-Anh:',a.anh:0:2);
d:=d+1;
end;
if (d=0) then writeln(' khong co hoc sinh nao ')
else
writeln(' co ',d, ' hoc sinh co diem Toan = ',m:0:2);
max:=a[0].dtb;
for i:=low(a)+1 to high(a) do
if (max<a.dtb) then max:=a.dtb;
writeln(' hoc sinh co dtb lon nhat la : Hoten:',a.hoten,'-Toan:',a.toan:0:2,'-Van:',a.van:0:2,'-Anh:',a.anh:0:2,'-DTB:',max:0:2);

readln;
end.

ĐÂY la bài cua minh . Nhưng no vẫn không chạy đúng . Phần in ra học sinh có điểm trung bình lớn nhất.

writeln(' hoc sinh co dtb lon nhat la : Hoten:',a.hoten,'-Toan:',a.toan:0:2,'-Van:',a.van:0:2,'-Anh:',a.anh:0:2,'-DTB:',max:0:2);
Nó chỉ in ra DTB mã, còn họ tên ĐIem TOán VĂn Anh thì của thg Cuối cùng.
Bạn đọc và sửa lại cho mình vs. thank

 

[rcp]

Type
quanly=record
hoten:string[30];
toan,van,anh,dtb:real;
end;
var
a:array of quanly;
i,n,d:integer;
m:real;
max:real;
begin
write(' So hoc sinh : '); readln;
setlength(a,n);
randomize;
for i:= low(a) to high(a) do
begin
a.hoten:=chr(random(26)+65);
a.toan:=random*random(11);
a.van:=random*random(11);
a.anh:=random*random(11);
a.dtb:=(a.toan+a.van*2+a.anh*3)/6;
writeln(' hoten : ',a.hoten);
writeln(' Diem Toan : ',a.toan:0:2);
writeln(' Diem Van : ',a.van:0:2);
writeln(' Diem Anh : ',a.anh:0:2);
writeln(' DTB : ',a.dtb:0:2);
end;
write(' Nhap diem Toan : ');readln(m);
d:=0;
for i:= low(a) to high(a) do
if (a.toan= m) then
begin
writeln(' Ho ten:',a.hoten,'-Toan:',m:0:2,'-Van:',a.van:0:2,'-Anh:',a.anh:0:2);
d:=d+1;
end;
if (d=0) then writeln(' khong co hoc sinh nao ')
else
writeln(' co ',d, ' hoc sinh co diem Toan = ',m:0:2);
max:=a[0].dtb;
for i:=low(a)+1 to high(a) do
if (max<a.dtb) then max:=a.dtb;
writeln(' hoc sinh co dtb lon nhat la : Hoten:',a.hoten,'-Toan:',a.toan:0:2,'-Van:',a.van:0:2,'-Anh:',a.anh:0:2,'-DTB:',max:0:2);

readln;
end.

ĐÂY la bài cua minh . Nhưng no vẫn không chạy đúng . Phần in ra học sinh có điểm trung bình lớn nhất.

writeln(' hoc sinh co dtb lon nhat la : Hoten:',a.hoten,'-Toan:',a.toan:0:2,'-Van:',a.van:0:2,'-Anh:',a.anh:0:2,'-DTB:',max:0:2);
Nó chỉ in ra DTB mã, còn họ tên ĐIem TOán VĂn Anh thì của thg Cuối cùng.
Bạn đọc và sửa lại cho mình vs. thank

Bài của bạn bị sai ở đoạn:
---Sai...
for i:=low(a)+1 to high(a) do
if (max<a.dtb) then max:=a.dtb;
writeln(' hoc sinh co dtb lon nhat la : Hoten:',a.hoten,'-Toan:',a.toan:0:2,'-Van:',a.van:0:2,'-Anh:',a.anh:0:2,'-DTB:',max:0:2);
---...sai.

-------------------->>>>Nên sửa lại như sau:
---Sửa..
var

..
​

maxD: quanly;
​

...

for i:=low(a) to high(a) do
begin

if (max<a.dtb) then
begin

max:=a.dtb;
maxD.hoten:= a.hoten
maxD.toan:=a.toan
maxD.van:=a.van
maxD.anh:=a.anh
​

​

end;
​

end;
// Hoten-Toan-Van-Anh-DTB học sinh có điểm trung bình lớn nhất
writeln(' hoc sinh co dtb lon nhat la :
Hoten:',maxD.hoten,'-Toan:',maxD.toan:0:2,'-Van:',maxD.van:0:2,'-Anh:',maxD.anh:0:2,'-DTB:',max:0:2);
end;
​

---..Sửa.


TB.: bạn nên tự suy ra xem tại sao bị sai hen..

--- rcp ---