- Ebook Giải thuật và lập trình Lê Minh Hoàng
- Các thuật toán sắp xếp trong Pascal

Ngày tháng năm sau ngày được nhập N ngày



Đề bài: Nhập ngày tháng năm. Hãy cho biết ngày tháng năm sau đó N ngày.


var d,m,y,n:integer;
Function      Songay(thang,nam: Integer):Integer;
Var             sn:Integer;
Begin
       Case thang of
                1,3,5,7,8,10,12 : sn:= 31;
                4,9,11             : sn:= 30;
                2:   If  (nam MOD 4 = 0) Then
                           sn:= 29
                      Else
                            sn:= 28;
        End;
        Songay:= sn;
End;
BEGIN
     Writeln('Nhap ngay thang nam');Readln(d,m,y);
     Writeln('Nhap N');Readln(N);
     d:=d+N;
     While d > Songay(m,y) Do
     Begin
         d:= d - Songay(m,y);
         m:= m+1;
         IF m > 12 Then
         Begin
              m:= 1;
              y:= y + 1;
         End;
    End;
Writeln('Ket qua ',d,'/',m,'/',y);
Readln;
END.


Unknown nói...

Nhập vào số tự nhiên N >5. Biểu diễn N thành tổng 3 số nguyên tố.


lúc 16:38 6 tháng 10, 2012
Nặc danh nói...

có ai giỏi pascal k giúp đi


lúc 09:49 2 tháng 1, 2013
Nặc danh nói...

It's the best time to make some plans for the future and it is time to be happy. I have read this post and if I could I desire to suggest you few interesting things or advice. Maybe you can write next articles referring to this article. I want to read even more things about it!

Here is my homepage: online payday loan


lúc 04:13 14 tháng 2, 2013
Nặc danh nói...

Generally I do not learn article on blogs, however I
would like to say that this write-up very forced me to try and do it!
Your writing style has been surprised me. Thank you, very great post.


Here is my weblog - diet that works


lúc 07:26 8 tháng 3, 2013
Nặc danh nói...

That is a good tip particularly to those new to the blogosphere.
Simple but very accurate info… Thanks for sharing this one.

A must read article!

Here is my blog :: chapter 7 bankruptcy florida


lúc 22:22 15 tháng 3, 2013
Nặc danh nói...

Hello! Would you mind if I share your blog with my facebook group?
There's a lot of people that I think would really appreciate your content. Please let me know. Cheers

Also visit my web site - review of quantrim


lúc 15:15 28 tháng 3, 2013
Nặc danh nói...

The principle behind such diet is that when the body has too much calorie,
it will be stored as fat in any body part.
This article contains effective information you can use today to start losing the weight you'd like to lose. The most well-known weight loss diet offered is the 5&1 diet program.

my homepage low carb diet uk


lúc 15:51 29 tháng 3, 2013
Nặc danh nói...

Following you will need to cut two pieces of red and
silver garland the width of the door. The author is an skilled Content writer
and publisher for Company Advancement. In the event you are fortunate ample to have a fireplace
mantel, decorating concepts for Christmas greatly boost and your options are vast.


Feel free to visit my weblog: ideasforchristmasdecorating.com


lúc 18:10 2 tháng 4, 2013
Nặc danh nói...

Presently you'll find lots of on the web shops which sell a variety of kinds of rugs which it becomes simple for you to select the rug that you just want. They'll soon study that preparing infant room
decoration will not be a simple process. Pick out the animal decorations for your wallpapers, the
blanket, the curtains.

Feel free to visit my webpage: tuscan dining room decor


lúc 17:20 8 tháng 4, 2013
Nặc danh nói...

Hi to every one, it's actually a pleasant for me to go to see this site, it consists of helpful Information.

Feel free to visit my web blog :: buy quantrim


lúc 12:32 9 tháng 4, 2013
Nặc danh nói...

I couldn't resist commenting. Very well written!

Feel free to surf to my page calories burned calculator


lúc 16:19 5 tháng 5, 2013
Nặc danh nói...

Hmm it looks like your site ate my first comment
(it was super long) so I guess I'll just sum it up what I had written and say, I'm thoroughly enjoying your
blog. I as well am an aspiring blog writer but I'm still new to everything. Do you have any tips and hints for rookie blog writers? I'd certainly appreciate
it.

my webpage pracownia reklamy lubin


lúc 00:13 11 tháng 5, 2013
Nặc danh nói...

Purchase several varieties of seed packets and tie a piece
of twine in a bow shape, attach to the seed packet and place
one at each place setting. A winter wonderland fantasy can be
created when using tulle wedding decorations. Bon bons, jelly beans,
gum balls, coconut ice or whatever other childhood favorites you can think of.


Also visit my blog post - rustic wedding ideas


lúc 08:01 16 tháng 5, 2013
Nặc danh nói...

Hello to all, the contents present at this website are really
remarkable for people knowledge, well, keep up the good work fellows.


Also visit my blog; quantrim truth


lúc 09:24 16 tháng 5, 2013
Nặc danh nói...

Heya i am for the first time here. I found this board and I
find It really useful & it helped me out much.
I hope to give something back and help others like you helped
me.

Feel free to visit my site :: quantrim truth


lúc 16:56 16 tháng 5, 2013
Nặc danh nói...

Howdy would you mind letting me know which hosting company you're working with? I've
loaded your blog in 3 completely different internet browsers and
I must say this blog loads a lot faster then most.
Can you recommend a good internet hosting provider at a honest price?
Many thanks, I appreciate it!

Feel free to visit my web page :: vliegtickets


lúc 20:17 1 tháng 6, 2013
Nặc danh nói...

Hey there superb website! Does running a blog such as this take a lot of work?

I've virtually no knowledge of computer programming however I was hoping to start my own blog in the near future. Anyways, if you have any ideas or techniques for new blog owners please share. I understand this is off subject but I just had to ask. Many thanks!

my site - zubzero refrigerator Tampa (youtube.com)


lúc 07:53 19 tháng 6, 2013
Nặc danh nói...

Hay


lúc 10:58 4 tháng 12, 2013
Nặc danh nói...

WOW just what I was searching for. Came here by searching for bariatric

My web-site ... After Effects Templates


lúc 22:53 4 tháng 6, 2014
Nặc danh nói...

It's very simple to find out any topic on net as compared to
books, as I found this article at this website.

- cliquez ici
- cliquez ici
- cliquez ici
- cliquez ici
- cliquez ici
- cliquez ici

Feel free to surf to my site; cliquez ici (http://garmoshka.su/node/5581370)


lúc 01:22 5 tháng 6, 2014
Nặc danh nói...

Thank you for the good writeup. It in fact was a amusement account it.
Look advanced to more added agreeable from you! However, how could we communicate?


my web page; garcinia cambogia forum


lúc 11:37 10 tháng 6, 2014
Nặc danh nói...

Wonderful beat ! I would like to apprentice while you amend your site,
how can i subscribe for a blog web site? The account helped me a acceptable deal.

I had been tiny bit acquainted of this your broadcast provided bright clear concept

my weblog; research cheap earnings opportunity zoom


lúc 07:58 12 tháng 6, 2014
Nặc danh nói...

Usually make an effort to blend from dark to
lighting. Does the Pencil Portrait seem like the photograph?
Excellent proficiency is totally necessary. If it is dry and chilled
cold nevertheless it can depend for small.

My web-site - pencil portrait drawings (http://www.mtbrightonskipatrol.com/)


lúc 08:04 12 tháng 6, 2014
Nặc danh nói...

Firѕt-rate booking agencies will give you a grwat many options,
in the stryle օf live weddіng music yoou are lookinjg for not to mentiߋn budցet amօunts.

If you're in charge of hiring the entertaіnment for a wedding reception, then good live
wedԁing mսsic shouhld be your first consideration. Whether you ƅook a DJ or а live band, thhe type
of music they prߋvide will bbe օone of the mоst imρoгtant choices you make for the suϲcess of your sprcіal day.


lúc 01:07 22 tháng 6, 2014
Unknown nói...

Awesome article. Thanks for sharing lots of information. Its very helpful to me.
Mortgage Assistance


lúc 19:51 1 tháng 9, 2014
Unknown nói...

Very good this website will be famous amid all blogging and site-building viewers, due to it's nice post.Stop Foreclosure


lúc 17:41 3 tháng 9, 2014
Unknown nói...

Hepl !!!!
Dãy con
Cho một dãy số tự nhiên có không quá 1000 phần tử. Người ta loại bỏ khỏi dãy một số số và giữ nguyên thứ tự của các số còn lại sao cho dãy còn lại có nhiều phần tử nhất và là một dãy số chẵn liên tiếp hoặc dãy số lẻ liên tiếp.
Ví dụ: Dãy ban đầu là 3 8 2 3 1 4 5 6 2 8 3 10 1 7. Dãy còn lại có nhiều phần tử nhất gồm 5 phần tử là 2 4 6 8 10.
Input: Dữ liệu vào cho trong file văn bản DAYCON.IN bao gồm nhiều dãy số, mỗi dãy trên một dòng. Hai số liên tiếp trên một dòng cách nhau bằng các dấu cách.
Output: Kết quả đưa ra file văn bản có tên DAYCON.OUT. Mỗi dòng của file chứa 1 dãy con tìm được tương ứng với 1 dãy trong dữ liệu vào.
Ví dụ về file input và output:
Input
3 8 2 3 1 4 5 6 2 8 3 10 1 7
2 6 3 5 4 1 2
Output
2 4 6 8 10
3 5


lúc 18:47 28 tháng 10, 2014
Vì một thế giới ngày mai nói...

Đoạn có tổng dương dài nhất. Giúp mình giải bài này với
Cho dãy số nguyên gồm N phần tử a1, a2, ... , aN
(1 ≤ N ≤ 10000; - 10000 ≤ ai ≤ 10000).
Yêu cầu: Hãy tìm một dãy con gồm các phần tử liên tiếp nhau sao cho số lượng các phần tử là lớn nhất và tổng giá trị của các phần tử đó có giá trị dương.
Dữ liệu vào: Cho trong file văn bản TDDN.INP có cấu trúc như sau:
- Dòng 1: Ghi số nguyên dương N.
- Dòng 2: Ghi N số nguyên là giá trị các phần tử của dãy, các số được ghi cách nhau ít nhất một dấu cánh.
Dữ liệu ra: Ghi ra file văn bản TDDN.OUT theo cấu trúc:
- Dòng 1: Ghi 3 số d i j, trong đó d là số lượng các phần tử của dãy tìm được, i là chỉ số đầu của dãy, j là chỉ số cuối của dãy, các số được ghi cách nhau một dấu cách, nếu không có thì ghi số 0.
Ví dụ:
TDDN.INP TDDN.OUT
7
-2 1 -3 2 1 -3 0 4 2 5


lúc 10:05 14 tháng 3, 2015
Nặc danh nói...

Excuse me , people of any country that created this blog ?


lúc 01:29 12 tháng 2, 2016
Unknown nói...

Bài 1: Đội hình thi đấu bóng đá.( lưu thành file bai1.pas, tại thư mục bài làm)
Đội hình thi đấu của một đội bóng được thể hiện bởi ba số X, Y, Z trong đó X là số cầu thủ hậu vệ, Y là số cầu thủ tiền vệ, Z là số cầu thủ tiền đạo. Khi đã biết chính xác tên các cầu thủ cũng như chức năng của mỗi cầu thủ thì ta có thể biết được chính xác đội hình thi đấu của đội bóng đó. Viết chương trình thực hiện yêu cầu:
- Dữ liệu: file văn bản có tên BDA.INP có 11 dòng, mỗi dòng ghi tên một cầu thủ tiếp theo là dấu cách và chức năng của cầu thủ đó, chức năng là một trong các cặp kí tự: TD-Tiền đạo, TV- Tiền vệ, HV-Hậu vệ, TM-Thủ môn.
- Kết quả: ghi vào file văn bản có tên BDA.OUT theo cấu trúc:
• Dòng đầu ghi 3 số X, Y, Z mỗi số cách nhau một dấu cách
• Dòng thứ hai ghi tên các cầu thủ tiền đạo
• Dòng thứ ba ghi tên các cầu thủ tiền vệ
• Dòng thứ tư ghi tên các cầu thủ hậu vệ
• Dòng thứ năm ghi tên thủ môn.
BDA.INP BDA.OUT
Vinh-TD
Em-TV
Hoang-HV
Phuong-TV
Tai-TV
Thanh-HV
Son-TM
Thinh-HV
Phong-TV
Duc-HV
Tien-TD 4 4 2
Vinh – Tien
Em - Phuong - Tai - Phong
Hoang - Thanh - Thinh - Duc
Son
>>> CÁC BẠN GIÚP MÌNH VỚI


lúc 19:27 21 tháng 4, 2016
Unknown nói...

Viết chương trình nhập từ bàn phím 2 số xem có là bội số của 10 và 15 không
Viết sao các bạn help me


lúc 18:01 8 tháng 12, 2016
Chipcoi nói...

Giúp em giải bài sau:
Nguyên tố cùng nhau
Sau khi tham gia tổ chức lễ hội làng quê, Hiếu lại quay trở phòng nghiên cứu TAS và đã tìm thấy cho mình một lĩnh vực nghiên cứu mới, đó là kĩ thuật mật mã và an toàn thông tin.

Hiếu mong muốn sẽ xây dựng được một phương thức mã hoá thông tin mới có độ an toàn gần như tuyệt đối. Phương thức mã hoá này được phát triển dựa trên ý tưởng về tập hợp các số nguyên tố cùng nhau.
Bước đầu tiên của nghiên cứu là: “Từ một tập hợp các số nguyên dương S, Hiếu muốn chọn
ra một tập con S′ có số phần tử nhiều nhất sao cho hai số bất kì trong tập con S′ luôn nguyên tố cùng nhau

Bạn hãy lập trình giúp Hiếu giải quyết vấn đề đơn giản này để Hiếu tập trung làm những phần việc quan trọng hơn.
VD: n = 5
30
2
15
5
6
KQ:2


lúc 00:23 17 tháng 2, 2017
Unknown nói...

cho mình xin đoạn code này với


lúc 10:34 14 tháng 5, 2017
Unknown nói...

ai giải bài này hộ mình: viết chương trình nhập ngày tháng năm và cho biết ngày tháng năm đó là thứ mấy trong tuần


lúc 15:45 20 tháng 5, 2017
Natalie Lê nói...

CALIFORNIA FITNESS AND YOGA – THIÊN ĐƯỜNG SẮC ĐẸP! LẤY LẠI VÓC DÁNG THANH XUÂN VỚI HUẤN LUYỆN VIÊN CHUYÊN NGHIỆP! BẠN SẼ KHÔNG LO MẶC KHÔNG VỪA BỘ ĐỒ ÔM SEXY HAY MỠ THỪA PHÚNG PHÍNH! UY TÍN VÀ CHẤT LƯỢNG! CHỈ CẦN THAM GIA NGAY LỚP HỌC GIẢM CÂN NÀY! CHI TIẾT NHẤP VÀO LINK SAU ĐỂ THAM GIA: https://goo.gl/9J2zyh


lúc 05:31 13 tháng 6, 2017
Nặc danh nói...

email : 2512.minh@gmail.com
ai cần hỏi gì thì liên hệ mình


lúc 21:06 3 tháng 3, 2018
Nặc danh nói...

Các bạn có thể giúp mình suy nghĩ bài toán:
ngày tháng nắm - ngày tháng năm không
Để tính tiền cho khách ở khách sạn chẳng hạn
Mình có thể nhờ ad đăng lên thành 1 chủ đề mới không, để có nhiều người xem hơn.


lúc 14:45 24 tháng 3, 2018

Đăng nhận xét

Thành viên Blog

Tổng số lượt xem trang

Translate

Return to top of page Copyright © 2012 | Theme by Hack Tutors. Cung cấp bởi Blogger.
Các code pascal trong blog được sưu tầm, lựa chọn sao cho tối ưu nhất. Cảm ơn các tác giả đã viết thuật toán.