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

[auauau97]

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

[auauau97]

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

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

BUSLINE.OUT

26

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.

[auauau97]

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 !

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

BUSLINE.OUT

26

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??

BUSLINE.INP

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à

[Dustin Đỗ]

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

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.

[auauau97]

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

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 ?

[Duyenhuynh]

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

[Dustin Đỗ]

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

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?

[auauau97]

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.

[auauau97]

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.