Viết CT đọc các số nguyên từ tệp Baitap.in tính tổng các số không âm và ghi vào tệp Ketqua.out
Tuyển Cộng tác viên Hoc24 nhiệm kì 26 tại đây: https://forms.gle/dK3zGK3LHFrgvTkJ6
NN
Những câu hỏi liên quan
1) Cho tệp dulieu.in là tệp vban, chứa các số nguyên cách nhau 1 kí tự trống. Vt ctrinh đọc dữ liệu trog tệp r thựtc hiện các công vc sau a) Ghi vào tệp ketqua.out các số bội số nguyên K nhập từ bàn phím b) Đếm và tính tổng các số thỏa mãn yêu cầu rồi in ra màn hình
Lưu ý có sd ctrinh con
Cho tệp ăn.txt chứa dãy các số nguyên liên tiếp viết cách nhau 1 dấu cách .viết CT đọc dữ liệu từ tệp txt tính tổng các số chẵn và tổng các số lẻ ghi kết quả vào tập kq.txt trên 2 dòng
Viết chương trình đọc vào 2 số nguyên dương từ tệp songuyen.inp tính hiệu của hai số nguyên ghi kết quả ra tệp ketqua.out
Viết chương trình đọc vào 2 số nguyên dương từ tệp songuyen.inp tính thương của hai số nguyên ghi kết quả ra tệp ketqua.out
Viết chương trình đọc vào 2 số nguyên dương từ tệp songuyen.inp tính tích của hai số nguyên ghi kết quả ra tệp ketqua.out
Cho tệp số nguyên Dl.txt chứa các số nguyên , mỗi số cách nhau một kí tự trắng .Viết chương trình đọc các số nguyên dương từ tệp rồi đưa ra tổng các số dương và ghi vào tệp soam.txt các số nguyên âm .
uses crt;
const fi='dl.txt'
fo='soam.txt'
var f1,f2:text;
a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eoln(f1) do
begin
n:=n+1;
read(f1,a[n]);
end;
for i:=1 to n do
begin
if a[i]>0 then writeln('Can bac hai cua ',a[i],' la: ',sqrt(a[i]):4:2)
else if a[i]<0 then write(f2,a[i]:4);
end;
close(f1);
close(f2);
readln;
end.
Đúng 0
Bình luận (0)
Cho tệp số nguyên Dl.txt chứa các số nguyên , mỗi số cách nhau một kí tự trắng .Viết chương trình đọc các số nguyên dương từ tệp rồi đưa ra tổng các số dương và ghi vào tệp soam.txt các số nguyên âm .
uses crt;
const fi='dl.txt'
fo='soam.txt'
var f1,f2:text;
a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eoln(f1) do
begin
n:=n+1;
read(f1,a[n]);
end;
for i:=1 to n do
begin
if a[i]>0 then writeln('Can bac hai cua ',a[i],' la: ',sqrt(a[i]):4:2)
else if a[i]<0 then write(f2,a[i]:4);
end;
close(f1);
close(f2);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình cho máy tính đọc từ tệp DAYSO.txt gồm các số nguyên có ít nhất 2 dòng
Tính tổng cấc số có trong tệp DAYSO.txt, ghi kết quả ra màn hình và tệp KETQUA.txt
Tính tổng và trung bình cộng các số chẵn trong tệp dayso.txt, ghi các kết quả vào tệp KETQUA.txt
Uses crt;
var f1,f2:text;
i,n,tong,tongchan,dem:integer;
tb:real;
Begin
clrscr;
Assign(f1,'DAYSO.txt');
Assign(f2,'KETQUA.txt');
reset(f1);dem:=0;tong:=0;tongchan:=0;
While Not EOF(f1) do
Begin
read(f1,i);
inc(tong,i);
If i mod 2 = 0 then
begin
inc(dem);
inc(tongchan,i);
end;
End;
tb:=tongchan/dem;
close(f1);
rewrite(f2);
writeln(f2,tong);
writeln(f2,tongchan);
writeln(f2,tb:0:2);
close(f2);
write(tong);
readln;
End.
Đúng 1
Bình luận (0)
Cho tệp số nguyên BT.TXT chứa các số nguyên, mỗi số cách nhau một kí tự trắng. Viết chương trình đọc các số nguyên dương từ tệp rồi đưa ra căn bậc 2 và ghi vào tệp Soam.txt các số nguyên âm
uses crt;
const fi='bt.txt'
fo='soam.txt'
var f1,f2:text;
a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eoln(f1) do
begin
n:=n+1;
read(f1,a[n]);
end;
for i:=1 to n do
begin
if a[i]>0 then writeln('Can bac hai cua ',a[i],' la: ',sqrt(a[i]):4:2)
else if a[i]<0 then write(f2,a[i]:4);
end;
close(f1);
close(f2);
readln;
end.
Đúng 1
Bình luận (0)