[nguyenhoang0112]

Tình hình là ngày mai em thi học kì ( lớp 11) bọn bạn ở lớp nó moi dc cái đề rồi, ngoài trắc nghiệm ra có 2 bài tập tự luận về sử dụng chương trình con (procedure và function) mà em thì ko có khái niệm gì về mấy cái cửa nợ này cả nên lên đây nhờ các bro giải giúp theo cú pháp của Borland Pascal 7.0

Bài 1: đọc 2 cạnh a1,a2 của 2 hình vuông từ file A.INP
viết chương trình tính tổng diện tích 2 hình vuông đó và ghi kết quả vào file "B.OUT"

Bài 2: đọc 4 số a,b,c,d ( a,c,,b,d <= 250) từ file C.INP
Viết chương trình tính tổng max(a,b) + max(c,d) và ghi kết quả vào file Luu.out

Nhờ giúp ạ, xin để cho em thớt này đến 12h đêm nay

[mrdam1001]

Cái này mà viết C hay C++ thì mình giúp chú đc chứ Pascal thì hồi lớp 11 mình cũng ngu và đi đạo code của mấy thằng khác thôi.

[bocapgiay.]

Bạn sang benhvientinhoc ý có box Pascal chuyên giúp lớp 11 đó
ở Voz chả ai giúp đâu :| kinh nghiệm của mình năm ngoái rồi =)) lập box hỏi toàn 1 câu " cái này dễ tự làm đi " rõ nản

[nguyenhoang0112]

em cũng biết là cái Borland Pascal này bây giờ rất ít trường dùng nên khó hỏi nhưng ko còn cách nào khác, cuối kì đang nỗ lực để dc tiên tiến --> dc thưởng 1 em laptop

[mrdam1001]

Mình gõ đại , bạn về chỉnh sửa tý vì mình tuy học CNTT nhưng nói thật là éo bít Pascal , chỉ biết C, C++, C# với Java thôi.

Program HinhVuong;
Uses CRT;
Var 
     a : Interger;
     S: Interger;
     F: File Of Byte;
     FileName: String;
Begin
      ClrScr;
      Write('Ten cua file can doc ?'); { bạn đưa file A.inp vào}
       Readln(FileName);
       Assign(F,FileName);
       Assign(F2,"Output.txt');
       Reset(F);
       While Not EOF(F) Do
	Begin
	     Read(F,a); { đọc 1 phần tử rồi vứt vào a }
                       S:= a*a;
             ReWrite(F2);
	     Write(F2,a);
	     Write(F2,S);

	End
      Close(F2);
      Close(F);
End;

[Cayenne]

Làm như bác mrdam kia là được kìa , chỉ có thay cái đoạn Do trong lặp While.. do bằng cái Procedure hoặc Function đã dựng trước đấy thôi. Chịu khó Google thì đầy, cái này dễ mà

[nhocyeunhac]

http://vozforums.com/showthread.php?t=926644
các bác giúp hộ em luôn đi =D

[nguyenhoang0112]

Originally Posted by mrdam1001

Mình gõ đại , bạn về chỉnh sửa tý vì mình tuy học CNTT nhưng nói thật là éo bít Pascal , chỉ biết C, C++, C# với Java thôi.

Program HinhVuong;
Uses CRT;
Var 
     a : Interger;
     S: Interger;
     F: File Of Byte;
     FileName: String;
Begin
      ClrScr;
      Write('Ten cua file can doc ?'); { bạn đưa file A.inp vào}
       Readln(FileName);
       Assign(F,FileName);
       Reset(F);
       While Not EOF(F) Do
	Begin
	     Read(F,a); { đọc 1 phần tử rồi vứt vào a }
                       S:= a*a;
	     Writeln('Do dai canh :',a);
	     Writeln('Dien Tich :',S);
	End
      Close(F);
End;

cảm ơn nhiều
Em sẽ về mod lại

[mrdam1001]

Originally Posted by nguyenhoang0112

cảm ơn nhiều
Em sẽ về mod lại

Mình mod lại 1 tý rồi , xuất ra file chứ ko phải màn hình.

Ebook căn bản Pascal nè ku , đem về luyện đi , còn kịp .

http://www.mediafire.com/?raziiz2ybq3

[krt.vnn]

Originally Posted by nguyenhoang0112

cảm ơn nhiều
Em sẽ về mod lại

Cái ngôn ngữ bựa nhất thế giới mà cũng có ng hỏi và chỉ à