- 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;
       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
                            sn:= 28;
        Songay:= sn;
     Writeln('Nhap ngay thang nam');Readln(d,m,y);
     Writeln('Nhap N');Readln(N);
     While d > Songay(m,y) Do
         d:= d - Songay(m,y);
         m:= m+1;
         IF m > 12 Then
              m:= 1;
              y:= y + 1;
Writeln('Ket qua ',d,'/',m,'/',y);

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 6 tháng 10, 2012
Nặc danh nói...

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

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

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

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

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

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

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

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

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

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

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

my webpage pracownia reklamy lubin

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

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

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

Feel free to visit my site :: quantrim truth

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

20:17 1 tháng 6, 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.


my webpage ... lawaii

11:48 4 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)

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


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

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)

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

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

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/)

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.

01:07 22 tháng 6, 2014
John son nói...

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

19:51 1 tháng 9, 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 3 tháng 9, 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 22 tháng 9, 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:
3 8 2 3 1 4 5 6 2 8 3 10 1 7
2 6 3 5 4 1 2
2 4 6 8 10
3 5

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ụ:
-2 1 -3 2 1 -3 0 4 2 5

10:05 14 tháng 3, 2015

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

01:29 12 tháng 2, 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.
Tien-TD 4 4 2
Vinh – Tien
Em - Phuong - Tai - Phong
Hoang - Thanh - Thinh - Duc

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

18:01 8 tháng 12, 2016
Unknown 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

00:23 17 tháng 2, 2017

Đăng nhận xét

Thành viên Blog

Tổng số lượt xem trang


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.