... In_Phan_so(x); Readln end c Nhận xét: Ở 8. 1 ta khai báo biến có kiểu record Ở 8. 2 ta khai báo kiểu Phan_so lệnh Type sau khai báo biến x có kiểu Phan_so Bàitập8. 3 Thực 8. 2 với yêu cầu phân số nhập dạng ... nhap_ho_so(ds); writeln('DANH SACH HOC VIEN NU'); writeln; i:=1; while ds[i].holot'' begin if ds[i].gioitinh then in_ho_so(ds[i]); i:=i+1; end; readln end c Nhận xét: Bàitập8.8 Phát triển thêm chức xếp ... nhập.In n-1 số lại n= 10 (Nhập 10 phần tử) Ví dụ: Nhập 2, 3, 4, 5, 6, 8, 7, 6, 5, k= (Xoá phần tử thứ 8) In ra: 2, 3, 4, 5, 6, 8, 7, 5, a Hướng dẫn: Xoá phần tử k cách ghi đè phần tử thứ k+1 lên...
... 100% ( %B = 100% - %A ) A B x y Giải MS= 32(g) , MO = 16 – = 48 9g)., MSO3 = 32 + 48 = 80 (g) %S= 32 100% = 40% 80 %O= 48 100% = 60% 80 D/ Các phép tính phương trình hóa học 1/ Tính lượng vừa ... quan LỚP G SS K TB Y KÉM SL % SL % SL % SL % SL % 3,1 8A1 32 9,4 25,0 14 43 ,8 18, 7 8A2 30 13,3 12 40,0 11 36,7 10,0 8A3 33 9,1 24,2 16 48, 5 15,2 Qua kiểm nghiệm thấy kết lớp sau thực nghiệm cao ... 25 18, 7 8A2 30 20.0 10 33,3 30 16,7 8A3 33 18, 1 15 14,5 21,2 15.2 - Kết sau áp dụng đề tài từ đầu học kì II kết thúc năm học 20092010 LỚP SS G K TB - 13 - Y KÉM SL % SL % SL % SL % SL % 3,1 8A1...
... tự trắng xâu in xâu Input: Một xâu Output: In xâu xóa kí tự trắng *Ví dụ: S:’emđihọc’ ‘emdihoc’ *Ý tưởng giải thuật: - Nhập xâu - Xóa kí tự trắng - In xâu xóa kí tự trắng + Xóa: Dùng for ... gì? Ví dụ ta xét đến phần tử thứ tức i=3 Thì để HSTL Delete(s,vt,n) *Viết chương trình: Program bai1 ; Var s:string; i:byte; BEGIN Write(‘nhap xau:’);readln(s); For i:=1 to length(s) If s[i]=’ ... tự - IN xâu xóa kí tự * Xóa từ - Delete(s,vt,n) +Vt=1 + n=pos(‘ ‘,s) *Viết chương trình: Program bai2 ; Var s:string; n:byte; BEGIN Phần nhập in thành thạo Vậy phân tích cách xóa kí tự Để xóa dùng...
... An - T: 0 983 713 301 Trang 11 / 14 Mt s vớ d n gin v Access 2003 HOA A004 LI A001 LI A002 8. 5 LI A003 9.5 LI A004 TIN A001 10 TIN A003 TIN A004 TOA A001 TOA A002 7.5 TOA A003 TOA A004 8. 5 To mt ... Triu A004 Nguyn Vn Chánh A005 Lê Thị Kim N 20/12/1 981 Sài Gòn A006 Phm Th Thu N 11/07/1 988 Bc Giang Yên Sơn, Đô Lơng N Ngày sinh Nơi sinh 31/12/1 986 Đô Lơng Địa Ghi lớp Tên sinh Giới tính Mã Họ ... Trần Thanh Hiệp 12 48 35000 + MONTHI: Mã môn thi Tên môn thi Hệ số HOA Hoá học LI Vật Lý TINTinhọc TOA Toán + KETQUA: Mã môn thi Mã học sinh Điểm HOA A001 HOA A002 HOA A003 8. 5 Trn Thanh Hip...
... vào thông tin nhân viên b Nhập vào thông tin n nhân viên n nhập từ bàn phím Nhập thêm thông tin nhân viên nhập số nguyên k Thực việc chèn nhân viên vào danh sách vò trí k IX TẬP TIN: 87 Nhập mảng ... số nguyên từ tập tin, có cấu trúc sau: Dòng đầu: số phần tử mảng Dòng tiếp theo: phần tử mảng Ví dụ: tậptin data.txt có nội dung sau: 132567 88 Nhập mảng n số nguyên từ tập tin, xếp mảng theo ... xuống tậptin khác (tên tậptin nhập vào từ bàn phím) 89 Nhập ma trận kích thước m*n từ tập tin, có cấu trúc sau: Dòng đầu: m n Các dòng tiếp theo: giá trò phần tử ma trận Ví dụ: tậptin data.txt...
... tối đa 10 mẩu tin ghi thông tin sau: Hoten: string[30], tuoi:byte, thông tin nhập từ bàn phím Ghi ghi vào tệp C:\data10.txt b Viết chương trình tạo ghi tối đa 10 mẩu tin ghi thông tin sau: Hoten: ... tuoi:byte, thông tin ghi đọc từ tệp C:\data10.txt Giải: Câu a: Program Ghitep; Uses Crt; Type Hocsinh=Record Ten : String[30]; Tuoi: Byte; End; var F : file of Hocsinh; Hs: array[1 10] of Hocsinh; i,n: ... Close(f); END Câu b: Program Doctep; Uses Crt; Type Hocsinh=Record Ten : String[30]; Tuoi: Byte; End; var F : file of Hocsinh; Hs: array[1 10] of Hocsinh; i,n: byte; BEGIN Assign(F,'C:\DATA10.txt');...
... 10cm, AE = 8cm TÝnh EC, HC 28. Quan s¸t l¨ng trơ ®øng tam gi¸c (h×nh 1) råi ®iỊn sè thÝch hỵp vµo « trèng b¶ng sau: a (cm) b (cm) c (cm) h (cm) a 10 h Chu vi ®¸y (cm) 22 Sxq (cm2) 88 c b H×nh ... tam gi¸c ABC vµ c¸c ®êng cao BD, CE a,Chøng minh: b.TÝnh biÕt = 480 14.Cho tam gi¸c ABC vu«ng ë A, ®êng cao AH, BC = 20cm, AH = 8cm.Gäi D lµ h×nh chiÕu cđa H trªn AC, E lµ h×nh chiÕu cđa H trªn ... ®êng th¼ng song song víi ®¸y, c¾t c¸c c¹nh AD,BC ë M vµ N cho MD = 2MA a.TÝnh tØ sè b.Cho AB = 8cm, CD = 17cm.TÝnh MN? 10.Cho h×nh thang ABCD(AB//CD).M lµ trung ®iĨm cđa CD.Gäi I lµ giao ®iĨm...
... VOI 08 Lò cò) 33 Problem NKGIFTS (2403 VOI 08 Quà tết) 34 Problem V8ORG (2535 Tổ chức đối lập) 35 Problem V8SCORE (2536 Chấm điểm) 36 Problem V8SORT (2547 Sắp xếp) 37 Problem V8MAYORS (25 48 Thị ... LEM (25 78 RIVER) 45 Problem SUMS (2 580 Số phụ thuộc) 46 Problem PBCPOINT (2 582 Nối điểm) 47 Problem LEM1 (2 583 COIN) 48 Problem PBCWAYS (2 584 Trò chơi di chuyển tốt) 49 Problem PAIRVIS (2 586 Help ... Problem NKNET (23 48 Mạng truyền tin) 28 Problem NKLEAGUE (2367 Giải bóng đá) 29 Problem NK2MFS (23 68 Lập lịch hai máy) 30 Problem LQDBUS (2377 Đến trường) 31 Problem NKSGAME (2401 VOI 08 Trò chơi...
... góc thoả mãn B C A' 2a O +Bài 33 (80 ): Cách dựng: A Hồ Hồng Điệp - Trờng THCS Trần Lãm 4cm B 80 0 D 3cm C B 1/ Dựng ABO 2/ Dựng (C, 4cm),có A 3/ Kẻ Ax//CD +Bài 39 (88 ): C, A đối xứng qua d , D, E ... trí điểm E để EA + EB nhỏ nhất.(câu b) A B d H D E C A H B' K d D B C + Bài 40 (88 ): (Tranh ảnh) a/ c/ + Bài 41 (88 ): a/ Đ c/ Đ b/ d/ b/ Đ d/ S + Bài 47(93): GT KL ABCD hình bình hành AH, CK BD ... (2) => MNPQ hcn + Bài 81 (1 08) : Tức giác AEDF có góc vuông 0 A = 45 + 45 = 90 E =F = 90 Do AEDF hình chữ nhật Đờng chéo AD phân giác góc A Vậy AEDF hình vuông +Bài 83 (1 08) : Đáp án: a/ S b/ Đ...
... Begin [] End Phần khai báo Phần khai báo KHỞI ĐỘNG CHƯƠNG TRÌNH TURBO PASCAL Chạy chương trình Turbo Pascal mơi trường MS_DOS Trên hình desktop, chọn My Computer, chọn ổ đĩa C:, chọn ... Kiểu liệu ngơn ngữ lập trình Pascal Tên kiểu Phạm vi giá trị integer Số ngun khoảng -215 đến 215 – real Số thực có giá trị tuyệt đối khoảng 2,9x10-39 đến 1,7x10 38 số Char Một kí tự bảng chữ String ... Trong Pascal, chương trình dịch hiểu dãy chữ số kiểu xâu Ta phải đặt dãy số cặp dấu nháy đơn Ví dụ: ‘Chao cac ban’; ‘5324’ CÁC PHÉP TỐN VỚI DỮ LIỆU KiỂU SỐ Kí hiệu phép tốn số học ngơn ngữ Pascal...
... ',bwriteln('Sau ',b-2*c,' nam tuoi cha se gap doi tuoi con'); readln end end Ví Dụ Bi program Bai8 ; Bai8 ; uses crt; var A, B, St, Luu :real; n:byte; begin clrscr; write('Nhap so tien gui: ');readln(a); ... Bai 11 program bai1 1; uses crt; const max=60; type Hocsinh = record hoten:string[30]; ngaysinh:string[10]; diachi:string[50]; toan, van:real; xeploai:char; end; end; var lop:array[1 max] of hocsinh; ... write('Dien tichphan gach cheo: ',s :8: 3); Great by: Nguy n Tr ng Hong Email: quanaxiem_lovelytnt@yahoo.com readln end end Ví Dụ Bi 10 program bai1 0; uses crt; const g= 9 .8; var v, h:real; begin clrscr;...