Bai tap Pascal can gap

[giang1061998]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập vào một dãy số gồm 8 chữ số và in ra màn hình dãy số vừa nhập.
Bạn nào làm giúp tớ bài nay nhé, tớ đang cần gấp

 

[giang1061998]

HuHu sao diễn đàn nhiều người thế ma không ai làm được bai nay thế?!

 

[giang1061998]

Bạn làm chi tiết hơn được không? Sử dụng biến mảng ở lớp 8 ý !!! Nhanh lên nhé!

 

[kool_boy_98]

var s :array [1..8] of integer;
i :byte ;
Begin
for i:=1 to 8 do
begin
write(' nhap so thu',i);
readln(s);
end;
for i:=1 to 8 do
write (s);
readln
end.



Sory Bèi trên làm vẫn đúng em nhé

thân

bài này em làm thế này cơ!


var i:integer;
a: array[1..8] of integer;
begin
for i:=1 to 8 do
begin
write('a[',i,']=');
readln(a);
end;
for i:=1 to 8 do
write(a : 5);
readln
end.
_____________________
Ps: hai bài đều đúng cả nha bạn!

 

[giang1061998]

Thui, Em thanks ca 2. Nhưng mà làm thế nào để tải đc Phần mềm turbopascal ve ? Em đã tải nhưng viết chương trình xong ấn alt + f9 thi no/ cu hien loi y

 

[kool_boy_98]

Chậc, bạn có thể viết chương trình của bạn ra không? .................................

 

[giang1061998]

viet xong chuong trinh thi no cu hien loi o sau dau phay cua tu use crt;

 

[giang1061998]

Giai thich ho minh cau lenh write(a:5); voi, sao lai co :5 o do?

 

[thienluan14211]

Bạn có thể chụp hình lại và đưa lên không?
Đảm bảo uses crt; phải viết đầu tiên (hoặc sau program );
Xem cú pháp có đúng không.

 

[kool_boy_98]

Bạn ơi, máy bạn không cho phép khai báo thư viện, bạn bỏ hai câu lệnh này đi nhé!
uses crt; và câu lệnh clrscr;

Máy mình cũng thế mà!

 

[thienluan14211]

Ủa sao máy lại không cho phép khai báo thư viện crt???
Có phải là lỗi xảy ra khi chạy chương trình có khai báo uses crt không?
Nếu vậy thì chắc là do 2 tệp turbo.tpl và turbo.tph đã cũ, down lại 2 tệp này bỏ vào là OK. Nếu không tìm được thì pm tớ cho.

 

[kool_boy_98]

Giai thich ho minh cau lenh write(a:5); voi, sao lai co :5 o do?

bạn ơi, câu lệnh này thêm :5 có ý nghĩa là mỗi một giá trị của dãy a (khi in ra màn hình) cách nhau 5 đơn vị độ dài (cái này qui ước trong từng ngôn ngữ lập trình)

 

[cuitay]

đó là do thư viện của máy bạn bị xóa hoặc thiếu dấu ; ở đâu đó

 

[greenlight911]

viet xong chuong trinh thi no cu hien loi o sau dau phay cua tu use crt;

use đổi thành uses là được...