[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.
| Input |
| 1 2 3 4 5 |
? Chẳng phải là sử dụng vòng for là xong rồi à bạn? Hay là mình hiểu nhầm ý bạn hỏi?
For i:=1 to 5 do
a[i]:=i;Thì từ ví dụ đó mà rút ra cách tổng quát thôi bạn
Thì từ ví dụ đó mà rút ra cách tổng quát thôi bạn
Bằng cách sử dụng vòng for hoặc While. Đó là cách thông thường
Nếu còn cách nào khác nhanh hơn bằng cách sử dụng các hàm có sẵn hay gì gì đó thì chắc mình học chưa đến rồi
Hôm nay thầy mình giảng rồi mình chia sẻ nè:
var a:array[1..1000000] of int64;
i,j:longint;
Begin
Assign(input,'vidu.inp');reset(input);
Assign(output,'vidu.out');rewrite(output);i:=1;
While not EOF(input) do
Begin
Read(a[i]);inc(i);
End;
For j:=1 to i-1 do
Write(a[j],' ');
End.cái while not eof(..) do thì mình biết rồi :v tại bạn chưa nói rõ đề bài thuii,
Theo mình hiểu thì While đấy nó thực hiện đọc vào các số trong File input và đọc được sau 1 số thì tăng i lên. Đến khi i vượt quá lượng số trong file input thì dừng lại. ( tức trong file input không có a vượt quá đề bài)
... Lệnh Eof được sử dụng để tránh lỗi thôi bạn ạ. Thật ra nếu nhập dữ liệu mà không cần nó vẫn được...
biến i được gán ban đầu bằng 1 đó anh. Nên sau vòng lặp cuối cùng nó sẽ bị tăng 1 giá trị nữa.... Nên mới for j:=1 to i-1 do
mất công gán i:=1 cho chán rồi cho chạy for đến i-1 chi cho mắc mệt vậy :>>