Làm thế nào để xuất kết quả ra file bằng ngôn ngữ Pascal / C ?

[rcp]

Các bạn lập trình viên thân mến.

Mình muốn viết một đoạn chương trình nhỏ sau đây bằng Pascal / C với yêu cầu sau :
Bạn nào biết chỉ chỉ giáo dùm nhé.

đề bài :
cho phép người sử dụng nhập vào vào một một dãy số gồm 4 số tự nhiên . Quá trình nhập liệu kết thúc khi người sử dụng nhấn vào chữ "T".

Khi quá trình nhập liệu kết thúc thì xuất kết quả nhập liệu ra file c:\ketqua.txt voi quy cách sau :

vd: ta nhập vào các số sau
0001
0005
0254
1234

thì xuất kết quả ra file ketqua.txt với nội dung sau
0000001,000005,000254,001234

(nghĩa là thêm hai số 0 vào kết quả . Đồng thời mổi kết quả thêm vào một dấu phẩy ).

Chân thành cám ơn sự giúp đở của các bạn.

phongvu

 

[Whitney]

Chu choa, ai là lập trình viên của DNG, thử ra tay đi nào ?? :-??:-??:-??:-??

 

[rcp]

đề bài :
cho phép người sử dụng nhập vào vào một một dãy số gồm 4 số tự nhiên . Quá trình nhập liệu kết thúc khi người sử dụng nhấn vào chữ "T".

Khi quá trình nhập liệu kết thúc thì xuất kết quả nhập liệu ra file c:\ketqua.txt voi quy cách sau :

vd: ta nhập vào các số sau
0001
0005
0254
1234

thì xuất kết quả ra file ketqua.txt với nội dung sau
0000001,000005,000254,001234

(nghĩa là thêm hai số 0 vào kết quả . Đồng thời mổi kết quả thêm vào một dấu phẩy ) ....

Logic của câu trả lời là:

1) input/output :
- nhập vào vào một một dãy số gồm 4 số tự nhiên.
- output sẽ là gì????

2) sửa đổi output : thêm hai số 0 vào kết quả.

3) viết kết quả (thêm một dấu phẩy) vào c:\ketqua.txt

Mời các bạn viết code đi hén.. Nhớ compile và execute code nhen.

--- rcp ---

 

[tulip6193]

var f:text;
s1,s2:string;
i:integer;

BEGIN

assign(f,'ketqua.txt');
rewrite(f);
s2:='';
writeln('Nhap vao day so gom 4 so tu nhien , nhap T de thoat :');
for i:=1 to 4 do
begin
readln(s1);
if s1<>'T' then
begin
s1:='00'+s1;
s2:=s2+s1+',';
end
else break;
end;
delete(s2,length(s2),1);
write(f,s2);
close(f);

END.

 

[rcp]

var f:text;
s1,s2:string;
i:integer;

BEGIN

assign(f,'ketqua.txt');
rewrite(f);
s2:='';
writeln('Nhap vao day so gom 4 so tu nhien , nhap T de thoat :');
for i:=1 to 4 do
begin
readln(s1);
if s1<>'T' then
begin
s1:='00'+s1;
s2:=s2+s1+',';
end
else break;
end;
delete(s2,length(s2),1);
write(f,s2);
close(f);

END.

Wao.. Tulip thiệt là năng nổ..

Trả lời gần đúng hết với mọi câu hỏi với ngôn ngữ Pascal.

Duy chỉ có đoạn code này mình-rcp théc méc.. vì sao???

«
delete(s2,length(s2),1);
write(f,s2);
»

--- rcp ---

 

[tulip6193]

delete(s2,length(s2),1)

--> là để xóa dấu phẩy cuối cùng,vì trong vòng lặp có lệnh

s2:=s2+s1+',';

,nếu không có câu lệnh này thì kết quả cuối cùng sẽ dư 1 dấu phẩy ở cuối.

write(f,s2);

-->còn đây là xuất xâu s2(kết quả cuối cùng) ra file f
em xin hết ạ=P~

 

[rcp]

var f:text;
s1,s2:string;
i:integer;

BEGIN

assign(f,'ketqua.txt');
rewrite(f);
s2:='';
writeln('Nhap vao day so gom 4 so tu nhien , nhap T de thoat :');
for i:=1 to 4 do
begin
readln(s1);
if s1<>'T' then
begin
s1:='00'+s1;
s2:=s2+s1+',';
end
else break;
end;
delete(s2,length(s2),1);
write(f,s2);
close(f);

END.

ắt hẵn các bạn đã đã từng bit wa về Function & Procedure...

Dzị, wa bài giải đáp xuất sắc của bạn Tulip nhiệt tình, mong các bạn "gói ghém" lại theo sự hướng dẫn sau đây:


1) input/output : Function GhiNhan(parameter???)
- input: nhập vào vào một một dãy số gồm 4 số tự nhiên.
- output sẽ là một String


2) sửa đổi output : Function SuaDoi(parameter???)
- thêm hai số 0 vào kết quả.
- output sẽ là một String


3) viết kết quả : Procedure GhiChepVaoFile(parameter???)
- thêm một dấu phẩy
- viết vào c:\ketqua.txt


4) main program
- gọi cái functions và Procedure đã thành lập như trên


Mời các bạn viết code đi hén..

Nhớ compile và execute code nhen.


Thân mến,


--- rcp ---