... 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 ... - T: 0 983 713 301 Trang / 14 Mt s vớ d n gin v Access 2003 + HOA_DON: So_Don Ma_Khach_Hang Ma_Mat_Hang So_Luong Ngay_Giao_Hang 1 A001 11 12/07/20 08 B016 15 25/ 06/20 08 A001 10 14/07/20 08 C123 ... 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...
... 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: 1 3256 7 88 Nhập mảng n số nguyên từ tập tin, xếp mảng theo ... 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 ... 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');...
... PBCPOINT (2 58 2 Nối điểm) 47 Problem LEM1 (2 58 3 COIN) 48 Problem PBCWAYS (2 58 4 Trò chơi di chuyển tốt) 49 Problem PAIRVIS (2 58 6 Help Conan !) 50 Problem LEM2 (2 58 9 GUMBI) 51 Problem PASSWORD (259 7 ... Problem V8SORT (254 7 Sắp xếp) 37 Problem V8MAYORS (254 8 Thị trưởng) 38 Problem IOIHELP (255 3 IOITRAIN - Đóng góp, thắc mắc) 39 Problem VROOKS (255 4 Quân xe) 40 Problem VKNIGHTS (255 5 Quân mã) 41 ... VOI 08 Trò chơi với dãy số) 32 Problem NKJUMP (2402 VOI 08 Lò cò) 33 Problem NKGIFTS (2403 VOI 08 Quà tết) 34 Problem V8ORG (253 5 Tổ chức đối lập) 35 Problem V8SCORE (253 6 Chấm điểm) 36 Problem V8SORT...
... nào? Mô tả chế trỡnh vận chuyển đó? tiết 12: tập Câu 7: Phân biệt loại ARN cấu trúc chức nng? Câu 8: Trong tế bào có đại phân tử Cacbohyđrat, lipit, protein, axit nucleic Em cho biết nhng đại phân ... Riboxom tng hp prụtờin rARN mch cú ch xon kộp cc b Tham gia cu to Riboxom mARN rARN tiết 12: tập Câu 8: Nhng đại phân tử cấu tạo theo nguyên tắc đa phân: Cacbohyđrat, Protein, Axit nucleic Lipit không...
... ',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; ... Cho'); end; end; readln end end Ví Dụ Bi Bai7 ; program Bai7 ; uses crt; var b, c, n:byte; begin begin clrscr; repeat write('Nhap tuoi write('Nhap tuoi (bif (b-c
... tậpTinhọc – Upload by CodePascal.Blogspot.com Học Pascal online, tập Pascal nâng cao: Codepascal.blogspot.com Sinh viên: Lê Thị Châu Long Lớp: Tin 4B Bàitập 3. 38 trang 26 sách Bàitậptin ... dựng test: Dữ liệu vào Kết n Dãy p 781 6495 1456 789 10 15 8 9 15 Mở rộng toán: Bổ sung số vào dãy p mà giữ trật tự xếp… - Trang 13 - Lớp 11 Phương pháp giải tậpTinhọc – Upload by CodePascal.Blogspot.com ... tậpTinhọc – Upload by CodePascal.Blogspot.com Học Pascal online, tập Pascal nâng cao: Codepascal.blogspot.com Bàitập môn: PP giải tậptinhọc Sinh viên : Hồ Đức Thuận Lớp : Tin 4B Bài 3.25...
... lai!'); until a>0; s:=(a*a*pi)/2; write('Dien tich phan gach cheo: ',s :8: 3); readln end Bài 10 program bai1 0; uses crt; const g= 9 .8; var v, h:real; begin clrscr; repeat write('Nhap cao: '); readln(h); ... a)Program bai5 a; Uses crt; Const n=50; Var i: integer; Y:real; Begin Clrscr; for i:=1 to n Y:=i/(i+1); Write('Tong Y: ',y:9:3); Readln End b)program bai5 b; uses crt; var n:longint; Giải Bàitập SGK tin ... (b-c> =25) and (b>=2*c); if b=2*c then writeln('Hien tuoi cha gap hai lan tuoi con.') else if b>2*c then writeln('Sau ',b-2*c,' nam tuoi cha se gap doi tuoi con'); readln end Bài program Bai8 ; Giải...
... MM TINA I Gii thiu phn mm: Tina l phn mn dựng mụ hỡnh hoỏ mch in t, s dng cỏc mụ phng linh kin in t Cỏc bc s dng Tina Bc 1: Khi ng chng trỡnh bng cỏch nhp vo biu Tina : trờn mn hỡnh M ca s Tina: ... #define OFF int hist_array[10], y_array[10]; double datapoints[3] = {85 .0, 80 , 75.0}; double temp_history[10], x_array[10]; double upper_limit = 85 .0, lower_limit = 75.0; double rate = 0.5; int handle; ... đúp vào open để mở tậptin Hộp thoại Load Netlist Source xuất chọn tậptin MNL / open Hộp thoại Save File As xuất nhấp Save Hộp thoại Link Footprint To Component =>Link Existing Footprint To Compunent...