TULIP học pascal ???

[tulip6193]

Vừa làm xong bài tập,post luôn cho mọi người chấm giùm ,mấy bài khó hơn không biết làm ,mỗi bài này
đề :Viết chương tình lọc các dòng chứa số nguyên dương từ 2 tệp a.txt và b.txt sang tệp mới(c.txt),giữ nguyên thứ tự xuất hiện trong các tệp dữ liệu vào.
BÀi Làmtình hình là nhát chép lại,print screen vậy )

​

 

[Viết Sang]

Đã như thế sao không chụp lệnh RUN luôn nhỉ :|... Lâu lắm rồi mới đụng vào Pascal, đành làm 1 bài theo bạn học mới được ... các vị tiền bối xin cho tụi em 1 được mở mang tầm mắt nhé

Program bai4;[INDENT] Var f1,f2,f3 :text;
n: integer
[/INDENT]Begin[INDENT]assign(f1,'TEP_A.TXT');reset(f1);
assign(f2,'TEP_B.TXT');rewrite(f2);
    while not eof(f1) do
    begin
        readln(f1,n);
        if n>0 then writeln(f2,n);
    end;
    close(f1);
assigin(f2,'TEP_B.TXT');reset(f2);
assigin(f3,'TEP_C.TXT');rewrite(f3);
        while not eof(f2) do
    begin
        readln(f1,n); [B](*) [/B]
        readln(f2,n);
        if n>0 then writeln(f3,n);
    end;
    close(f1);
    close(f2);
    close(f3);
[/INDENT]End.

 

[tulip6193]

readln(f1,n); ( * )

Coi lại thử,có cái ni để làm gì???????????????????????

n: integer

thiếu dấu '';'' tề

 

[Viết Sang]

Cảm ơn sư phụ Trần Khoa, cảm ơn Tulip đã ra câu hỏi này...

Hi vọng tulip giúp đỡ Viết Sang trong việc học Pascal này... tức là mối quan hệ giữa Viết Sang và tulip cũng bền vững, bây giờ Viết Sang muốn tận dụng mối quan hệ bạn bè này cùng nhau học tập. Liệu tulip đồng ý chứ ?, và cũng cảm ơn sư phụ Trần Khoa đã gợi ý cho Viết Sang và nhắc nhở cho Viết Sang hiểu rằng mức độ kiến thức của Viết Sang đang ở mức độ nào.

Hi vọng sẽ được gặp thấy sư phụ hướng dẫn cho Viết Sang và tulip những thủ thuật mẹo vặt trong ngành CNTT

Kính gửi: sư phụ Trần Khoa
Thân tặng: bạn tulip

--- Viết Sang ---

 

[kunopro]

Ga Con ơi, mình là newmem của diễn đàn, cũng là dân của ĐN cả, mình muốn hỏi cậu 1 vài vấn đề về pascal, cậu có thể share thông tin với mình được hok? nick yahoo của mình là : toshidorose hoặc cellphone 0976 455 055 (nt cho mình, mình sẽ recall ). Thật sự là mình cần sự giúp đỡ của cậu. Hy vọng được sự hồi âm của cậu....... Thanks !!

 

[tulip6193]

Cảm ơn sư phụ Trần Khoa, cảm ơn Tulip đã ra câu hỏi này...

Hi vọng tulip giúp đỡ Viết Sang trong việc học Pascal này... tức là mối quan hệ giữa Viết Sang và tulip cũng bền vững, bây giờ Viết Sang muốn tận dụng mối quan hệ bạn bè này cùng nhau học tập. Liệu tulip đồng ý chứ ?, và cũng cảm ơn sư phụ Trần Khoa đã gợi ý cho Viết Sang và nhắc nhở cho Viết Sang hiểu rằng mức độ kiến thức của Viết Sang đang ở mức độ nào.

Hi vọng sẽ được gặp thấy sư phụ hướng dẫn cho Viết Sang và tulip những thủ thuật mẹo vặt trong ngành CNTT

Kính gửi: sư phụ Trần Khoa
Thân tặng: bạn tulip

--- Viết Sang ---

Hết tuần này thì bắt đầu cắm đầu học pascal,sẽ có nhiều câu hỏi đặt ra mong các chuyên gia giúp đỡ TuLip nhiều nhiều @};-
@Viết Sang:đồng ý với ý kiến của bạn mong chỉ giáo!

 

[vuakeomut9x]

viết sang và tulip ơi chi bảo cho mình với
mình cũng đang học pascal nek
nhưng mà tay nghê còn kém quá.
mong các bạn chỉ dẫn thêm cho mình nha