1) Cau lenh Rewrite(<bien tep>); co y nghia gi
A. Thu tuc gan ten tep cho ten bien tep B. Khai bao bien tep
C. Thu tuc dong tep D. Thu tuc mo ten de ghi du lieu
Tệp và thao tác với tệp
1) Cau lenh de gan ten tep 'bai1.txt', cho bien tep f la:
A. assign(bai1.txt,f); B. assign(f,bai1.txt);
C. assign('bai1.txt',f); D. assign(f,'bai1.txt');
Xem thêm câu trả lời
1) Cau lenh Assign(<bien tep>, <ten tep>); co y nghia gi
A. thu tuc gan ten tep cho ten bien tep B. thu tuc mo ten de doc du lieu
C. Khai bao bien tep D. Thu tuc dong tep
1) Trong PASCAL de khai bao bien tep van ban ta phai su dung cu phap:
A. Var<ten bien tep>: Text; B. Var <ten tep>: Text;
C. Var <ten tep> : String; D. Var <ten bien tep> : String;
1. Đọc dữ liệu từ tệp có tên DL.Dat có chứa các chữ số.
a) đếm trong tệp có bao nhiêu số chẵn, số lẻ.
b) tính tổng các số chẵn chia hết cho 3.
c) tính tổng các số lẻ chia hết cho 9.
các kết quả ghi vào tệp KQ.Dat
const fi='dl.dat'
fo='kq.dat'
var f1,f2:text;
a:array[1..100]of integer;
i,n,dem1,dem2,t1,t2:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do read(f1,a[i]);
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dem1)
else inc(dem2);
end;
t1:=0;
t2:=0;
for i:=1 to n do
begin
if (a[i] mod 6=0) then t1:=t1+a[i];
if (a[i] mod 9=0) and (a[i] mod 2<>0) then t2:=t2+a[i];
end;
writeln(f2,dem1,' ',dem2);
writeln(f2,t1);
writeln(f2,t2);
close(f1);
close(f2);
end.
Đúng 0
Bình luận (0)
const fi='dl.dat'
fo='kq.dat'
var f1,f2:text;
a:array[1..100]of integer;
i,n,dem1,dem2,t1,t2:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do read(f1,a[i]);
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dem1)
else inc(dem2);
end;
t1:=0;
t2:=0;
for i:=1 to n do
begin
if (a[i] mod 6=0) then t1:=t1+a[i];
if (a[i] mod 9=0) and (a[i] mod 2<>0) then t2:=t2+a[i]
end
writeln(f2,dem1,' ',dem2)
writeln(f2,t1)
writeln(f2,t2)
close(f1)
close(f2)
;-;
Đúng 0
Bình luận (0)
1) Dien vao dau cham trong bai giai: Viet chuong trinh thuc hien nhung viec sau:a) Doc tu ban phim 1 danh sach gom:Ho ten, mon thi thu nhat, diem mon thi thu nhat , mon thi thu hai, diem mon thi thu haib) Ghi vao dia voi ten tep QLHTc) Doc du lieu tu File QLHT, tim nhung hoc sinh phai thi lai ( co it nhat mot mon khong dat ) . Dua ra so thu tu, ho ten, cac mon phai thi lai va diem tuong ung ra man hinh Bai g...
Đọc tiếp
1) Dien vao dau cham trong bai giai: Viet chuong trinh thuc hien nhung viec sau:
a) Doc tu ban phim 1 danh sach gom:
Ho ten, mon thi thu nhat, diem mon thi thu nhat , mon thi thu hai, diem mon thi thu hai
b) Ghi vao dia voi ten tep QLHT
c) Doc du lieu tu File QLHT, tim nhung hoc sinh phai thi lai ( co it nhat mot mon khong dat ) . Dua ra so thu tu, ho ten, cac mon phai thi lai va diem tuong ung ra man hinh
Bai giai
program......
Uses Crt;
type phieudiem = record
hten : string [25];
Mh1 : string [10];
d1 : real;
Mh2 : string [10];
d2 : real'
end;
Var
pd : phieudiem;
f file of phieudiem;
n,i,t : integer;
Begin
clrscr;
write ( ' So phieu diem n = ' ) ;
...........................
assign (....................) ;
rewrite (..............)
For i := 1 to n do
with pd do
begin
Writeln ( ' Vao phieu diem thu ' , i );
Write ( ' Ho va ten: ' ) ;
Readln (...................)
Write (' Mon thi thu nhat : ') ;
Read..............
Write ( ' Diem mon thu nhat ' );
Read.....................
Write ( ' Mon thi thu hai: ' ) ;
Readln.............................
Write ( ' Diem mon thu hai: ' ) ;
Read...............
Write ( f, pd ) ;
end;
close (f);
clrscr ;
Writeln ( ' Danh sach hoc sinh thi lai : ') ;
Writeln;
assign....................
reset...........
t : = 0 ;
While not eof (f) do
Begin
read ( r, pd );
with pd do
If ( d1 < 5 ) or ( d2 < 5 ) then
Begin
inc (t);
Write..................
if d1 < 5 then
Write.......
if d2 < 5 then
Write............
Writeln;
end;
end;
close (f);
end.
Mọi người ơi giải bài này với giải thích hộ mình với ạ! Cho tệp "3.inp" gồm 1 số thực N(0
Bài 2: KAGAROMột chú Kangaroo muốn đi thăm một người bạn trên cùng tuyến đường cách đỏ n mét. Kangaroo chỉ có hai cách di chuyển, một là nhảy ngắn a mét, hai là nhảy dài b mét. Hỗi chú Kangaroo cần nhảy ít nhất bao nhiêu lần để đến được nhà người bạn (phải nhảy vừa đủ, không nhảy quá nhà bạn).Dữ liệu vào:- Là ba số nguyên n, a, b cách nhau một khoảng trắng (1n109,1ab109)Dữ liệu ra: - Nếu Kangaroo không có cách nào nhảy đến nhà người bạn, in ra -1 .- Nếu có cách nhảy, in ra số bước nhảy ít nhất.k...
Đọc tiếp
Bài 2: KAGARO
Một chú Kangaroo muốn đi thăm một người bạn trên cùng tuyến đường cách đỏ n mét. Kangaroo chỉ có hai cách di chuyển, một là nhảy ngắn a mét, hai là nhảy dài b mét. Hỗi chú Kangaroo cần nhảy ít nhất bao nhiêu lần để đến được nhà người bạn (phải nhảy vừa đủ, không nhảy quá nhà bạn).
Dữ liệu vào:
- Là ba số nguyên n, a, b cách nhau một khoảng trắng (1<=n<=109,1<=a<b<=109)
Dữ liệu ra:
- Nếu Kangaroo không có cách nào nhảy đến nhà người bạn, in ra -1 .
- Nếu có cách nhảy, in ra số bước nhảy ít nhất.
kagaro.inp
10 3 4
kagaro.out
3
Xin giải đáp:
Nhập tự động 100 kí tự từ mảng rồi nhập vào tệp"bai4.inp" sau đó nhập ra mảng 1 chiều và kiểm tra có phải cấp số cộng hau không?
Thank you!
cho tệp dulieu.inp gồm các số nguyên mỗi số trên 1 dòng . Đếm các số chẵn. Ghi kết quả ra tệp dulieu.out
const fi='dulieu.inp'
fo='dulieu.out'
var f1,f2:text;
a:array[1..100]of integer;
n,i,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,a[n]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln(f2,dem);
close(f1);
close(f2);
end.
Đúng 0
Bình luận (0)