viết chương trình đọc tệp 'chu_so .txt'. Sau đó tách lấy số, được kết quả đưa ra màn hình
Những câu hỏi liên quan
viết chương trình đọc từ tệp dữ liệu txt hai biến a và b tính và đưa ra màn hình kết quả ab
const fi='nhap.txt'
uses crt;
var
f:text;
b:byte;
a:longint;
begin
clrscr;
assign(f,f1);
reset(f);
read(f,a,b);
close(f);
a:=exp(b*ln(a));
write('ket qua la: ',a);
readln;
end.
Đúng 1
Bình luận (0)
Viết. Phương trình đọc từ tệp data. Txt ra các giá trị 10,50,100. Thực hiện phép tính cộng, trừ, nhân giữa 3 số và đưa kết quả ra màn hình
Viết chương trình và đưa ra màn hình diện tích S của đường bán kính R với giá trị của R được đọc từ tệp INPUTC3.TXT
Program HOC24;
const fi='INPUTC2.TXT'
var s,r: real;
f: text;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,r);
s:=r*r*pi;
close(f);
end;
begin
ip;
write('S= ',s:1:2);
readln
end.
Đúng 1
Bình luận (0)
Viết chương trình đọc tệp a.txt chứa các số nguyên trên một dòng đưa kết quả tích các số ra màn hình
with open("a.txt", "r") as f:
numbers = list(map(int, f.readline().split()))
product = 1
for number in numbers:
product *= number
print("Tích các số trong file a.txt là:", product)
Đúng 0
Bình luận (0)
Viết chương trình và đưa ra màn hình diện tích S của hình chữ nhật có chiều dài a, chiều rộng b. Với các giá trịa,b được đọc từ tệp INPUTC2.TXT
Program HOC24;
const fi='INPUTC2.TXT'
var s: longint;
a,b: integer;
f: text;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,a,b);
s:=a*b;
close(f);
end;
begin
ip;
write('S= ',s);
readln
end.
Đúng 1
Bình luận (0)
Viết chương trình đọc từ tệp Tep1.txt các biến a,b,c,d,e,f. Tính và đưa ra kết quả xuống tệp Ketqua.txt
Tong LT=ab+cd+ef
const fi='tep1.txt'
fo='ketqua.txt'
var
f1,f2:text;
b,d,f:byte;
T,a,c,e:longint;
begin
assign(f1,fi);
assign(f2,fo);
reset(f1);
rewrite(f2);
Readln(f1,a,b,c,d,e,f);
close(f1);
a:=exp(b*ln(a));
c:=exp(d*ln(c));
e:=exp(f*ln(e));
t:=a+c;
t:=t+e;
writeln(f2,t);
close(t2);
end.
Đúng 1
Bình luận (1)
viết chương trình đọc từ tệp 'Data1.txt' 2 số nguyên x và y. Tính trung bình cộng 2 số x,y và ghi kết quả ra tệp 'Data2.txt'
const fi='data1.txt'
fo='data2.txt'
var f1,f2:text;
a,b:real;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
writeln(f2,(a+b)/2:4:2);
close(f1);
close(f2);
end.
Đúng 0
Bình luận (0)
Giả sử có bốn số nguyên lưu trong tệp DỮ LIEU.TXT.Hãy viết một chương trình mở tệp đã cho để tính tích của bốn số nguyên đó và đưa kết quả ra màn hình
uses crt;
const fi='dulieu.txt'
var f1:text;
a,b,c,d:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b,c,d);
writeln(a*b*c*d);
close(f1);
readln;
end.
Đúng 0
Bình luận (0)
Cho tệp dulieuvao txt chứa dãy số nguyên viết chương trình đọc dãy số đó,sắp xếp thành tăng dần rồi ghi kết quả đó vào dulieura txt
ai có thể giúp mình được không ạ