Pascal - Mọi người ơi giúp em với

Trần Nhật Anh

Trần Nhật Anh
(Trần Nhật Anh)

Điều hành viên
Mọi người ơi, em sắp phải thực hành sử dụng pascal rồi. Thế nên em cài Pascal ở nhà luyện tập trước. Khốn nỗi cái máy nhà em không dùng được khai báo trình bày màn hình
uses crt;
Nên không thể làm làm BT được. Em nghe nói ở một số máy cấu hình mạnh thì khi dùng khai báo này sẽ bị lỗi
Error 200: Division by zero
Mọi người ai biết cách khắc phục làm ơn giúp em với.
 
Ôi, cám ơn anh nhiều lắm. May quá, vừa post bài lên đã có người trả lời rồi.
Cảm ơn anh nhiều nhiều!
 
Nhưng mà cho em hỏi cái lỗi division by zero đấy vì đâu mà có ? sao hay gặp lỗi này ở Pascal thế nhỉ ? :D cái file mới vì sao mà không bị lỗi nữa vậy ? :))
 
Dù free pascal gần giống turbo pascal nhưng mới học ko nên dùng free pascal vì : turbo debug dể hơn + thông báo lỗi cụ thể hơn
Còn để sửa lỗi Divison by zero thì em đưa anh địa chỉ hòm thư anh gửi file sửa lỗi cho
 
Đặng Trần Hiếu đã viết:
Chẳng cần cấu hình mạnh, vài trăm MHz là đã lỗi rùi ấy chứ. 1 là dùng 1 compiler khác (như Free Pascal chẳng hạn - http://www.freepascal.org) hoặc là download file nì ftp://garbo.uwasa.fi/pc/turbopas/crt.zip unzip ra rùi thay vào.
Nhấn để mở rộng...
Em đã down về và unzip ra. Nó tạo ra một cái folder gồm có mấy file crt, 1 flie test và 1 cái readme. Cái readme bảo em dùng tpumover.exe để move crt gốc ra rồi thay cái mới vào nhưng em làm thử thì chẳng có gì xảy ra cả. Anh có thể chỉ rõ hơn cho em được không?
 
Mọi người ơi, giúp em với. Thầy em yêu cầu dùng câu lệnh for ... to ... do để vẽ cái hình này:hai hình tam giác cân đối đỉnh nhau cấu tạo bằng các dấu * có đáy là 9 * và các * cách nhau bằng dấu cách.
Tiếp sau đó là biến đổi hình * thành kĩ tự bất kì trên bàn phím.
Em chẳng tư duy ra là làm thế nào. Mọi người giúp em với.
 
Chỉnh sửa lần cuối:
khiếp
lớp Sinh học Tin khó thế này cơ à :)):D:D
 
Bài này khá là cơ bản. Em nên tự luyện tập ở nhà vì nếu hỏi qua đây thì khi đi thi không làm được bài đâu ;) Tốt nhất là hỏi chú Biên cách giải quyết kia kìa, xong rồi tự làm em ạ.
 
Em đã down về và unzip ra. Nó tạo ra một cái folder gồm có mấy file crt, 1 flie test và 1 cái readme. Cái readme bảo em dùng tpumover.exe để move crt gốc ra rồi thay cái mới vào nhưng em làm thử thì chẳng có gì xảy ra cả. Anh có thể chỉ rõ hơn cho em được không?
Nhấn để mở rộng...
Unzip đề lên file CRT cũ là được, trong file readme nó có ghi rõ CRT70 là file cho Pascal 7, CRT80 là file cho Pascal 8,... copy file tương ứng với version Pascal hiện có.
 
Tốt nhất là lấy 1 tờ giấy ca rô ra, vẽ hình tam giác, mở rộng nó ra thành hình chữ nhật, vẽ các dấu * và dấu cách trong hình chữ nhật đó, vẽ đường cao, rồi tính khoảng cách từ các dấu * đến các cạnh hình vuông và đến đường cao. Trên cơ sở các con số đó, khái quát hóa đi 1 chút, tính các giá trị kia theo độ dài đáy và thứ tự dòng, thì sẽ giúp mình trong việc tìm ra lời giải :)
 
Ngồi 1 lúc nghĩ ra đc cái cách vô học này, chẳng bít có cách nào hay hơn ko?? :D

Đây là cái chương trình con để in ra 2 cái hình tam giác :D
PHP: 
procedure solve;
begin
for i:=1 to 9 do write(a,' ');
writeln;
for i:=1 to 8 do
    begin
    for j:=1 to i do write(' ');
    write(a);
    for j:=1 to (7-i)*2+1 do write(' ');
    if i<>8 then write(a);
    writeln;
    end;
for i:=8 downto 1 do
    begin
    for j:=1 to i do write(' ');
    write(a);
    for j:=(7-i)*2+1 downto 1 do write(' ');
    if i<>8 then write(a);
    writeln;
    end;
for i:=1 to 9 do write(a,' ');
end;

Đặt biến a:='*';
rồi chạy cái chương trình con đó
sau đó dùng readkey để biến đổi hình * thành hình kí tự bất kì mà mình nhập vào:D
Chú ý trc khi in ra hình kí tự khác * thì dùng clrscr cho nó đẹp :D
 
anh Đặng Trần Hiếu đã viết:
Unzip đề lên file CRT cũ là được, trong file readme nó có ghi rõ CRT70 là file cho Pascal 7, CRT80 là file cho Pascal 8,... copy file tương ứng với version Pascal hiện có.
Nhấn để mở rộng...
Nhưng cái chính là chẳng có cái file crt nào để mà đè lên cả anh ạ. Cái CRT nó nằm trong file Turbo.tpl và tpp.tpl cơ. (tức là một phần của thư viện gốc ấy mà) Thế nên em mới không biết làm thế nào cả.
 
Nhưng cái chính là chẳng có cái file crt nào để mà đè lên cả anh ạ. Cái CRT nó nằm trong file Turbo.tpl và tpp.tpl cơ. (tức là một phần của thư viện gốc ấy mà) Thế nên em mới không biết làm thế nào cả.
Nhấn để mở rộng...
tpumover turbo.tpl -crt
tpumover turbo.tpl +<ten_file>

Thử xem được ko.
 
Đặng Trần Hiếu đã viết:
tpumover turbo.tpl -crt
tpumover turbo.tpl +<ten_file>

Thử xem được ko.
Nhấn để mở rộng...
Thế em gõ mấy cái command này vào đâu ạ? Vào Dos shell có được không?
Nói thật là em không hiểu lắm về mấy cái chương trình ra đời trước năm 2000.
 
ÔI anh ơi, WinXP làm rì có DOS. Mà mấy ổ nhà em toàn NTFS. Em dùng DOS của Pascal chắc được chứ ạ?
[Ôi, mình ngu vi tính quá đi mất. Có mỗi tí chuyện mà nửa tháng chưa xong]
 
Bạn phải đăng nhập hoặc đăng ký để phản hồi tại đây.
Back
Bên trên