... s:string[50]; n:byte;Procedure Xuatxau (xau: string;m:byte);Var i:byte;{******************}Beginfor i:=1 to m do Writeln (xau) ;End;{******************}BEGINWrite('Nhap xau: ');readln(s);Write('Nhap ... 10 mẩu tin ghi các thông tin sau: Hoten: string[30], tuoi:byte, thông tin được nhập từ bàn phím. Ghi bản ghi trên vào tệp C:\data10.txt.b. Viết chương trình tạo 1 bản ghi tối đa 10 mẩu tin ghi ... đa 10 mẩu tin ghi các thông tin sau: Hoten: string[30], tuoi:byte, thông tin của bản ghi được đọc từ tệp C:\data10.txtGiải:Câu a:Program Ghitep; Uses Crt; Type Hocsinh=Record Ten : String[30];...
... Codepascal.blogspot.comSinh viên: Lê Thị Châu LongLớp: Tin 4B Bàitập 3.38 trang 26 sách Bàitậptinhọc11. Bàitập 5 .11 trang 57 sách Bi tp tin hc 11. I. Bi 3.38:Lp trỡnh:ã Nhp t bn phớm s thc ... Codepascal.blogspot.comSinh viên: Lê Thị MaiLớp: Tin 4B Bàitập 3.39 trang 23 sách Bàitậptinhọc11. Bàitập 5.12 trang 74 sách Bàitậptinhọc11. I. Bài 3.39:Cho hai hinh chữ nhật có các cạnh song song với trục ... Lớp 11 - Trang 43 -Phương pháp giảibàitậpTinhọc – Upload by CodePascal.Blogspot.com Học Pascal online, bàitập Pascal cơ bản nâng cao: Codepascal.blogspot.comSinh viên: Lê Ngọc BảoLớp: Tin...