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 | 
 

 cấp trường 9

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 đề: cấp trường 9   15/9/2016, 10:08

Bài 1: Viết chương trình nhập vào số nguyên dương n, kiểm tra số n có dạng 3k+5 hay không (k là số nguyên dương)? Nếu có xuất ra màn hình giá trị của k, nếu không hiện ra màn hình chữ “khong”.
Bài 2:
Một số nguyên dương n được gọi là MAY MẮN khi số n có dạng 7h+5 (với h là số nguyên dương)
Ví dụ: 12 là MAY MẮN vì 12=7.h+5 (với h=1)
Yêu cầu: Viết chương trình nhập vào từ bàn phím một chuỗi s gồm: chữ cái, chữ số và khoảng trắng. Các chữ số liền nhau tạo thành con số.
• Đếm và xuất ra màn hình số lượng chữ số trong chuỗi s
• Tính và xuất ra màn hình các con số MAY MẮN trong chuỗi s và tổng của chúng.
Ví dụ: chuỗi s 'a5 aaa12bb40 ccc96' có 7 chữ số và tổng các con số MAY MẮN là 148
Bài 3: Con số nguyên dương n gọi là con số song trùng m với m là số nguyên dương khi n chia hết cho m và tổng chữ số của n cũng chia hết cho m. Viết chương trình:
a) Nhập n, m. Hãy cho biết n có là con số song trùng m hay không?
b) Nhập vào hai số nguyên dương k, h, tìm tất cả số song trùng m từ k đến h?
Bài 4: CHUỖI KÝ TỰ
Cho một chuỗi ký tự S có độ dài không quá 250 ký tự. Hãy tính tổng các ký tự là chữ số trong chuỗi này.
Input
Gồm một dòng chứa chuỗi ký tự S.
Output
Gồm một dòng chứa số nguyên là tổng các ký tự trong chuỗi S.

STR.INP STR.OUT
Dsajfkj847719-8jjfuioqu21i0io 47

Bài 5: Cho dãy số nguyên A gồm n phần tử a1,a2, .., an, tìm bộ ba chỉ số i, j,k thỏa mãn:
S= ai-2aj+3ak đạt giá trị lớn nhất (với 1 ≤ i < j < k ≤ n).
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: cấp trường 9   17/10/2016, 09:02

Bài 1:
uses crt;
var k,m,x,tich,i:integer;
begin
clrscr;
write('Nhap so:');readln(m);
x:=1;k:=0;
repeat
k:=k+1;
for i:=1 to k do x:=x*3;
tich:=x+5;
if tich<m then
begin
tich:=tich-5;x:=1;
end;
until tich>=m;
if tich=m then
begin
writeln('Co');write('k la:',k);
end
else write('Ko');
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: cấp trường 9   17/10/2016, 09:28

Bài 2:
uses crt;
const so=['0'..'9'];
var a,b:string;
i,x,code,tong,h:integer;
begin
clrscr;
write('Nhap chuoi:');readln(a);
x:=0;
for i:=1 to length(a) do if a[i] in so then x:=x+1;
writeln('Cac chu so trong chuoi la:',x);
i:=0;tong:=0;
while i<length(a) do
begin
i:=i+1;
if a[i] in so then
begin
b:='';
insert(a[i],b,length(b)+1);
while a[i+1] in so do
begin
i:=i+1;
insert(a[i],b,length(b)+1);
end;
val(b,x,code);
for h:=1 to x do if x=7*h+5 then tong:=tong+x;
end;
end;
writeln('Tong cac so may man la:',tong);
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: cấp trường 9   17/10/2016, 10:05

Bài 3:
uses crt;
var n,m,k,h:integer;
{-}
function w(n,m:integer):boolean;
var i,dem,tong:integer;
begin
    dem:=0;tong:=0;
    if n mod m=0 then dem:=dem+1;
    repeat
    tong:=tong+(n mod 10);
    n:=n div 10;
    until n=0;
    if tong mod m=0 then dem:=dem+1;
    if dem=2 then w:=true else w:=false;
end;
{-}
procedure x(var a,b,m:integer);
var i,j:integer;
begin
j:=0;
for i:=a to b do if w(i,m)=true then
begin
    j:=j+1;
    write(i:3);
end;
if j=0 then writeln('Ko co');
end;
{-}
begin
clrscr;
write('Nhap n:');readln(n);
write('Nhap m:');readln(m);
if w(n,m)=true then writeln(n,' song trung voi ',m,'')
              else writeln(n,' ko song trung voi ',m,'');
write('Nhap k:');readln(k);
write('Nhap h:');readln(h);
writeln('Cac so song trung voi ',m,' tu ',k,' den ',h,' la:');
if k<h then x(k,h,m) else x(h,k,m);
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: cấp trường 9   17/10/2016, 10:11

Bài 4:
uses crt;
const so=['1'..'9'];
var s:string;
i,tong,code:integer;
begin
clrscr;
write('Nhap chuoi:');readln(s);
tong:=0;
for i:=1 to length(s) do if s[i] in so then
begin
val(s[i],i,code);tong:=tong+i;
end;
writeln('Tong la:',tong);
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: cấp trường 9   

Về Đầu Trang Go down
 
cấp trường 9
Về Đầu Trang 
Trang 1 trong tổng số 1 trang

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