TAILIEUCHUNG - Bài tập pascal : Lời giải, đáp án part 5

Tuy nhiên sau đó Borland đã quyết định cần phải có nhiều tính năng hướng đối tượng tinh vi và phức tạp hơn, và đã bắt đầu sản phẩm Delphi, sử dụng sơ đồ thiết kế của Object Pascal do Apple đưa ra làm cơ sở. (Sơ đồ của Apple vẫn chưa phải là chuẩn.) Borland cũng gọi đây là Object Pascal trong phiên bản Delphi đầu tiên nhưng đổi tên thành Delphi trong các phiên bản sau đó | writelnfcac vi tri can du lai la for i 1 to length sl do write chiso i 3 writein end else writeln KHONG. writefNhan Esc de thoai repeat until readkey 27 END. Bai uses crt var s1 s2 string 11 b array 1 .10 of boolean chiso array 1. 10 of byte i byte Longlnt function vitri c char s string byte tra lai vi tri cua c trong xau s vitri 0 neu c khong co trong s var k byte begin k length s while b k false and k 0 do dec k inc k while c s k and k length s do inc k if k length s then vitri o else begin vitri k b k true end end 141 function kiemtra s1 string s2 string boolean kiem tra co the thu duoc s1 tu s2 var s string byte c char begin kiemtra false for i 1 to length sl do begin c s1 i chiso i vitri c s2 if chiso i 0 then exit end kiemtra true end BEGIN clrscr writefnhap so M readln M writefnhap so N readln N fillchar b sizeof b false fillchar chiso sizeof chiso 0 str M s1 str N s2 if kiemtra s1 s2 then begin writeln CO writelnfcac vi tri can du lai la for i 1 to length sl do write chiso i 3 writein end else writelnfKHONG. writefNhan Esc de thoai repeat until readkey 27 END. 142 Bai program p4_13 uses crt const max 20 var s array of string n i j integer duoc boolean begin clrscr write Nhap so n readln n writefNhap xau S readln s 0 for i 1 to n do begin writefNhap xau S i readln s i end duoc false for i 1 to n do so luong xau ghep begin end if not duoc then writelnf Khong duoc readln end. Bai program p4_14 uses crt const x1 10 .

• Kỹ thuật lập trình
• giáo trình pascal
• bài giảng giáo trình pascal
• tài liệu giáo trình pascal
• đề cương giáo trình pascal
• bài tập giáo trình pascal
• mứng dụng Turbo Pascal
• tài liệu Turbo Pascal
• giáo trình Turbo Pascal
• bài giảng Turbo Pascal
• Turbo Pascal
• kỹ thuật lập trình Turbo Pascal
• ứng dụng Turbo Pascal
• Kinh nghiệm sử dụng
• Lập trình căn bản
• Ngôn ngữ lập trình
• Kỹ thuật pascal
• Tài liệu về pascal
• Ngôn ngữ pascal
• Lập trình pascal
• Giáo trình pascal căn bản