Diễn đàn tin học Văn Lang - Vạn Ninh
Chào mừng bạn đến với Diễn đàn Tin học Văn Lang - Vạn Ninh của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !

Diễn đàn tin học Văn Lang - Vạn Ninh

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 đề thi thử 2017

Go down 
Tác giảThông điệp
pqtoan



Posts : 72
Danh tiếng : 3
Join date : 10/11/2014

Bài gửiTiêu đề: đề thi thử 2017   28/2/2017, 08:56

Bài 1 (4,0 điểm). Khởi động chương trình PASCAL, viết chương trình nhập số tự nhiên n sao cho 5 < n ≤100, nếu nhập sai yêu cầu nhập lại khi nào nhập đúng thì tính tổng sn:
Sn= (1.2)/(3.4) + (2.3)/(4.5) + .....+ (n.(n+1))/((n+2).(n+3))

- Lưu bài với tên tệp tin: D:\THIHUYEN\B1SBDxxx.pas (trong đó xxx là số báo danh của thí sinh).

Bài 2 (6,0 điểm). Viết chương trình trên ngôn ngữ lập trình PASCAL, nhập vào hai số tự nhiên x, y sao cho chương trình chỉ cho nhập các số tự nhiên x, y thỏa mãn 4 x < 53 và 59 < y 121.
- In ra màn hình các số lẻ chia hết cho 3 trong khoảng từ x đến y và đếm có bao nhiêu số như vậy?
- In ra màn hình các số chính phương m sao cho x < m < y và đếm có bao nhiêu số m?
- Lưu bài với tên tệp tin: D:\THIHUYEN\B2SBDxxx.pas (trong đó xxx là số báo danh của thí sinh).

Bài 3 (4,0 điểm). Lập chương trình PASCAL thực hiện yêu cầu sau:
Anh Việt đi chợ mua một mặt hàng có giá trị là N đồng. Trong túi anh Việt có nhiều tờ tiền với mệnh giá là 100 đồng, 200 đồng và 1000 đồng. Anh Việt có thể có nhiều cách trả tiền để mua mặt hàng đó (anh Việt chỉ dùng các tờ tiền mà anh có sẵn. Anh không đưa thừa tiền cho người bán vì người bán không có tiền trả lại).
Yêu cầu: nhập vào từ bàn phím số N (N nguyên và 2<N<100 000); đưa ra màn hình tất cả các cách trả tiền của anh Việt thỏa mãn. (Mỗi cách trả tiền trên một dòng, nếu không có cách trả tiền thì không cần thông báo gì)
- Lưu bài với tên tệp tin: D:\THIHUYEN\B3SBDxxx.pas (trong đó xxx là số báo danh của thí sinh).

Bài 4 ( 6,0 điểm). Khởi động chương trình PASCAL, viết chương trình nhập vào một dãy số nguyên n phần tử, n nhập từ bàn phím.
- In ra màn hình dãy số vừa nhập xếp theo thứ tự tăng dần.
- In ra màn hình các số nguyên tố trong dãy số vừa nhập và đếm xem đã nhập vào bao nhiêu số nguyên tố.
- Lưu bài với tên tệp tin: D:\THIHUYEN\B4SBDxxx.pas (trong đó xxx là số báo danh của thí sinh).
Về Đầu Trang Go down
Xem lý lịch thành viên
pqtoan



Posts : 72
Danh tiếng : 3
Join date : 10/11/2014

Bài gửiTiêu đề: Re: đề thi thử 2017   28/2/2017, 09:28

Bài 1:
Code:
uses crt;
var n,i:integer;
   sn:real;
begin
clrscr;
repeat
write('Nhap n (5<n<=100):');readln(n);
if n<=5 then writeln('Nhap sai');
if n>100 then writeln('Nhap sai');
until (5<n) and (n<=100);
sn:=0;
for i:=1 to n do sn:=sn+(i*(i+1))/((i+2)*(i+3));
writeln(sn:3:2);
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
pqtoan



Posts : 72
Danh tiếng : 3
Join date : 10/11/2014

Bài gửiTiêu đề: Re: đề thi thử 2017   28/2/2017, 09:29

Bài 2:
Code:
uses crt;
var x,y,i,d,c:integer;
    a,b:array[1..100]of integer;
{-}
function sl(var a:integer):boolean;
begin
    if (a mod 3=0)and(a mod 2=1) then sl:=true else sl:=false;
end;
function cp(var a:integer):boolean;
begin
    if sqr(round(sqrt(a)))=a then cp:=true else cp:=false;
end;
{-}
begin
clrscr;
repeat
write('Nhap x sao cho 4<x<53:');readln(x);
if 4>=x then writeln('Nhap sai');
if x>=53 then writeln('Nhap sai');
until (4<x)and(x<53);
repeat
write('Nhap y sao cho 59<y<121:');readln(y);
if 59<=y then writeln('Nhap sai');
if y>=121 then writeln('Nhap sai');
until (59<y)and(y<121);
d:=0;c:=0;
for i:=x to y do
begin
    if cp(i)=true then
    begin
          c:=c+1;
          a[c]:=i;
    end;
    if sl(i)=true then
    begin
          d:=d+1;
          b[d]:=i;
    end;
end;
writeln('Co ',d,' so le chia het cho 3 giua ',x,' va ',y,'');
for i:=1 to d do write(b[i]:5);writeln;
writeln('Co ',c,' so chinh phuong ',x,' va ',y,'');
for i:=1 to c do write(a[i]:5);
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
pqtoan



Posts : 72
Danh tiếng : 3
Join date : 10/11/2014

Bài gửiTiêu đề: Re: đề thi thử 2017   28/2/2017, 09:37

Bài 4:
Code:
uses crt;
var a,b:array[1..100] of integer;
    i,j,d,n,c:integer;
{-}
function w(var a:integer):boolean;
var i:integer;
begin
    i:=2;
    while a mod i<>0 do i:=i+1;
    if i=a then w:=true else w:=false;
end;
{-}
begin
clrscr;
write('Nhap so phan tu:');readln(n);
for i:=1 to n do
begin
    write('a[',i,']:');readln(a[i]);
end;
for i:=1 to n-1 do for j:=i+1 to n do if a[i]>a[j] then
begin
    d:=a[i];a[i]:=a[j];a[j]:=d;
end;
writeln('Day tang dan:');
for i:=1 to n do write(a[i]:3);writeln;
c:=0;
for i:=1 to n do if w(i)=true then
begin
    c:=c+1;
    b[c]:=i;
end;
writeln('Co ',c,' so nguyen to vua nhap:');
for i:=1 to c do write(b[i]:3);
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: đề thi thử 2017   

Về Đầu Trang Go down
 
đề thi thử 2017
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» GIỌNG CA CẢI LƯƠNG HẰNG TUẦN
» Loài hoa đem lại may mắn cho 12 cung Hoàng đạo
» 04. Góc Vườn Đào 2016 - 2017
» Họa Thơ 2016 và 2017

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Văn Lang - Vạn Ninh :: Các bộ đề thi-
Chuyển đến