Viết chương trình giải mật thư pascal

• 
• Diễn đàn
• Lập trình
• Các ngôn ngữ lập trình
• Pascal/Delphi/Kylix
• Các bạn giúp mình bài pascal này với:

1. Các bạn giúp mình bài pascal này với:

   Mật mã Caesar : Dịch mỗi chữ cái đi về ba chữ cái trong bảng chữ cái.
   Yêu cầu:
   Hãy viết chương trình để mã hóa và giải mã 1 bức thư theo mật mã Caesar

   Dữ liệu đầu vào :file VAO.TXT gồm 1 dòng
   - Dòng này là nội dụng bức thư khi chưa được mật mã hóa
   Dữ liệu đầu ra :file RA.TXT gồm 2 dòng
   - Dòng đầu là nội dung của bức thư khi đã được mật mã hóa theo mật mã Caesar
   - Dòng thứ 2 là kết quả giải bức mật mã của bức thư đó.
   VD:
   VAO.TXT:
   TIN HOC TRE KHONG CHUYEN
   RA.TXT:
   WLQ KRF WUH NKRQL FKXBHQ
   TIN HOC TRE KHONG CHUYEN

   ---

2. Các bạn giúp mình bài pascal này với:

   Thành phố Hà Nội vừa mới đưa vào hoạt động M tuyến xe buýt đánh số từ 1 tới M (3<= M <= 10) và N bến xe buýt được đánh số từ 1 tới N (20<=N<=100). Mỗi tuyến xe buýt được mô tả bởi dãy các bến mà nó đi qua. Thời gian di chuyển giữa hai bến chung của chúng là 3 phút.
   Yêu cầu: xác định cách đi với thời gian ít nhất từ bến xuất phát S đến bến đích T.
   Dữ liệu: Vào từ file văn bản BUSLINE.INP:
   Dòng đầu tiên chứa số M,N.
   Mỗi dòng trong số M dòng tiếp theo mô tả 1 tuyến xe buýt. Số đầu tiên trong dòng là số lượng bến trên tuyến, tiếp đến là dãy các bến xe trên tuyến, tiếp đến là dãy các bến xe trên tuyến.
   Dòng cuối chứa 2 số S,T.
   Kết quả: Ghi ra file văn bản BUSLINE.OUT thời gian nhỏ nhất để đi từ bến S đến bến T theo các tuyến xe buýt của thành phố. Ghi -1 nếu không có khoảng cách đi từ S đến T.
   Ví dụ:
   BUSLINE.INP
   

   Code:

   3  11
   4  1  3  7  8
   5  2  3  4  5  6
   4  6  11  10  9  8 
   4  9

   BUSLINE.OUT
   Giải thích:
   Cách đi với thời gian 26 trong ví dụ trên là:
   Theo tuyến 2 đi từ bến 4 đến 3,
   Đổi đang tuyến , đi từ 3 qua 7 đến 8,
   Đổi sang tuyến 3, đi từ 8 đến 9.

   ---

3. Được gửi bởi kontrạhd

   Hếlô cả nhà ! Mình đang cần bán 1 thẻ học lập trình tại FPT-Aptech trị giá 100 $. các bạn nếu mua thẻ sẽ được học 1 trong 6 nội dung đào tạo sau và không phải đóng thêm bất kỳ khoản phí nào:
   1 tổng quan về máy tính
   2 lập trình căn bản
   3 lập trình java
   4 lập trinh website
   5 quản trị cơ sở dữ liệu
   6 lập dự án
   thẻ co giá trị đến hết ngày 31/12/2011
   địa chỉ đào tạo lập trình viên quốc tế FPT-Aptech
   - tầng 4 - cung văn hóa hữu nghị, 1A Yết Kiêu, Hoàn Kiếm, Hà Nội
   - tầng 2 - Nhà D - Làng SV Hacinco, Nguyễn Tuân, Thanh Xuân, Hà Nội
   - Tầng 3 - 51 Lê Đại Hành ( gần trường ĐH Bách khoa ), Hai Bà Trưng, Hà Nội

   mình nghĩ sẽ rất hữu ích cho ai đang có nhu cầu học hỏi về tin học. Mình thì cũng rất muốn đi học nhưng không có thời gian :"> minh để giá 1 tr nhé. nhớ là giá trị của thẻ la 100 $ đấy nha ! hi bạn nao có nhu cầu thì liên hệ với mình qua số đt 0986314024 gặp Duy.

   Mình đâu có hỏi nơi học pascal hả bạn ?
   Bạn giúp mình bìa ở trên với !

   ---

4. Bạn có thể chuyển chúng về đồ thị rồi dùng thuật toán tìm đường ngắn nhất là được.

   Được gửi bởi auauau97

   BUSLINE.OUT

   Giải thích:
   Cách đi với thời gian 26 trong ví dụ trên là:
   Theo tuyến 2 đi từ bến 4 đến 3,
   Đổi đang tuyến , đi từ 3 qua 7 đến 8,
   Đổi sang tuyến 3, đi từ 8 đến 9.

   Cho mình hỏi thời gian di chuyển giữa 2 bến cùng tuyến là bao nhiêu vậy??

   Được gửi bởi auauau97

   BUSLINE.INP

   Code:

   3  11
   4  1  3  7  8
   5  2  3  4  5  6
   4  6  11  10  9  8 
   4  9

   Đề bài yêu cấu nhập N>=20 mà

   ---

5. Bài của bạn đây!
   

   Code:

   CONST
     fi = 'VAO.TXT';
     fo = 'RA.TXT';
   var
     x: char;
     alp: string[29];
     i: byte;
   
   begin
     assign(Input, fi); reset(Input);
     assign(Output, fo); rewrite(Output);
     alp := 'ABCDEFGHIJKLMNOPQRSTUVWXYZABC';
     while not (EOF(Input)) do
       begin
         read(Input, x);
         if x = ' ' then write(Output,' ')
         else
           for i := 1 to length(alp) - 3  do if x = alp[i] then write(output, alp[i+3]);
       end;
     writeln(Output);
     reset(input);
     while not (eof(input)) do
       begin
         read(Input,x);
         write(output,x);
       end;
     close(Input);
     close(output);
   end.

   ---

6. Được gửi bởi Dustin Đỗ

   Bài của bạn đây!

   Code:

   CONST
     fi = 'VAO.TXT';
     fo = 'RA.TXT';
   var
     x: char;
     alp: string[29];
     i: byte;
   
   begin
     assign(Input, fi); reset(Input);
     assign(Output, fo); rewrite(Output);
     alp := 'ABCDEFGHIJKLMNOPQRSTUVWXYZABC';
     while not (EOF(Input)) do
       begin
         read(Input, x);
         if x = ' ' then write(Output,' ')
         else
           for i := 1 to length(alp) - 3  do if x = alp[i] then write(output, alp[i+3]);
       end;
     writeln(Output);
     reset(input);
     while not (eof(input)) do
       begin
         read(Input,x);
         write(output,x);
       end;
     close(Input);
     close(output);
   end.

   Thanks bạn nhé, bạn có thể nói cho mình thuật toán của bạn không ?

   ---

7. Pascal già cỗi quá rầu, ai mà học nữa, chỉ có mình là mắc phải học hồi cấp 3

   ---

8. Được gửi bởi Dustin Đỗ

   Bài của bạn đây!

   Code:

   CONST
     fi = 'VAO.TXT';
     fo = 'RA.TXT';
   var
     x: char;  {đọc từg phần tử của file nên dùng char cho không bị giới hạn số lượng}
     alp: string[29]; {dãy chứa 26 chữ cái và 3 chữ cái đầu dãi}
     i: byte; {biến chạy}
   
   begin
     assign(Input, fi); reset(Input);
     assign(Output, fo); rewrite(Output);
     alp := 'ABCDEFGHIJKLMNOPQRSTUVWXYZABC';  {tạo dãy gốc}
     while not (EOF(Input)) do  {trong khi chưa đọc hết file}
       begin
         read(Input, x);   {đọc từg kí tự}
         if x = ' ' then write(Output,' ')  {nếu là kí tự khỏag trắg thì ghi vào file out}
         else   {ngược lại}
           for i := 1 to length(alp) - 3  do if x = alp[i] then write(output, alp[i+3]);  {dò trong dãy gốc và in ra phtử cách x 3 kí tự}
       end;
     writeln(Output);   {đưa con trỏ xún dòng}
     reset(input);   {đưa con trỏ về đầu file}
   {----in dãy ban đầu----}
     while not (eof(input)) do  {trong khi chưa hết file}
       begin
         read(Input,x);  {đọc kí tự từ file in}
         write(output,x);  {ghi kí tự đó vào file out}
       end;
     close(Input);
     close(output);
   end.

   đơn giản mà bạn...đâu cần fải giải thích gì nhiều?

   ---

9. Được gửi bởi HGMinh95

   Bạn có thể chuyển chúng về đồ thị rồi dùng thuật toán tìm đường ngắn nhất là được.

   Cho mình hỏi thời gian di chuyển giữa 2 bến cùng tuyến là bao nhiêu vậy??

   Đề bài yêu cấu nhập N>=20 mà

   Ờ, để mình bảo cô mình xem lại đề bài nhé !
   Khi nào hỏi cô mình lại xong thì mình sẽ báo cho bạn !
   Thanks bạn đã góp ý nha.

   ---

10. Các bạn giúp mình 2 bài pascal này với:

    Bài 1:
    Bài toán “Mã đi tuần” như sau: giả sử có con mã được đặt ở ô (i,j) trên bàn cờ 8x8 ô trống, hãy tìm tất cả các cách đi của con mã với điều kiện là mỗi cách đi, con mã phải đi hết đúng 64 ô cờ và mỗi ô cờ, con mã chỉ đi qua đúng 1 lần.
    In ra tọa độ của con mã để đi hết cả bàn cờ.
    Bài 2:
    Viết chương trình lập trình tìm tọa độ của 8 con hậu trên bàn cờ vua sao không có con
    hậu nào ăn được con nào !
    In tọa độ của 8 con ra màn hình, mỗi dòng 1 tọa độ của 1 con hậu.

    ---

Bookmarks

Bookmarks

Quy định

• Bạn không thể tạo chủ đề mới
• Bạn không thể trả lời bài viết
• Bạn không thể gửi file đính kèm
• Bạn không thể sửa bài viết của mình
•  

• BB code is On
• Smilies are On
• [IMG] code is On
• [VIDEO] code is On
• HTML code is Off

Quy định DDTH.com