Tin học Tây Sơn

Lựa chọn thư giãn

Go down

Lựa chọn thư giãn

Bài gửi by Admin on Wed Jan 02, 2019 4:34 pm

Biên đang gặp rắc rối! Anh ấy là một thành viên của TOPcoderTS. Vào mỗi buổi sáng như thường lệ, Biên thức dậy vào lúc 10 giờ sáng, sau khi nhâm nhi tách café và nghe nhạc, Biên bắt đầu giải các bài tập trước khi thưởng thức bữa sáng. Mặc dù có thứ gì đó "sai sai" so với mọi hôm, nhưng dựa vào kho tàng kiến thức mà anh ấy vừa mới gặt hái được, John đã viết chương trình với một tốc độ thần thánh. Anh ấy quyết định sẽ có một kỳ nghỉ như là phần thưởng cho những nỗ lực của mình.
Là một con người tràn trề sinh lực, Biên muốn dành thời gian nhiều cho cuộc đời của mình. Có quá nhiều thứ mà anh ta muốn làm, nhưng không may là anh ta không thể nào làm hết tất cả chúng được. Thế nên trong lúc thưởng thức tô mỳ gói, Biên đã vạch ra một "Fun plan" được thể hiện bằng một thời gian biểu cho từng hoạt động như sau:
Id Hoạt động Thời gian
1 Sửa phòng Thứ 2, 22:00 đến thứ 3, 1:00
2 Du lịch Hawai Thứ 3, 6:00 đến thứ 7, 22:00
3 Vô địch cuộc thi cờ vua Thứ 3, 11:00 đến thứ 3, 21:00
4 Thạm dự nhạc hội Rock Thứ 3, 19:00 đến thứ 3, 23:00
5 Chiến thắng cuộc thi Starcraft Thứ 4, 15:00 đến thứ 5, 15:00
6 Chơi trò bắn súng nước sơn Thứ 5, 10:00 đến thứ 5, 16:00
7 Tham gia kỳ thi SRM trên Topcoder Thứ 7, 12:00 đến thứ 7, 14:00
8 Tắm rửa Thứ 7, 20:30 đến thứ 7, 20:45
9 Tổ chức tiệc ngủ Thứ 7, 21:00 đến Chủ nhật, 6:00
10 Tham gia thử thách "All you can eat" và "All you can drink" Thứ 7, 21:01 đến thứ 7, 23:59
Giờ anh ấy muốn thực hiện được tối đa các hoạt động trong thời gian biểu trên. Mặc dù để lên kế hoạch hiệu quả thì cần phải có chút lý trí, nhưng giờ thì hồn anh ấy đã đắm chìm vào kỳ nghỉ rồi.




TG.INP
TG.OUT
7
8 9
2 10
5 12
7 15
9 20
13 21
1 3
 ?
avatar
Admin
Admin
Admin

Posts : 687
Reputation : -10042
Join date : 16/11/2015
Age : 29

Xem lý lịch thành viên http://tinhocts.forumvi.com

Về Đầu Trang Go down

Re: Lựa chọn thư giãn

Bài gửi by tonguyengiahan237 on Wed Jan 02, 2019 8:10 pm

Code:
Program Lua_chon_HD;
Uses crt;
Type Mang2c=array[1..12,1..12]of integer;
Var n,T:integer;
    fi,fo:text;
    A:Mang2c;

Procedure Docdl;
Var i,j:integer;
Begin
Assign(fi,'TG.INP');
Reset(fi);
Readln(fi,n);
For i:=1 to n do
 For j:=1 to 2 do
  Begin
  Read(fi,A[i,j]);
  If j=2 then readln(fi);
  End;
Close(fi);
End;

Procedure Doi(Var x,y:integer);
Var Tam:integer;
Begin
Tam:=x;
x:=y;
y:=Tam;
End;

Procedure Sx_tang;
Var i,k,Tam:integer;
Begin
For i:=1 to n-1 do
For k:=i+1 to n do
        If A[k,2]<A[i,2] then
        Begin
        Doi(A[k,1],A[i,1]);
        Doi(A[k,2],A[i,2]);
        End;
End;

Procedure Tong;
Var i,k,Tg:integer;
Begin
Assign(fo,'TG.OUT');
Rewrite(fo);
T:=0;
Tg:=0;
For i:=1 to n do
 If A[i,1]>=Tg then
        begin
        T:=T+1;
        Tg:=A[i,2];
        end;
Writeln(fo,T);
Close(fo);
End;

BEGIN
CLRSCR;
docdl;
Sx_tang;
Tong;
READLN;
END.
avatar
tonguyengiahan237
Nhiệt tình
Nhiệt tình

Posts : 42
Reputation : -1
Join date : 06/11/2018
Age : 14
Location : TT Phú Phong Huyện Tây Sơn Tỉnh Bình Định

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Lựa chọn thư giãn

Bài gửi by Admin on Thu Jan 03, 2019 8:41 am

tonguyengiahan237 đã viết:
Code:
Program Lua_chon_HD;
Uses crt;
Type Mang2c=array[1..12,1..12]of integer;
Var n,T:integer;
    fi,fo:text;
    A:Mang2c;

Procedure Docdl;
Var i,j:integer;
Begin
Assign(fi,'TG.INP');
Reset(fi);
Readln(fi,n);
For i:=1 to n do
 For j:=1 to 2 do
  Begin
  Read(fi,A[i,j]);
  If j=2 then readln(fi);
  End;
Close(fi);
End;

Procedure Doi(Var x,y:integer);
Var Tam:integer;
Begin
Tam:=x;
x:=y;
y:=Tam;
End;

Procedure Sx_tang;
Var i,k,Tam:integer;
Begin
For i:=1 to n-1 do
For k:=i+1 to n do
        If A[k,2]<A[i,2] then
        Begin
        Doi(A[k,1],A[i,1]);
        Doi(A[k,2],A[i,2]);
        End;
End;

Procedure Tong;
Var i,k,Tg:integer;
Begin
Assign(fo,'TG.OUT');
Rewrite(fo);
T:=0;
Tg:=0;
For i:=1 to n do
 If A[i,1]>=Tg then
        begin
        T:=T+1;
        Tg:=A[i,2];
        end;
Writeln(fo,T);
Close(fo);
End;

BEGIN
CLRSCR;
docdl;
Sx_tang;
Tong;
READLN;
END.
sunny sunny
avatar
Admin
Admin
Admin

Posts : 687
Reputation : -10042
Join date : 16/11/2015
Age : 29

Xem lý lịch thành viên http://tinhocts.forumvi.com

Về Đầu Trang Go down

Re: Lựa chọn thư giãn

Bài gửi by quantran on Sat Jan 05, 2019 2:03 pm

Code:
program baitg;
var
a,b,c:array[1..100] of integer;
i,n,d,j,tg:integer;
fi,fo:text;
//--------------------------------
procedure nhap;
begin
        assign(fi,'tg.inp');
        reset(fi);
        readln(fi,n);
        for i:=1 to n do
          readln(fi,b[i],c[i]);
        close(fi);
end;
//-------------------------------
procedure doi( var x,y:integer);
var
tam:integer;
begin
        tam:=x;
        x:=y;
        y:=tam;
end;
//-------------------------------
procedure sx;
begin
for i:=1 to n-1 do
          for j:=i+1 to n do
          if c[i]>c[j] then
                begin
                doi(c[i],c[j]);
                doi(b[i],b[j]);
                end;
end;
//-------------------------------
procedure xuli;
begin
        assign(fo,'TG.out');
        rewrite(fo);
        sx;
          a[1]:=1;
          d:=1;
            for i:=2 to n do
            if b[i]>=c[a[d]] then
                        begin
                        d:=d+1;
                        a[d]:=i;
                        end;
        write(fo,d);
        close(fo);
end;
//------------------------------
begin
nhap;
xuli;
readln;
end.
avatar
quantran
Năng động
Năng động

Posts : 77
Reputation : -339986
Join date : 18/06/2018
Age : 14
Location : Binh Thuan-Tay Son-Binh Dinh

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Lựa chọn thư giãn

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết