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 | 
 

 đề tỉnh vĩnh phúc 2014

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 đề: đề tỉnh vĩnh phúc 2014   28/2/2017, 09:22

Lập chương trình giải các bài toán sau đây:
Bài 1. BRC
Cần chia bánh cho người. Ban đầu mỗi cái bánh là một phần, chỉ dùng một dao cắt bánh, mỗi thao tác cắt chỉ được chia một phần bánh thành hai phần với tỷ lệ tùy ý.
Yêu cầu: Dùng ít thao tác cắt nhất để chia bánh thành các phần cho người, mỗi phần thuộc về đúng một người và lượng bánh mỗi người nhận được là bằng nhau.
Dữ liệu:
• Một dòng duy nhất ghi hai số và , cách nhau bởi một dấu cách,
Kết quả:
• Ghi ra số thao tác cắt ít nhất thỏa yêu cầu.
Ví dụ:
input output Giải thích
3 5 4

Bài 2. PNM
Ngôn ngữ PNM thường được sử dụng để trình diễn phông chữ trong máy tính hoặc dùng để in thử nghiệm trong các thiết bị in ấn. Một từ hoặc một câu gọi là PNM nếu các chữ cái của bảng chữ cái Latin đều xuất hiện ít nhất một lần trong từ hoặc câu đó.
Cho một chuỗi các kí tự (bao gồm cả in thường và in hoa) thuộc bảng chữ cái Latin, kiểm tra xem chuỗi này có là PNM hay không?
Dữ liệu:
• Dòng đầu ghi số nguyên dương là số kí tự trong chuỗi
• Dòng tiếp theo ghi kí tự thuộc bảng chữ cái Latin.
Kết quả:
• Ghi YES nếu nó là ngôn ngữ PNM, ghi NO trong trường hợp ngược lại.
Ví dụ:
input output input output
12
toosmallword NO 35
TheQuickBrownFoxJumpsOverTheLazyDog YES

Ràng buộc: Có 60% số test ứng với 60% số điểm có
Bài 3. MXM
Cho số nguyên dương . Tìm bội số lớn nhất của số sau khi xáo trộn các chữ số của số .
Dữ liệu:
• Một dòng duy nhất ghi số ,
Kết quả:
• Ghi kết quả tìm được trên một dòng, nếu không tìm được ghi -1
Ví dụ:
input output input output input output
30 30 102 120 2931 -1
Ràng buộc:
• Có 40 % số test ứng với 40% số điểm có
• Có 30% số test khác ứng với 30% số điểm có
• Có 20% số test khác ứng với 20% số điểm có
• Có 10% số test khác ứng với 10% số điểm có
Về Đầu Trang Go down
Xem lý lịch thành viên
nhathuyvanlang

avatar

Posts : 49
Danh tiếng : 9
Join date : 26/03/2016

Bài gửiTiêu đề: Re: đề tỉnh vĩnh phúc 2014   1/3/2017, 07:56

Bài 2:
Code:
uses crt;
const latin=['a'..'Z'];
var st:string;
    i,n,j,k:integer;
procedure dc(var a,b:char);
var t:char;
begin
t:=a;a:=b;b:=t;
end;
{-}
begin
clrscr;
write('nhap chuoi:');readln(st);
for i:=1 to length(st) do st[i]:=upcase(st[i]);
for i:=1 to length(st)-1 do
for j:=i+1 to length(st) do
    if st[i]>st[j] then dc(st[i],st[j]);
n:=length(st);
for i:=1 to n do begin if st[i]=st[i+1] then st[i+1]:=' ';
if (st[i]=st[i-2])and (i>2) then st[i-2]:=' ';end;
while pos(' ',st)<>0 do delete(st,pos(' ',st),1);
for i:=1 to n-1 do if (st[1]='A')and (ord(st[i])=ord(st[i+1])-1) then k:=k+1;
if k=length(st)-1 then writeln('phai') else writeln('khong phai');
readln;
end.


Được sửa bởi nhathuyvanlang ngày 1/3/2017, 08:13; sửa lần 1.
Về Đầu Trang Go down
Xem lý lịch thành viên
nhathuyvanlang

avatar

Posts : 49
Danh tiếng : 9
Join date : 26/03/2016

Bài gửiTiêu đề: Re: đề tỉnh vĩnh phúc 2014   1/3/2017, 08:09

Về Đầu Trang Go down
Xem lý lịch thành viên
nhathuyvanlang

avatar

Posts : 49
Danh tiếng : 9
Join date : 26/03/2016

Bài gửiTiêu đề: Re: đề tỉnh vĩnh phúc 2014   1/3/2017, 08:35

Bài 3:
Code:
uses crt;
var a:array[1..100] of integer;
    b,c,d,i,j,n:integer;
    st:string;
procedure dc(var a,b:integer);
var t:integer;
begin
t:=a;a:=b;b:=t;
end;
{_}
begin
clrscr;
write('nhap so:');readln(st);
for i:=1 to length(st) do a[i]:=ord(st[i])-48;
for i:=1 to length(st) do begin if ord(st[i])-48=0 then c:=c+1;b:=b+a[i];end;
if (c<>0) and (b mod 3=0) then
   begin
        for i:=1 to length(st)-1 do
        for j:=i+1 to length(st) do
            if a[i]<a[j] then dc(a[i],a[j]);
        for i:=1 to length(st) do write(a[i]);
   end
else write('-1');
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: đề tỉnh vĩnh phúc 2014   

Về Đầu Trang Go down
 
đề tỉnh vĩnh phúc 2014
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» CAFE TINH NHAN !!!
» Happy New Year 2014
» MỘ KHÚC PHỐ BOLSA
» Cathy Ha Cooking Express( ngon miệng - nhanh )
» Cùng vào bếp với Xuân Hồng ( mặn -ngọt )

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