... 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...
... 01 12A1 H Vn Chung 12 50 350 00 02 12A2 Nguyễn Thị Anh Thơ 12 52 350 00 03 12A3 Trần Thanh Hiệp 12 48 350 00 + 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: ... HOA A003 8 .5 Trn Thanh Hip - GV THPT ụ Lng 1, Ngh An - T: 0983 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 ... Ma_Khach_Hang Ma_Mat_Hang So_Luong Ngay_Giao_Hang 1 A001 11 12/07/2008 B016 15 25/ 06/2008 A001 10 14/07/2008 C123 19 15/ 07/2008 D102 20 16/07/2008 A001 10 12/07/2008 To mt Query TS_MAT_HANG nh...
... bàn phím In họ tên nhân viên cán quản lý 85 Cho cấu trúc NHANVIEN sau: MaNV: kiểu số nguyên có giá trò khoảng 0… 655 35 GV: Bùi Văn Thành Tháng 5- 2004 10 Tinhọc đại cương (C) Họtên: kiểu chuỗi Đòachỉ: ... giá trò khoảng 0… 655 35 Họtên: kiểu chuỗi Đòachỉ: kiểu chuỗi CBQL: có giá trò nhân viên cán quản lý Viết chương trình thực hiện: a Nhập vào thông tin nhân viên b Nhập vào thông tin n nhân viên n ... 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 Xóa nhân viên không cán quản lý khỏi danh sách 86 Cho cấu trúc NHANVIEN sau: MaNV: kiểu số nguyên có giá trò khoảng 0… 655 35...
... 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');...
... Problem VROOKS ( 255 4 Quân xe) 40 Problem VKNIGHTS ( 255 5 Quân mã) 41 Problem VPERM ( 255 6 Hoán vị cấp số cộng) 42 Problem VWORDS ( 255 7 Tương đương hóa hai từ) 43 Problem SAFENET2 ( 257 4 Mạng máy tính ... !) 50 Problem LEM2 ( 258 9 GUMBI) 51 Problem PASSWORD ( 259 7 Password) 52 Problem VNBRACK (2600 Dãy ngoặc bậc P) 53 Problem LSPITO (2602 Help Conan ! (version 3)) 54 Problem MEO (2603 Mèo) 55 Problem ... 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 ( 254 7 Sắp xếp) 37 Problem V8MAYORS ( 254 8 Thị trưởng) 38 Problem IOIHELP ( 255 3 IOITRAIN - Đóng góp,...
... Bi a) bai5 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); ',y:9:3 :9:3); Write('Tong Y: ',y:9:3); Readln End End Ví Dụ b) program bai5 b; ... 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< 25) or writeln('Du lieu cha: ');readln(b);...
... 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 ... giác Vào file-new nhập liệu đây, nhấn f2 để lưu lại với tên tamgiac.dat 10 20 10 20 50 30 15 20 15 40 30 15 20 15 35 Vào file-new, nhấn f2 lưu lại với tên tamgiac.out Nhấn f6 chuyển sang cửa sổ ... readln 11 Giải Bàitập SGK tinhọc 11 end Bài 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;...
... mch nh sau: Ung: Biờn : 24V Tn s :50 Hz Pha: Ufa : Biờn : 5V Tn s : 50 Hz Pha : 180 Uc : Biờn 15V R1:10k C1:1uF (15v) R2 :10k Rx :10k R4 :1k Xõy dng s Tina v chy th ta c kt qu sau: CU ... 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; int handle2; int ... 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:...
... 15KG 10KG Gia ban V = 25USD 24USD 15USD M=20 Ta co nhung cach sap xep sau: Value P/an 1: 9KG 5KG 6KG 12,5USD 8USD USD 29 ,5 USD P/an 2: 9KG 10KG 1KG 12,5USD 16USD 1,5USD 30 USD P/an 3: 0KG 15KG ... DO'); readln; end {De_so_404:Mot lop hoc co MxN cho ngoi gom M hang ghe,moi ghe co N hoc sinh De chuan bi cho ky thi hoc sinh gioi tinhoc ,mot so can su tinhoc moi nguo sang tac mot de sau so ... Gotoxy(30,2);Writeln(' A1 B1'); Gotoxy(30,3);Writeln(A1 :5, B1 :5) ; Gotoxy(30,4);Writeln('Hinh chu nhat thu 2:'); Gotoxy(30 ,5) ;Writeln(' A2 B2'); Gotoxy(30,6);Writeln(A2 :5, B2 :5) ; End; {*********************************************************************}...