Tệp và thao tác với tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hằng Nguyễn

Câu 1: viết chương trình nhập vào từ bàn phím số nguyên dương N và dãy A gồm N số nguyên dương A1,A2,...AN. hãy viết chương trình đếm các số lẻ trong dãy A và tính trung bình cộng của chúng. yêu cầu kết quả in lên tệp OUT.TXT
Câu 2:cho tệp dulieu.txt gồm một dòng các số nguyên mỗi số cách nhau một dấu cách. viết chương trình đọc dữ liệu từ tệp trên rồi đưa ra màn hình các số là bội của 3 và đếm xem có bao nhiêu số như vậy.

Câu 3: viết chương trình nhập vào từ bàn phím số nguyên dương N và dãy A gồm N số nguyên dương A1,A2,...AN. hãy viết chương trình đếm các số chẵn trong dãy A và tính trung bình cộng của chúng. yêu cầu kết quả in lên tệp OUT.TXT

Câu 4: cho tệp dulieu.txt gồm một dòng các số nguyên mỗi số cách nhau một dấu cách. viết chương trình đọc dữ liệu từ tệp trên rồi đưa ra màn hình các số nguyên dương và đếm xem có bao nhiêu số như vậy.

Nguyễn Lê Phước Thịnh
1 tháng 6 2020 lúc 22:34

Câu 1:

uses crt;
const fo='out.put';
var a:array[1..100]of integer;
n,i,dem,t:integer;
f1:text;
begin
clrscr;
assign(f1,fo); rewrite(f1);
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=100);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>0;
end;
dem:=0;
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln(f1,'So luong so le: ',dem);
writeln(f1,'Trung binh cong cua cac so le la: ',t/dem:4:2);
close(f1);
readln;
end.

Câu 2:

uses crt;
const fi='dulieu.txt';
var a:array[1..100]of integer;
n,i,dem:integer;
f1:text;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eoln(f1) do
begin
inc(n);
read(f1,a[n]);
end;
writeln('Cac so la boi cua 3 la: ');
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then
begin
write(a[i]:4);
inc(dem);
end;
writeln;
writeln('So cac phan tu la boi cua 3 la: ' ,dem);
close(f1);
readln;
end.

Câu 3:

uses crt;
const fo='out.put';
var a:array[1..100]of integer;
n,i,dem,t:integer;
f1:text;
begin
clrscr;
assign(f1,fo); rewrite(f1);
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=100);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>0;
end;
dem:=0;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln(f1,'So luong so chan: ',dem);
writeln(f1,'Trung binh cong cua cac so chan la: ',t/dem:4:2);
close(f1);
readln;
end.

Câu 4:

uses crt;
const fi='dulieu.txt';
var a:array[1..100]of integer;
n,i,dem:integer;
f1:text;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eoln(f1) do
begin
inc(n);
read(f1,a[n]);
end;
writeln('Cac so nguyen duong la: ');
dem:=0;
for i:=1 to n do
if a[i]>0 then
begin
write(a[i]:4);
inc(dem);
end;
writeln;
writeln('So cac phan tu la so nguyen duong la: ' ,dem);
close(f1);
readln;
end.


Các câu hỏi tương tự
Hoàng Long
Xem chi tiết
Vũ văn huy
Xem chi tiết
Lê Thị Ngọc Anh
Xem chi tiết
Nguyen Duc Anh
Xem chi tiết
duc tran
Xem chi tiết
Quyền
Xem chi tiết
Phạm Thị Thu Hằng
Xem chi tiết
Lương Tiến Tuấn
Xem chi tiết
Haibanh
Xem chi tiết