BÀI TẬP THỰC HÀNH – DỮ LIỆU KIỂU TỆP
Câu 1: Cho tệp BAI1.INP có cấu trúc như sau:
- Gồm 1 dòng chứa độ dài 2 cạnh của hình chữ nhật
Em hãy lập chương trình tính diện tích hình chữ nhật đó . Kết quả in ra màn hình đúng đến 2 chữ số thập phân?
Câu 2: Cho tệp BAI2.INP có cấu trúc như sau:
- Gồm 1 dòng chứa độ dài 2 cạnh của hình chữ nhật
Em hãy lập chương trình tính diện tích hình chữ nhật đó . Kết quả ghi vào tệp BAI2.OUT
đúng đến 2 chữ số thập phân?
Câu 3: Cho tệp BAI3.INP có cấu trúc như sau:
- Gồm N dòng chứa độ dài 2 cạnh của hình chữ nhật
Em hãy lập chương trình tính diện tích hình chữ nhật đó . các kết quả ghi vào tệp BAI3.OUT đúng đến 2 chữ số thập phân?
Câu 4: Cho tệp BAI4.INP chứa 3 số nguyên a,b,c lần lượt là độ dài của 3 cạnh tam giác. Hãy lập chương trình tính chu vi, diện tích của tam giác đó .Kết quả ghi vào tệp BAI4.OUT có cấu trúc như sau:
BAI4.INP | BAI4.OUT |
3 4 5 | Chu vi=….. Dien tich =…… |
Câu 5: Cho tệp BAI5.INP chứa duy nhất số nguyên dương M . Hãy lập chương trình kiểm tra M là số chẵn hay số lẻ .Kết quả ghi vào tệp BAI5.OUT có cấu trúc như sau:
BAI5.INP | BAI5.OUT |
7 | 7 la so le |
Câu 6: Cho tệp BAI6.INP có cấu trúc như sau :
-Dòng 1: số nguyên dương N
-Dòng 2: là dãy N số nguyên dương a1, a2, …..an
Hãy lập chương trình ghi vào tệp BAI6.OUT :
-Dòng 1: Dãy số nguyên a1,a2,a3,…,an
-Dòng 2: Các số chẵn của dãy số
-Dòng 3: Số phần tử >10
-Dòng 4: Tổng các phần tử của dãy
BAI6.INP | BAI6.OUT |
5 4 6 23 1 5 | Dãy số nguyên có dạng :4 16 23 1 5 Các số chẵn của dãy số là 4 16 Số phần tử lớn hơn 10 là: 2 Tổng các phần tử của dãy là: 49 |
Câu 7: Cho tệp BAI7.INP có cấu trúc như sau :
-Dòng 1: số nguyên dương N
-Dòng 2: là dãy N số nguyên dương a1, a2, …..an
Hãy lập chương trình ghi vào tệp BAI7.OUT :
-Dòng 1: Dãy số nguyên a1,a2,a3,…,an
-Dòng 2: Các số lẻ của dãy số
-Dòng 3: Số phần tử =0
-Dòng 4: Tổng các phần tử của dãy
BAI7.INP | BAI7.OUT |
8 4 0 6 23 0 1 5 0 | Dãy số nguyên có dạng : 4 0 6 23 0 1 5 0 Các số lẻ của dãy số là 23 1 5 Số phần tử bằng 0 là: 3 Tổng các phần tử của dãy là: 49 |
Câu 1:
uses crt;
const fi='bai1.inp'
var f1:text;
a,b:real;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b);
writeln(a*b:4:2);
close(f1);
readln;
end.
Câu 2:
const fi='bai2.inp'
fo='bai2.out'
var f1,f2:text;
a,b:real;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
writeln(f2,a*b:4:2);
close(f1);
close(f2);
end.
Câu 3:
const fi='bai3.inp'
fo='bai3.out'
var f1,f2:text;
a,b:array[1..100]of real;
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,a[n],b[n]);
end;
for i:=1 to n do
writeln(f2,a[i]*b[i]:4:2);
close(f1);
close(f2);
end.
Câu 4:
const fi='bai4.inp'
fo='bai4.out'
var f1,f2:text;
a,b,c,cv:integer;
p,s:real;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b,c);
cv:=a+b+c;
p:=cv/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(f2,'Chu vi la: ',cv);
writeln(f2,'Dien tich la: ',s:4:2);
close(f1);
close(f2);
end.
Câu 5:
const fi='bai5.inp'
fo='bai5.out'
var f1,f2:text;
m:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,m);
if m mod 2=0 then writeln(f2,m,' la so chan')
else writeln(f2,m,' la so le');
close(f1);
close(f2);
end.
Câu 6:
const fi='bai6.inp'
fo='bai6.out'
var a:array[1..100]of integer;
n,i,t,dem:integer;
f1,f2:text;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
for i:=1 to n do
write(f2,a[i]:4);
writeln(f2);
write(f2,'Cac so chan la: ');
for i:=1 to n do
if a[i] mod 2=0 then write(f2,a[i]:4);
writeln(f2);
dem:=0;
for i:=1 to n do
if a[i]>10 then inc(dem);
writeln(f2,'So phan tu lon hon 10 la: ',dem);
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(f2,'Tong cac phan tu cua day la: ',t);
close(f1);
close(f2);
end.
Câu 7:
const fi='bai7.inp'
fo='bai7.out'
var a:array[1..100]of integer;
n,i,t,dem:integer;
f1,f2:text;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
for i:=1 to n do
write(f2,a[i]:4);
writeln(f2);
write(f2,'Cac so le la: ');
for i:=1 to n do
if a[i] mod 2<>0 then write(f2,a[i]:4);
writeln(f2);
dem:=0;
for i:=1 to n do
if a[i]=0 then inc(dem);
writeln(f2,'So phan tu bang 0 la: ',dem);
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(f2,'Tong cac phan tu cua day la: ',t);
close(f1);
close(f2);
end.