- 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.


Mai Hương Trà 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ố.


16:38 Ngày 06 tháng 10 năm 2012
Nặc danh nói...

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


09:49 Ngày 02 tháng 01 năm 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


04:13 Ngày 14 tháng 02 năm 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


07:26 Ngày 08 tháng 03 năm 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


22:22 Ngày 15 tháng 03 năm 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


15:15 Ngày 28 tháng 03 năm 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


15:51 Ngày 29 tháng 03 năm 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


18:10 Ngày 02 tháng 04 năm 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


17:20 Ngày 08 tháng 04 năm 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


12:32 Ngày 09 tháng 04 năm 2013
Nặc danh nói...

I couldn't resist commenting. Very well written!

Feel free to surf to my page calories burned calculator


16:19 Ngày 05 tháng 05 năm 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


00:13 Ngày 11 tháng 05 năm 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


08:01 Ngày 16 tháng 05 năm 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


09:24 Ngày 16 tháng 05 năm 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


16:56 Ngày 16 tháng 05 năm 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


20:17 Ngày 01 tháng 06 năm 2013
Nặc danh nói...

Attractive portion of content. I just stumbled upon your web site and in accession capital to assert that I acquire actually enjoyed account your
weblog posts. Anyway I'll be subscribing on your feeds and even I fulfillment you get entry to constantly fast.

http://www.taxattorneytaxrelief.com/content/what-it-really-convenient-plans-through-how-buy-cheap-twitter-followers
http://galbraithsociety.ca/node/41227
http://209-20-69-40.slicehost.net/node/7455
http://www.calysis.be/node/3148
http://www.mscentre.org/node/125232
http://uni0n.net/node/37573
http://kerdst.kerbabel.net/?q=node/174106
http://swapp247.com/content/versatile-how-buy-cheap-twitter-followers-help-and-advice-news
http://uni0n.net/node/37573
http://www.belleside.ch/content/convenient-recommendations-how-buy-cheap-twitter-followers-change

my webpage ... lawaii


11:48 Ngày 04 tháng 06 năm 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)


07:53 Ngày 19 tháng 06 năm 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


22:53 Ngày 04 tháng 06 năm 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)


01:22 Ngày 05 tháng 06 năm 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


11:37 Ngày 10 tháng 06 năm 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


07:58 Ngày 12 tháng 06 năm 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/)


08:04 Ngày 12 tháng 06 năm 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.


01:07 Ngày 22 tháng 06 năm 2014
John son nói...

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


19:51 Ngày 01 tháng 09 năm 2014
umair butt nói...

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


17:41 Ngày 03 tháng 09 năm 2014
Herry Karry nói...

The successful Massachusetts personal injury lawyers at the Massachusetts Personal Injury Law Center are highly experienced, aggressive and actively seek the long-term well being of their clients.
Car Accident Attorney


12:35 Ngày 22 tháng 09 năm 2014
Nhật Thành 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


18:47 Ngày 28 tháng 10 năm 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


10:05 Ngày 14 tháng 03 năm 2015
THÀNH HOÀNG nói...

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


01:29 Ngày 12 tháng 02 năm 2016
Minh Duong Nguyen 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


19:27 Ngày 21 tháng 04 năm 2016

Đă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.