Tuấn tin_tai liệu bồi dưỡng học sinh gioi tin tin hoc

WebNHD
Thứ tư, 01.02.2012
Cập nhật lần cuối:28.12.2011 - 15:25:59 GMT+7
Xem nhanh:
TH11 - Bài tập thực hành 1 - Ngày 28.12.2011
TH11 - Mảng một chiều
TH10 - Bài tập tạo bản đồ tư duy bằng Mindjet 9
TH10 - Hướng dẫn sử dụng Minjet MindManager 9
Hướng dẫn trôn câu trắc nghiệm
Download bài tập và phần mềm tạo câu hỏi trắc nghiệm
PP - Hướng dẫn làm Đề mẫu 1 - Cập nhật ngày 13/12/2011
PP - Đề mẫu 2 - Cập nhật ngày 13/12/2011
PP - Đề mẫu 1 - Cập nhật ngày 13/12/2011
TH11 - Đề thi HK1 - Năm học 2010-2011
Home
Tin học 10
Tin học 11
Tin học 12
Tin học VP
AUTOCAD
Download
Giới thiệu
Liên hệ
Liên kết web
Tìm kiếm
Sơ đồ web
Webmail-NHD
Tài liệu
Trắc nghiệm Online
Video Clip
Download
Tài liệu
Trắc nghiệm Online
Video Clip
Download
Tài liệu
Trắc nghiệm Online
Video Clip
Download
Tài liệu
Trắc nghiệm Online
Video Clip
Download
Tài liệu
Trắc nghiệm Online
Video Clip
Download
Tin học 10
Tin học 11
Tin học 12
Nghề THVP
Nghề ACad
Powerpoint
Phần mềm
Skip to content
ĐANG XEM MỤC: Tin học 11
Bài tập Pascal
TH11 - Bài tập & đáp án Pascal - Phần 7

TH11 - Bài tập & đáp án Pascal - Phần 7
Ngày gửi bài: Thứ tư, 16.11.2011 - Bạn là ngưới thứ 585 xem bài viết này







Bài tập 1: Viết chương trình Pascal Cho biết ngày hôm nay sẽ tính được ngày mai
view source
print?
01.Program Ngay_mai_la_ngay_may;
02.Var
03.   Nam:1900..2000;
04.   Thang:1..12;
05.   Ngay:1..31;
06.Begin
07.   Writeln(`CHO BIET NGAY HOM NAY SE TINH DUOC NGAY MAI`);
08.   Writeln(`-------------------------------------------`);
09.   Repeat
10.      Write(`-Cho biet ngay ( so 0 de ngung): `);
11.      Readln(Ngay);
12.      If Ngay = 0 Then
13.         Exit;
14.      Write(`-Cho biet thang: `);
15.      Readln(Thang);
16.      Write(`-Cho biet nam: `);
17.      Readln(Nam);
18.      Case Thang Of
19.         1,3,5,7,8,10,12 : If Ngay < 31 Then
20.                              Ngay:=Ngay+1
21.                           Else
22.                              If Thang = 12 Then
23.                                 Begin
24.                                    Nam:=Nam+1;
25.                                    Thang:=1;
26.                                 End
27.                               Else
28.                                 Begin
29.                                    Thang:=Thang+1;
30.                                    Ngay:=1;
31.                                 End;
32.         4,6,9,11   :If Ngay < 30 Then
33.                        Ngay:=Ngay+1
34.                     Else
35.                        Begin
36.                           Thang:=Thang+1;
37.                           Ngay:=1;
38.                        End;
39.         2: If (Ngay < 28) Or ((Ngay=28) And (Nam Mod 4 = 0)) then
40.               Ngay:=Ngay+1
41.            Else
42.               Begin
43.                  Thang:=Thang+1;
44.                  Ngay:=1;
45.               End;
46.      End;
47.   Writeln;
48.   Writeln(`+Ngay mai la ngay: `,Ngay:2,` / `,Thang:2,` / `,Nam:4);
49.   Writeln;
50.   Until Ngay=0;
51.End.

Bài tập 2: Viết chương trình Pascal  Giai phương trình trùng phương
view source
print?
01.Program Phuong_trinh_trung_phuong;
02.Var
03.   n,k:0..4;
04.   y:Array[1..2] Of Real;
05.   a,b,c,delta:Real;
06.Begin
07.   Writeln(`GIAI PHUONG TRINH TRUNG PHUONG`);
08.   Writeln(`------------------------------`);
09.   Repeat
10.      Write(`-Nhap he so a: `);
11.      Readln(a);
12.   Until a <> 0;
13.   Write(`-Nhap he so b: `);
14.   Readln(b);
15.   Write(`-Nhap he so c: `);
16.   Readln(c);
17.   Delta:=b*b-4