... B1 xóa các kítự trắng ở đầu và cuối chuỗiwhile s[1]=' ' do delete(s,1,' ');while s[length(s)]=' ... inc(d);write('Xau co so tu la:',d);ReadlnEnd.B3 Lập trình nhập vào một xâutừ bàn phím. Hãy biến đổi xâu đã cho bằng cách thayđổi tấ cả các dấu chấm liền nhau bằng được thay bằng một ... inc(k); end else begin i:=i+k-1; {s1[p,k]:='\0';} {Khong nho ky tu ket thuc xau trong pascal la gì :( } dec(p); break; end; end; inc(p); end;end;var n,i:integer; s2:xaukep;BEGINtachtu('Chuong...
... Readln;End.BÀI TẬPTỰ GIẢI Bài tập 6.11: Viết chương trình nhập vào một xâu ký tựtừ bàn phím. Tìm và in ra màn hình một từ có độ dài lớn nhất trong xâu. Gợi ý:Tách từng từ để so sánh (xem bàitập ... tổng 2 số lớn (xem bàitập 10). Bài tập 6.18: Viết chương trình để nén và giải nén một xâu ký tự .Ví dụ: Xâu ‘AAAABBBCDDDDDDDEEF’ sau khi nén sẽ trở thành ‘4A3BC7D2EF’. Bài tập 6. 19 : Viết chương ... 1 to m dowrite(g,S[i]:0:2,#32);close(g);End.Chú ý: 9BÀI TẬPVỀXÂU Bài tập 6.1: Viết chương trình liệt kê các từ của một xâu ký tự được nhập vào từ bàn phím, mỗi từ phải được viết trên...
... bàitập lớn Automata Đề bài : 2 DFA tương đươngA và C là cặp trạng thi tương đương, vậy hai DFA là tươngđương. Tức là chúng cùng thừa nhận một ngôn ngữ.19Báo cáo bàitập lớn Automata Đề bài ... CBáo cáo bàitập lớn Automata Đề bài : 2 DFA tương đươngDFA giao của hai DFAChúng ta dễ dàng nhận thấy rằng, DFA thừa nhận ngôn ngữgồm it nhất một kí hiệu 0 và ít nhất một kí hiệu 1.DFA ... BBáo cáo bàitập lớn Automata Đề bài : 2 DFA tương đươngTa có thể mô tả quá trình đoán nhận xâu vào của ôtômat hữu hạn đơn định đầy đủ A bằng thuật toán mô phỏng sau: Đầu vào: − Một xâu ω...
... nếu gõ BSJNE else1 ;không phải lưu chuỗi DEC DI ;ngược lại lùi 1 kítự DEC BX ;giảm kích thước chuỗi JMP read ; đọc kítự khác else1: STOSB INC BX read: INT 21H JMP while1 end_while1: ... tại ES:DI, sau đó tăng (hoặc giảm) SI và DI 1 (hoặc 2) đơn vị. Bài tập 1. VCT nhập một chuỗi kítự và in ra chuỗi theo thứ tự ngược lại. In chiều dài chuỗi.Ví dụ : Nhập chuỗi : abcd Chuỗi ... Nhập một chuỗi kítự tính tần số xuất hiện của các nguyên âm.Ví dụ : Nhập chuỗi : Thanh Chi Khang Số lần xuất hiện của các nguyên âm là: 34. VCT nhập hai chuỗi, liệt kê các kítự có mặt trong...
... nghĩa xâukítự (String) Xâukítự có thể hiểu đơn giản là một mảng một chiều có kiểu phần tử là các kítự (CHAR). Nhng xâukítự chỉ có thể có tối đa 255 kítự nhng nó có các lệnh xử lí xâu nh ... hàm chuẩn xử lí xâukí tự 1. Length (St) Hàm cho ta độ dài của xâukítự St VD : l := length(st); 2. Delete (St, Pos, Num) Thủ tục xoá đi Num kítự kể từ vị trí Pos trong xâu St VD : S ... với xâukí tự VD : readln(st); Writeln(st);1 Bài 9:{ Đọc một chuỗi kí tự. In ra màn hình chuỗi kítự đó a. Căn trái màn hình b. Căn phải màn hình c. Căn giữa màn hình}var s:string;{Xâu...
... Trang 1 Bài tậppascal cơ bản đến nâng cao theo chương trình TIN HỌC lớp 11 không phân ban Nhằm giúp các bạn học sinh lớp 11 tiếp cận với ngôn ngữ lập trình Pascal một cách dễ dàng ... Văn Chung trường THPT Hoàng Văn Thụ Nha Trang ĐT: 0972.311.481 Trang 2 Phần I: CÁC BÀITẬP CƠ BẢN Bài 1: Tìm giá trị lớn nhất trong 4 số a, b, c, d (a, b, c, được nhập từ bàn ... một số bài toán cơ bản đến nâng cao có trong chương trình của lớp 11 không phân ban. Các chương trình nhằm mục đích tham khảo cho các bạn ham mê tin học và là tài liệu chuẩn bị cho các bài kiểm...
... GIẢI BÀITẬP QUẢN TRỊ THƯƠNG MẠI Bài số 1: Hãy tính hệ số co dãn của cầu theo giá cả , cho đường cầu có dạng P= 60- ... 360/2400 = 360 (bóng) Bài số 20: 13Như vậy, nếu thời gian để tiếp nhận gỗ và chuẩn bị để đưa vào sản xuất của công ty là 7 ngày. Thì dự trữ chuẩn bị về gỗ là 210 ngày. Bài số 24:Tình hình ... sản xuất là: 500000/45 = 11112 (máy) Bài số 19: Một công ty chiếu sáng thành phố có nhiệm vụ phụ trách 200 cột đèn. Một cột đèn có 1 bóng. Xác định nhu cầu về số bóng đèn để công ty thực hiện...
... lý thuyết, phần bàitập mẫu và cuối cùng là phần bàitậptự giải để bạn đọc tự mình kiểm tra những kiến thức và kinh nghiệm đã học. Trong phần bàitập mẫu, đối với những bàitập khó hoặc có ... to’)Else Writeln(N,’ khong phai la so nguyen to’);End; Readln;End.BÀI TẬPTỰ GIẢI23Giáo trình bàitậpPascal Bài tập 3.2: Viết chương trình giải phương trình bậc nhất ax+b=0Uses Crt;Var ... Giáo trình bàitập Pascal Begin Dong[j]:=Dong[j-1]+Dong[j]; Write(Dong[j]:4); End; Writeln(Dong[i]:4); End; Readln;End.BÀI TẬPTỰ GIẢI Bài tập 5.13: Viết chương trình...