1) Tep ma du lieu trong no duoc ghi duoi dang cac ki tu theo ma ASCII duoc goi la tep gi
A. Tep truy cap truc tiep B. Tep co cau truc C. Tep van ban D. Tep truy cap tuan tu
Bài 15: Thao tác với tệp
1) Lenh gan gia tri cho ten ham nao sau day dung
A. <Ten ham>=<bieu thuc>; B. <Ten ham>:=<bieu thuc>;
C. <Ten ham>=<bieu thuc> D. <Ten ham>:<bieu thuc>;
1) De gan tep BT.TXT cho bien tep f1, ta dung lenh nao sau day
A. f1:='BT.TXT':
B. BT.TXT:= f1
C. Assign('BT.TXT',f1);
D. Assign(f1,'BT.TXT');
Giúp
Program HOC24;
var n: byte;
f: text;
begin
assign(f,'C:\Baitap.TXT');
reset(f);
readln(f,n);
write('Gia tri vua doc vao tep la: ',n);
close(f);
readln
end.
Đúng 1
Bình luận (0)
Viết 1 chương trình vẽ các hình chữ nhật, các cạnh a,b được lấy từ file nguon.txt ( tệp có nhiều dữ liệu) vd: a1,a2,a3,... b1,b2,b3,... tệp trên có 2 dòng a và b
Mn ơi giúp mình với
Cho tệp vanban.inp gồm nhiều dòng hãy đọc dữ liệu từ tệp vanban.inp và đếm xem trong tệp có tất cả bao nhiêu dòng rồi ghi kết quả vào tệp vanban.out
const fi='vanban.inp'
fo='vanban.out'
var f1,f2:text;
dem,i:integer;
a:array[1..1000]of string;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem:=0;
while not eof(f1) do
begin
inc(dem);
readln(f1,a[dem]);
end;
writeln(f2,dem);
close(f1);
close(f2);
end.
Đúng 3
Bình luận (0)
Viết chương trình tính rồi đưa ra màn hình khoảng cách (với độ chính xác 3 chữ số sau dấu chấm thập phân) giữa hai điểm A(x,y) và B(x1,0) ( các cặp tọa độ được đọc từ tệp văn bản BAITAP.TXT)
uses crt;
const fi='baitap.txt'
var f1:text;
a,b,c,d:array[1..100]of real;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,a[n],b[n],c[n],d[n]);
end;
for i:=1 to n do
writeln(sqrt(sqr(a[i]-c[i])+sqr(b[i]-d[i])):4:3);
close(f1);
readln;
end.
Đúng 0
Bình luận (0)
Bài 1:
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,t,dem;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
cout<<a[i]<<" ";
cout<<endl;
t=0;
for (i=1; i<=n; i++)
if (a[i]%2==0) t+=a[i];
cout<<t<<endl;
dem=0;
for (i=1; i<=n; i++)
if (a[i]%3==0) dem++;
cout<<dem;
}
Đúng 0
Bình luận (0)
const fa='dulieu.inp'
fb='kq.out'
fc='ketqua.out'
var f1,f2,f3:text;
a:array[1..100]of integer;
i,n,t1,t2,dem:integer;
begin
assign(f1,fa); reset(f1);
assign(f2,fb); rewrite(f2);
assign(f3,fc); rewrite(f3);
readln(f1,n);
for i:=1 to n do read(f1,a[i]);
t1:=0;
for i:=1 to n do
t1:=t1+a[i];
writeln(f2,t1);
dem:=0;
t2:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
dem:=dem+1;
t2:=t2+a[i];
end;
writeln(f3,t2,' ',dem);
close(f1);
close(f2);
close(f3);
end.
Đúng 0
Bình luận (0)