Viết chương trình đọc lần lượt từng cặp số trong tệp dữ liệu và in kết quả tổng từng cặp số vào tệp kết quả
Xem chi tiết
Bài 16: Ví dụ làm việc với tệp
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
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)
Giúp mình với ạ!thanks!
Đư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)
Mọi người giúp e đi
Mn giúp em với
Viết chương trình nhập vào dãy số nguyên 1. In ra màn hình các số chính phương 2. Kiểm tra xem có bao nhiêu số chính phương chẳn
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so chinh phuong la: ');
for i:=1 to n do
if sqrt(a[i])=trunc(sqrt(a[i])) then write(a[i]:4);
writeln;
writeln('Cac so chinh phuong chan la: ');
for i:=1 to n do
if ((sqrt(a[i])=trunc(sqrt(a[i]))) and (a[i] mod 2=0) then write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
for i:=1 to n do
if sqr(a[i])=sqr(trunc(sqrt(a[i]))) then
begin
write(a[i],' ');
if a[i] mod 2 =0 then write(a[i]);
writeln;
end;
Đúng 0
Bình luận (0)
cho tệp songuyen.txt gồm các số nguyên cách nhau 1 dấu cách tính tổng các số dương đua kq ra màn hình
uses crt;
const fi='songuyen.txt'
var f1:text;
a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
inc(n);
read(f1,a[n]);
end;
t:=0;
for i:=1 to n do
if a[i]>0 then t:=t+a[i];
writeln(t);
close(f1);
readln;
end.
Đúng 0
Bình luận (0)
Cho tệp văn bản tamgiac.DAT mỗi dòng của tệp chứa 3 cặp số thực , xác định tọa độ các đỉnh tương ứng của tam giác ABC . Các số trên 1 dòng cách nhau bởi 1 dấu cách . Hãy lần lượt đọc các dòng của tệp , kiểm tra xem tam giác ABC có phải là tam giác cân hay không và đưa ra màn hình số lượng tam giác cân .
uses crt;
const fi='tamgiac.dat'
var f1:text;
a,b,c:array[1..100]of real;
n,i,j,k,dem:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
inc(n);
readln(f1,a[n],b[n],c[n]);
end;
dem:=0;
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
if (i=j) and (j=k) then
begin
if (a[i]+b[j]>c[k]) and (a[i]+c[k]>b[j]) and (c[k]+b[j]>a[i]) then
begin
if (a[i]=b[j]) and (a[i]<>c[k]) and (b[j]<>c[k]) then inc(dem);
if (a[i]=c[k]) and (a[i]<>b[j]) and (c[k]<>b[j]) then inc(dem);
if (b[j]=c[k]) and (b[j]<>a[i]) and (c[k]<>a[i]) then inc(dem);
end;
end;
writeln(dem);
readln;
end.
Đúng 2
Bình luận (0)