tailieunhanh - 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 .