b Hãy viết một chương trình nhập vào từ bàn phím mảng một chiều các số nguyên không quá 50 phần tử.. Sau đó in ra màn hình các phần tử của mảng vừa nhập.. Câu 2: 2,5 điểm Viết chương trì
Trang 1b) Hãy viết một chương trình nhập vào từ bàn phím mảng một chiều các số nguyên (không quá 50 phần tử) Sau đó in ra màn hình các phần tử của mảng vừa nhập
Câu 2: (2,5 điểm) Viết chương trình thực hiện các việc sau:
• Chương trình con nhập vào độ dài 2 cạnh của hình chữ nhật
• Chương trình con tính chu vi của hình chữ nhật
• Chương trình chính sử dụng các chương trình con đã viết thực hiện việc nhập vào độ dài cạnh của hình chữ nhật sau đó tính chu vi và đưa kết quả ra màn hình
Câu 3: (2,5 điểm)
Viết chương trình đọc dữ liệu vào từ tệp HINHTRON.IN gồm các số nguyên là bán kính của hình tròn (các số phân cách nhau bởi 1 dấu cách) Tính chu vi, diện tích rồi ghi kết quả ra tệp HINHTRON.OU mỗi dòng ghi chu vi, diện tích của một hình tròn tương ứng
-Hết -Thớ sinh khụng sử dụng tài liệu Giỏm thị coi thi khụng giải thớch gỡ thờm!
SỞ GIÁO DỤC VÀ ĐÀO TẠO PHÚ THỌ
Môn: Tin học 11
Thời gian làm bài: 45 phút
Câu 1: (5 điểm)
a) Hãy viết một chương trình nhập vào từ bàn phím một xâu kí tự độ dài không quá 50 kí tự sau đó
in ra màn hình chiều dài của xâu vừa nhập
b) Hãy viết một chương trình nhập vào từ bàn phím mảng một chiều các số nguyên (không quá 100 phần tử) Sau đó in ra màn hình các phần tử của mảng vừa nhập
Câu 2: (2,5 điểm) Viết chương trình thực hiện các việc sau:
• Chương trình con nhập vào độ dài cạnh của hình vuông
• Chương trình con tính diện tích của hình vuông
• Chương trình chính sử dụng các chương trình con đã viết thực hiện việc nhập vào chiều dài cạnh của hình vuông sau đó tính diện tích và đưa kết quả ra màn hình
Câu 3: (2,5 điểm)
Viết chương trình đọc dữ liệu vào từ tệp CHUNHAT.INP gồm nhiều dòng, mỗi dòng chứa 2 số nguyên là cạnh của hình chữ nhật (các số phân cách nhau bởi 1 dấu cách) Tính chu vi, diện tích rồi ghi kết quả ra tệp CHUNHAT.OUT mỗi dòng ghi chu vi, diện tích của một hình chữ nhật tương ứng
Đề 2
Trang 21 b
- Nhập mảng: writeln(‘Nhap so ptu cua mang nhỏ hơn 50:’); readln(n);
For i:=1 to n do Begin write(‘a[‘,i,’]=’);
Readln(a[i]);
End;
1,5 đ
- In ra mảng: Writeln(‘Mang vua nhap la:’);
- Chương trình hoàn chỉnh, trình bày tốt (câu lệnh thông báo, in ra…) 0,5 đ
2
- CTC nhập độ dài cạnh:
Procedure nhap(x,y:real); {có thể ko có tham số}
Begin Writeln(‘Moi nhap do dai 2 canh cua HCN:’);
Readln(x,y);
End;
0,5 đ
- CTC tính chu vi của HCN:
Function chuvi(x,y:real):real;
Begin
Chuvi:=(x+y)*2;
End;
0,5 đ
- Chương trình chính:
BEGIN
Nhap(a,b);
Writeln(‘Chu vi cua HCN la: ’, chuvi(a,b):4:2);
Readln
END
1,0 đ
- Chương trình hoàn chỉnh, trình bày tốt (câu lệnh thông báo, in ra…) 0,25 đ
3
- Khai báo biến:
- CT chính đọc dữ liệu từ tệp và ghi dữ liệu ra tệp:
Begin
Assign(f1,’HINHTRON.IN’); reset(f1);
Assign(f2,’HINHTRON.OU’); rewrite(f2);
While not eof(f1) do
Begin
Read(f1,r);
Cv:=2*3.14*r; dt:=3.14*r*r;
2,0 đ
Trang 31 b
- Nhập mảng: Writeln(‘Nhap so ptu cua mang nhỏ hơn 100:’); readln(n);
For i:=1 to n do Begin write(‘a[‘,i,’]=’);
Readln(a[i]);
End;
1,5 đ
- In ra mảng: Writeln(‘Mang vua nhap la:’);
- Chương trình hoàn chỉnh, trình bày tốt (câu lệnh thông báo, in ra…) 0,5 đ
2
- CTC nhập độ dài cạnh:
Procedure nhap(x:real); {có thể ko có tham số}
Begin Writeln(‘Moi nhap do dai canh cua hinh vuong:’);
Readln(x);
End;
0,5 đ
- CTC tính diện tích của hình vuông:
Function dientich(x:real):real;
Begin
dientich:=x*x {Hoặc: dientich:=sqr(x)}
End;
0,5 đ
- Chương trình chính:
BEGIN
Nhap(a);
Writeln(‘Dien tich cua hinh vuong la: ’, dientich(a):5:2);
Readln
END
1,0 đ
- Chương trình hoàn chỉnh, trình bày tốt (câu lệnh thông báo, in ra…) 0,25 đ
3
- Khai báo biến:
- CT chính đọc dữ liệu từ tệp và ghi dữ liệu ra tệp:
Begin
Assign(f1,’CHUNHAT.INP’); reset(f1);
Assign(f2,’CHUNHAT.OUT’); rewrite(f2);
While not eof(f1) do
Begin
Read(f1,a,b);
Cv:=(a+b)*2; dt:=a*b;
2,0 đ