Giúp mình bài pascal này !

[phamvanhoa7592]

Chỗ này em à.
If Lop.Tong >= 10 Then ... Else Lop.Tong := 'Khong Dat';
Sai chỗ Lop.Tong.
Em phải đổi lại là Lop.KQ mới đúng.

[trungvu]

Program HSG;
        Uses Crt;

        Type Hocsinh = Record
                hoten : String[20];
                kq    : String[10];
                toan, van, tong : Real;
        End;

        Var i, n : Integer;
            hs : Array[1..60] Of Hocsinh;

BEGIN
        Clrscr;
        Write('Nhap so hoc sinh: ');
        Readln(N);
        For i := 1 To N Do
        With hs[i] Do
        Begin
                Writeln('- Hoc sinh thu ',i,': ');
                Write('  + Ho & Ten: '); Readln(hoten);
                Write('  + Toan    : '); Readln(toan);
                Write('  + Van     : '); Readln(van);
                tong := toan + van;
                If tong >= 10 Then kq := 'Dat' Else kq := 'Khong Dat';
        End;
        Clrscr;
        Writeln('Ket qua');
        Writeln('======');
        For i := 1 To N Do
        With hs[i] Do
                Writeln(i:3, hoten:20, toan:4:0, van:4:0, tong:4:0, kq:7);
        Readln
End.

Đây là bài dựa theo yêu cầu đề của bài em và có cải tiến.
Chúc em học tốt.

[nhimbien12]

lehang làm đúng đó. Vì n chịu ảnh hưởng bởi căn bậc hai nhiều nhất lên cho là dơnto

[nhumotcongio]

Anh HSG ơi .Anh viết mấy file BT về bảng ghi đi , cho em tham khảo với
VD: Như bài tính điểm chuẩn của 1 trường nào đó rồi đưa ra màn hình có thí sinh trúng tuyển chảng hạn
Bọn em sắp KT 45' rồi mà em chẳng hiểu j` cả
Em cảm ơn anh nhiều!

[phukienplus]

Trong kì thi tuyển sinh ĐH HN.có 4 thí sinh dự thi khối A .Lập trình nhập vào bạn phím thông tin của thí sinh bao gồm :Họ tên ,SBD , ngay sinh , điểm Toán , lí , hoá .Sau đó hãy tính và đưa ra điểm chuẩn tuyển sinh của trường , trường k quy định điểm liệt .Chỉ tiêu là 2 người

program bai1;
uses crt;
type Hocsinh=Record
SBD: string[2];
Hoten:string[4];
Ngaysinh:String;
Toan,Li,Hoa,Tong:real;
end;
var A:array[1..4] of Hocsinh ;
i,t :integer;
Begin
  clrscr;
  For i:=1 to 4 do
  Begin
    write('So bao danh:'); readln(A[i].SBD);
    Write('Hoc sinh:');readln(A[i].Hoten);
    write('ngay sinh:');readln(A[i].Ngaysinh);
    write('Toan=');readln(A[i].Toan);
    write('Li='); readln(A[i].Li);
    write('Hoa=');readln(A[i].Hoa);
  end;
  For i:=1 to 4 do
  begin
    A[i].Tong:=A[i].Toan+A[i].Li+A[i].Hoa;
    If A[i].Tong<A[i+1].Tong then
    Begin
    t:=A[i];
    A[i]:=A[i+1];
    A[i+1]:=t;
    end;
    end;
    Writeln('STT hoc sinh sau khi duoc sap xep la :');
    for i:=1 to 4 do write(A[i].);
    writeln('Diem chuan cua truong:',A[2].Tong);
    readln
    end.

anh ơi ! Nó toàn báo lỗi ở chỗ sắp xếp thôi ạ.Anh xem cho em

[Winter Angle]

Nếu em đã A.Tong và A[i+1].Tong thì đi đâu hay làm gì cũng phải là i chang vậy chứ em không được thay đổi hay bỏ bớt đi. Nhìn sơ thì bài em thiếu mấy chỗ lỗi trên. Tập làm đi em!

[hpbuon]

Nếu em đã A.Tong và A[i+1].Tong thì đi đâu hay làm gì cũng phải là i chang vậy chứ em không được thay đổi hay bỏ bớt đi. Nhìn sơ thì bài em thiếu mấy chỗ lỗi trên. Tập làm đi em!

Em tưởng ta chỉ so sánh số tổng điểm của các thí sinh , còn muốn sắp xếp thì dựa vào STT tổng điểm đó ta sắp xếp tất cả các thông tin của thí sinh (học tên ,SBD,....) chứ anh

p/s: Em có chịu làm đấy chứ , nhưng làm toàn S nên em mới post lên nhờ anh chỉnh giúp mà :down:

[thienho]

À. Ý anh là em nên tập làm rồi có gì hỗng biết hay sai thì post lên anh hoặc các mem khác giúp. [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]
Cố lên em nhé!

[thanhtuancr7]

Nguyên văn bởi: doremon_mon
program bai1;
uses crt;
type Hocsinh=Record
SBD: string[2];
Hoten:string[4];
Ngaysinh:String;
Toan,Li,Hoa,Tong:real;
end;
var A:array[1..4] of Hocsinh ;
i,t :integer;
Begin
clrscr;
For i:=1 to 4 do
Begin
write('So bao danh:'); readln(A.SBD);
Write('Hoc sinh:');readln(A.Hoten);
write('ngay sinh:');readln(A.Ngaysinh);
write('Toan=');readln(A.Toan);
write('Li='); readln(A.Li);
write('Hoa=');readln(A.Hoa);
end;

For i:=1 to 4 do
begin
A.Tong:=A.Toan+A.Li+A.Hoa;
If A.Tong<A[i+1].Tong then
Begin
t:=A;
A:=A[i+1];
A[i+1]:=t;
end;
end;
Writeln('STT hoc sinh sau khi duoc sap xep la :');
for i:=1 to 4 do write(A.);
writeln('Diem chuan cua truong:',A[2].Tong);
readln
end.



Biến t khai báo sai rồi.t phải là kiểu Hocsinh thì mới có thể hoán vị đc

[vanphongquanphunhuan]

+ Như bạn ga vang nói đúng rồi đó. Em cũng có thể cho phép nhiều lựa chọn như sắp xếp theo thứ tự bảng chữ cái, xếp ngược, xếp xuôi ...
+ Nói ra em hỗng hiểu chứ có thể dùng lệnh gotoxy kèm với màu và lệnh xóa màn hình có thể tạo một menu xuất hiện cho chọn các cách sắp xếp trên khi mình chọn sắp xếp. Cái đó cần phải dùng thư viện dos.