Nhập số nguyên n. Tính n! và ghi kết quả vào tệp.
Bài 15: Thao tác với tệp
Program HOC24;
var f: text;
i,n: integer;
s: longint;
begin
assign(f,'Ketqua.OUT');
rewrite(f);
write('Nhap N: '); readln(n);
s:=1;
for i:=1 to n do s:=s*i;
write(f,s);
close(f);
readln
end.
Đúng 1
Bình luận (0)
Viết chương trình dữ liệu txt giải phương trình bậc 2 và đọc kết quả ghi vào tệp bai_tap.txt
cho một số nguyên dương n đọc từ tệp cau1.mp (0<n<1000) viết chương trình ghi vào tệp cau1.out tổng các số chẵn trong phạm vi từ 1 đến n
HUHU EM CẦN GẤP LẮM R Ạ. TRẢ LỜI DÙM EM TRONG CHIỀU NAY ĐC KO? CÂU HỎI LÀ
đọc 2 số x,y nguyên dương từ tệp 'baitap.txt' và đưa phép toán T=căn x^2+y^2 và đưa ra màn hình tổng T
cái này là tin 11 ạ
uses crt;
const fi='baitap.txt'
var f1:text;
x,y:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,x,y);
writeln(sqrt(x*x+y*y):4:2);
close(f1);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình ghi vào tệp 'songuyen.txt' 2 số a, b được nhập trực tiếp từ bàn phím
uses crt;
const fi='songuyen.text'
var f1:text;
a,b:integer;
begin
clrscr;
readln(a,b);
assign(f1,fi);rewrite(f1);
writeln(f1,a,' ',b);
close(f1);
readln;
end.
Đúng 1
Bình luận (0)
cho 2 số nguyên a và b chứa trong tệp dulieu. dat. Lập trình để tính thương số t=a/b đưa kết quả vào tệp ketqua. dat
giả sử tệp "Dulieu.txt" có cấu trúc: Dòng 1 ghi 1 số nguyên N kiểu int; dòng 2 trở đi ghi dãy số thực A1, A2, ..., An. Yêu cầu đọc dữ liệu từ tệp, tính tổng các giá trị của dãy rồi xuất ra màn hình
uses crt;
const fi='dulieu.txt'
var f1:text;
a:array[1..100]of real;
t:real;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,n);
for i:=1 to n do readln(f1,a[i]);
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(t);
close(f1);
readln;
end.
Đúng 0
Bình luận (0)
Cho tệp dulieuvao.txt chứa 1 dãy các số nguyên. Viết chương trình tìm số nhỏ nhất của dãy số đó và ghi ra tệp dulieura.txt
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,nn;
int main()
{
freopen("dulieuvao.txt","r",stdin);
freopen("dulieura.txt","w",stdout);
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
nn=a[1];
for (i=2; i<=n; i++) nn=min(nn,a[i]);
cout<<nn;
return 0;
}
Đúng 0
Bình luận (0)
1) Trinh bay so do tep