Cho mảng A gồm N phần tử kiểu nguyên có trong tệp DL.pas lập trình công việc và lưu vào QK.pas
a: đếm số phần tử lẻ chia hết cho 7
b: tính tổng các phần tử thuộc [10,30]
c: tính số các phần tử âm lẻ
d: đếm các số là số nguyên tố có trong dãy
Mn làm hộ em cs ạ
Xem chi tiết
Bài 16: Ví dụ làm việc với tệp
const fi='dl.pas'
fo='qk.pas'
var f1,f2:text;
i,n,dem,t,dem1,dem2,kt,j:integer;
a:array[1..100]of 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]);
dem:=0;
for i:=1 to n do
if (a[i] mod 2<>0) and (a[i] mod 7=0) then inc(dem);
t:=0;
for i:=1 to n do
if (10<=a[i]) and (a[i]<=30) then t:=t+a[i];
dem1:=0;
for i:=1 to n do
if (a[i]<0) and (a[i] mod 2<>0) then inc(dem1);
dem2:=0;
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then inc(dem2);
end;
writeln(f2,'So phan tu le chia het cho 7 la: ',dem);
writeln(f2,'Tong cac phan tu thuoc [10,30] la: ',t);
writeln(f2,'So cac phan tu am le la: ',dem1);
writeln(f2,'So phan tu la so nguyen to la: ',dem2);
close(f1);
close(f2);
end.
Đúng 0
Bình luận (0)
vct ghi vào tệp 'lop 11A5.txt' đồng chữ 'toi yêu viet nam'.
Program HOC24;
const fi='lop_11A5.txt'
var f: text;
begin
assign(f,fi);
rewrite(f);
write(f,'Toi yeu Viet Nam');
close(f);
end.
Đúng 0
Bình luận (0)
Mn giúp e với ạ
Cho tệp IN.INP chứ các xâu kia tự có dộ dài ko quá 255 kí tự. Tính và ghi kq ra tệp OUT.INP độ dài các xâu trong tệp IN.INP, mỗi kq ghi trên 1 dòng
Xem chi tiết
const fi='inp.inp'
fo='out.inp'
var f1,f2:text;
st:array[1..100]of string;
i,n: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,st[n]);
end;
for i:=1 to n do
writeln(f2,length(st[i]));
close(f1);
close(f2);
end.
Đúng 1
Bình luận (0)
Cho tệp INPUT.INP có chứa 2 số nguyên a và b. Viết chương trình đọc dữ liệu từ tệp INPUT.INP và ghi vào tệp OUTPUT.OUT số nhỏ nhất của 2 số nguyên này
const fi='input.inp'
fo='output.out'
var a,b:integer;
f1,f2:text;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
if a<b then writeln(f2,a)
else writeln(f2,b);
close(f1);
close(f2);
end.
Đúng 0
Bình luận (1)
Giúp mình với ạ!thanks!
cho tệp DULIEU.TXT chứa liên tiếp các số nguyên, các số cách nhau bởi dấu cách và kết thúc bằng ký tự xuống dòng. Viết chương trình tính tổng bình phương các số có trong tệp DULIEU.TXT .Kết quả tính được ghi vào tệp KETQUA.TXT
program bai_tap;
var t,k:integer;
begin
assign(input,'DULIEU.TXT');
reset(input);
assign(output,'KETQUA.TXT');
rewrite(output);
t:=0;
while not eof(input) do
begin
read(k);
t:=t+sqr(k);
end;
write(t);
close(output);
end.
Đúng 0
Bình luận (0)
1.In ra câu ' chao' ở cột 20 dòng thứ 5 .sử dụng tệp 'vao.inp' , 'ra.out'.
=> sao kết quả ra thì chữ 'chao' lại vẫn ở đầu dòng???? ai giúp vs
uses crt;
var f1,f2: text;
begin
clrscr;
assign(f1,'vao.inp'); reset(f1);
assign(f2,'ra.out'); rewrite(f2);
Gotoxy(20,5);
write(f2,'chao'); close(f1); close(f2);
end.
cho tệp dư liệu hình chữ nhạt gồm các cặp chiều dài, chiều rộng là số nguyên dương lớn hơn 0. Viết chương trình đọc tệp hình hcn.dat tính diện tích các hình chưi nhat ghi ra màn hình, tính chu vi cac hình chữ nhật ghi vào tệp chuvu.out.
uses crt;
const fi='hcn.dat'
fo='chuvi.out'
var f1,f2:text;
a,b:array[1..100]of integer;
n,i,j:integer;
begin
clrscr;
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],b[n]);
end;
for i:=1 to n do
writeln(a[i]*b[i]);
for i:=1 to n do
writeln(f2,2*(a[i]+b[i]));
close(f1);
close(f2);
readln;
end.
Đúng 0
Bình luận (0)
Đưa ra các câu lệnh sau vào những vị trí cần thiết nhằm đổi chương trình trên để có được chương trình đọc dữ liệu từ bàn phím và ghi dữ liệu vào tệp. Chương trình Var s:string; a:byte; Begin readln(s); a:=length(s); Write(a); readln; End. Câu lệnh f1:text; Assign(f1,'c:\ghixau1.txt'); Rewrite (f1); Write(f1,a); Close(f1); Mong mọi người giúp ạ!Thanks!
var s:string;
f1:text;
a:byte;
begin
assign(f1,'c:\ghixau1.txt'); rewrite(f1);
readln(s);
writeln(f1,s);
close(f1);
End.
Đúng 0
Bình luận (0)
Cho tệp bai1.inp gồm:
Hàng 1:Chứa số nguyên N
Hàng 2:Chứa dãy số nguyên gồm N chữ số
Yêu cầu:-Tính tổng các số lẻ và đếm các số chẵn của dãy số trên
-Ghi kết quả tổng và đếm vào tệp bai1.out
const fi='bai1.inp'
fo='bai1.out'
var f1,f2:text;
a:array[1..100]of integer;
n,i,t,dem: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]);
t:=0;
dem:=0;
for i:=1 to n do
begin
if a[i] mod 2<>0 then t:=t+a[i]
else inc(dem);
end;
writeln(f2,'Tong cac so le la: ',t);
writeln(f2,'So so chan la: ',dem);
close(f1);
close(f2);
end.
Đúng 1
Bình luận (0)