cuu gap

[tieugiang]

em chào các bác ạ.thú thật hôm nay em mới là thành viên của diễn đàn.em xin thỉnh giáo các bác một vài bài sau.em muốn hỏi bài 4.51,4.52,4.53 trong sách bài tập tin 11 trang 49,50,51,52.mong các bác giải giùm cho.em cần gấp lắm

[mr_invincible]

Đâu phải ai cũng có sách giáo khoa lớp 11 đâu bạn. Nếu muốn hỏi thì phải có cả đề bài nữa chứ

[phuninh]

Bài 4.51 là thế này:
bạn dựa vào ý b rồi phát triển them nhé bài này viết ra thì dài lắm
uses crt;
type ds = record

ht:string[25];
gt:string[1];
lop:string[4];
tg:real;
end;
var

a:array[1..10] of ds;
vt,i,j,n:byte;
kt:char;
max:real;
begin clrscr;
n:=1;
repeat
Writeln('Nhap hoc sinh thu ',n);
Writeln('Nhap ho ten');Readln(a[n].ht);
Writeln('Nhap gioi tinh');readln(a[n].gt);
writeln('Nhap lop ');Readln(a[n].lop);
Writeln('Nhap thoi gian');Readln(a[n].tg);
Writeln('Neu muon ket thu thi bam phim k con khong pham phim Enter);
kt:=upcase(Readkey);
if kt <> 'K' then inc(n);
Until kt='K';
for i:=1 to n-1 do
for j:=i+1 to n then
begin
if (a[i].tg >a[j].tg) and (a[i].gt ='1') and (a[j].tg = '1' then
begin
max:=a[i].tg;
a[i].tg:=a[j].tg;
a[j].tg:=max;
end;
end;
Writeln(a[i].ht,' ',a[i].lop);
Readln
end.

[tieugiang]

hic em xin lỗi các bác là không post đề bài lên.nhưng quả thực đề bài đai kinh khủng.đọc xong đề 3 bài trên chăc nổ đom đóm mắt mất.mong các bác thông cảm

[mr_invincible]

Dài thì có thể chụp lên hoặc làm thế nào đó

[chungkid1]

oài cái ông này,lười nó vừa thôi chứ,ko làm bài thì cũng phải bỏ công ra mà post lên đây,người ta mới biết đường,ko lẽ bây giờ tôi phải chạy đi mượn sách về đọc đầu bài rồi giải giùm bạn sao