Cho 1 tệp văn bản Dulieu.data gồm 2 dòng. Dòng 1 gồm 100 số nguyên. Dòng 2 chứa 1 số nguyên K. Viết chương trình đọc dữ liệu từ tệp Dulieu.data rồi đếm các số trong dãy bằng K. Ghi kết quả đếm vào tệp Ketqua.txt

haiyennguyen030901

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 17 xem

1 trả lời

Thích Trả lời

tuyet22477

lúc chạy thử thì bạn nên sửa code thành for i:=1 to số nào be bé thôi để khi nhập dữ liệu vô file dulieu.data nó đỡ bị mệt =))))

var f,g: text;

a: array[1..100] of byte;

k,cs,i:byte;

begin

assign(f,'Dulieu.data'); reset(f);

assign(g,'Ketqua.txt'); rewrite(g);

for i:=1 to 100 do

read(f,a[i]);

readln;

read(f,k);

for i:=1 to 100 do

if a[i]=k then cs:=cs+1;

write(g,cs);

close(f);

close(g);

end.

Vote (0) Phản hồi (0) 2 năm trước

nguyenthu2911

uses crt;
var a : array[1..100] of integer;
i,k,dem : integer;
begin clrscr ;
assign(input,'dulieu.data');
assign(output,'ketqua.txt');
reset(input); rewrite(output);
for i:=1 to 100 do read(input,a[i]);
readln(input,K);
for i:=1 to 100 do if a[i]=K then dem:=dem+1;
writeln(output,dem);
close(input);
close(output);
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

các tính chất của định dạng đoạn văn bản

Có ai giúp mình với Chiều mình phải nộp rồi🍀

Tính nhiệt lượng cần thiết để đun sôi một ấm nhôm nặng 600g đựng 3,5 lít nước từ 20oC

cách đây 2 năm tuổi bố gấp 6 lần tuổi con,sau 4 năm nữa bố gấp 3,5 lần tuổi con hỏi bôs bao nhiêu tuổi

Cấu tạo ngoài của chim thích nghi với đời sống bay???

Gia đình em có 6 người, sống tại thành phố Ông nội công tác tại một cơ quan Nhà nước có mức lương tháng 900.000đ, bà nội đã nghỉ hưu với mức lương 350.000đ một tháng bố là công nhân ở một nhà máy với mức lương là 1.000.000đ, mẹ là giáo viên có mức lương tháng là 800.000đ, chị gái học ở trường Trung học phổ thông và em học lớp 6 Em hãy tính tổng thu nhập của gia đình trong một tháng

Viết có thức tính nhiệt lượng nói rõ từng đại lượng trong công thức đó Tôi cần gấp

"Luteinizing hormone" nghĩa là gì?

Giúp mình câu 1 với Làm tự luận giúp mk Đang cần gấp

Cho 1,124g hh B gồm phenol và một ancol no đơn chức A tác dụng vừa đủ với 4,8g brom. Mặc khác cũng lượng hh B như trên cho tác dụng với natri thu được 0,1568g khí h2 (dktc). Hãy tìm CTPT của ancol A

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến