cho tệp so.txt gồm các số nguyên viết chương trình đọc dữ liệu từ tệp so.txt và in ra màn hình các số chẵn
AI GIÚP EM NHANH VỚI Ạ CHIỀU EM THI RỒI
cho tệp SO.TXT gồm nhiều số nguyên viết chương trình đọc dữ liệu từ tệp SO.TXT và lưu vào máy nguyên A
uses crt;
const fi='so.txt'
var f1:text;
a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
for i:=1 to n do
write(a[i]:4);
close(f1);
readln;
end.
*Viết chương trình ghi hai số 5 và 15 vào tệp so.txt:
const f='so.txt'
var f1:text;
begin
assign(f1,f); rewrite(f1);
writeln(f1,'5 15');
close(f1);
end.
*Viết chương trình tính tổng, hiệu, tích, thương của x,y và in kết quả ra màn hình:
uses crt;
const fi='so.txt'
var x,y:integer;
f1:text;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,x,y);
writeln('Tong la: ',x+y);
writeln('Hieu la: ',x-y);
writeln('Tich la: ',x*y);
writeln('Thuong la: ',x/y:4:2);
close(f1);
readln;
end.
viết chương trình đọc dữ liệu tệp SO.TXT sau đó ghi tệp "ketqua.TXT,rồi in ra màn hình
Viết chương trình nhập vào mảng một chiều C gồm có n số nguyên. Ghi mảng C vừa nhập vào tệp có tên là MANG3.TXT. Đọc dữ liệu từ tệp MANG3.TXT, in ra màn hình các số lẻ trong mảng.
Program HOC24;
var i,n: integer;
c: array[1..1000] of integer;
f: text;
begin
assign(f,'MANG3.TXT');
reset(f);
readln(f,n);
for i:=1 to n do read(f,c[i]);
close(f);
for i:=1 to n do if c[i] mod 2=1 then write(c[i],' ');
readln
end.
Viết chương trình nhập vào mảng một chiều C gồm có n số nguyên. Ghi mảng C vừa nhập vào tệp có tên là MANG3.TXT. Đọc dữ liệu từ tệp MANG3.TXT, in ra màn hình các số lẻ trong mảng.
cho tệp Dulieu.txt gồm nhiều dòng, mỗi dòng chứa 2 số nguyên. Viết chương trình đọc dữ liệu từ tệp Dulieu.txt rồi tìm GTNN của mỗi dòng, rồi hiển thị ra màn hình.
uses crt;
const fi='dulieu.txt'
var f1:text;
a,b:array[1..100]of integer;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
inc(n);
readln(f1,a[n],b[n]);
end;
for i:=1 to n do
begin
if a[i]<b[i] then writeln(a[i])
else writeln(b[i]);
end;
readln;
end.
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.
Viết chương trình nhập dữ liệu từ tệp Dulieu.txt chứa các số nguyên. Tính tổng giá trị các số có trong tệp và xuất kết quả ra màn hình
giúp mk vs ạ mai mk thi r
Cho tệp so.txt có giá trị sau: 3 4 5 9 10 -5 9. Em hãy viết chương trình đọc tệp so.txt sau đó thực hiện các yêu cầu sau rồi ghi vào tệp kq.txt
- Tính tổng các số chẵn
- Tính tổng các số lẻ
- Tính tổng các số chia hết cho 3