K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

19 tháng 3 2022

D

18 tháng 3 2022

a

18 tháng 3 2022

A

1) Dien vao dau cham trong bai giai: Viet chuong trinh thuc hien nhung viec sau:a) Doc tu ban phim 1 danh sach gom:Ho ten, mon thi thu nhat, diem mon thi thu nhat , mon thi thu hai, diem mon thi thu haib) Ghi vao dia voi ten tep QLHTc) Doc du lieu tu File QLHT, tim nhung hoc sinh phai thi lai ( co it nhat mot mon khong dat ) . Dua ra so thu tu, ho ten, cac mon phai thi lai va diem tuong ung ra man hinh                                                                                          Bai...
Đọc tiếp

1) Dien vao dau cham trong bai giai: Viet chuong trinh thuc hien nhung viec sau:

a) Doc tu ban phim 1 danh sach gom:

Ho ten, mon thi thu nhat, diem mon thi thu nhat , mon thi thu hai, diem mon thi thu hai

b) Ghi vao dia voi ten tep QLHT

c) Doc du lieu tu File QLHT, tim nhung hoc sinh phai thi lai ( co it nhat mot mon khong dat ) . Dua ra so thu tu, ho ten, cac mon phai thi lai va diem tuong ung ra man hinh 

                                                                                         Bai giai

program......

Uses Crt;

 type phieudiem = record

         hten : string [25];

         Mh1 : string [10]; 

             d1 : real;

         Mh2 : string [10];

             d2 : real'

                end;

      Var 

      pd : phieudiem;

        f    file of phieudiem;

        n,i,t : integer;

   Begin

     clrscr;

write ( ' So phieu diem n = ' ) ;

...........................

assign (....................) ;

rewrite (..............)

            For i := 1 to n do 

                                  with pd do 

        begin

             Writeln ( ' Vao phieu diem thu ' , i );

             Write ( ' Ho va ten: ' ) ;

              Readln (...................) 

              Write (' Mon thi thu nhat : ') ;

               Read..............

                Write ( ' Diem mon thu nhat ' );

                Read.....................

                 Write ( ' Mon thi thu hai: ' ) ;

                 Readln.............................

                   Write ( ' Diem mon thu hai: ' ) ;

                     Read...............

                    Write ( f, pd ) ;

                            end;

                       close (f);

                            clrscr ; 

                      Writeln ( ' Danh sach hoc sinh thi lai : ') ;

                         Writeln;

                         assign....................

                         reset...........

                                 t : = 0 ;

                           While not eof (f) do

                         Begin

                           read ( r, pd );

                               with pd do

                                   If ( d1 < 5 ) or ( d2 < 5 ) then 

                                              Begin

                                                 inc (t); 

                                        Write..................

                 if d1 < 5 then 

                              Write.......

              if d2 < 5 then

                            Write............

                      Writeln;

                       end;

                        end;

                         close (f);

                           end.

     

 

 

0