Cấu trúc tổng quát của một chương trình Pascal

Thứ năm - 23/07/2020 11:11
Một chương trình viết bang Pascal nếu đầy đủ thì gồm có các phần sau: Tên chương trình, Chương trình con, thân chương trình chính, kết thúc chương trình.
1. Một chương trình viết bang Pascal nếu đầy đủ thì gồm có các phần sau:
PROGRAM TÊN_CHƯƠNG_TRÌNH (Tiêu đề)
{Phần khai báo dữ liệu}
         LABEL...
         CONST...
         TYPE...
         VAR...
{Phần mô tả chương trình con}
         PROCEDURE...
        FUNCTION...
{Thân chương trình chính}
        BEGIN
{Các lệnh được viết ở đây}
        END
{Kết thúc chương trình}

2. VÍ DỤ
Program PT_bậc_2 ;
Var a, b, c, x1, x2, Delta : Real ;
     Procedure NHAP ;
Begin
        Writeln (Giải phương trình bậc 2 : ax2 + bx + c = 0’);
        Write (nhập a, b, c);
        Readln (a, b, c) ;
End ;
BEGIN
         Nhap ;
         If a = 0 then Writeln (a = 0 - không giải)
         Else {a <>0}
              Begin
                  Delta := sqr(b) - 4*a*c ;
                  If Delta < 0 then Writeln (‘vô nghiệm’)
                  Else
                      if Delta = 0 then
                         Begin
                         x1 := -b/2/a ;
                         Writein ('Nghiệm kép :’ , , x1);
                  end ;
         else {Delta >0}
                 Begin
                     x1 := (-b-sqrt(delta))/2/a ;
                     x2 := -b/a – x1 ;
                    Writeln (‘x1 =’ , x1 , ‘x2 =' , x2);
                  end ;
        end ;
END.

  Ý kiến bạn đọc

THÀNH VIÊN

Hãy đăng nhập thành viên để trải nghiệm đầy đủ các tiện ích trên site
Kênh Bóng đá trực tiếp hôm nay miễn phí
Kênh
90Phut TV full HD ⇔ 
Thabet ⇔ BET88 ⇔ 

78win ⇔ https://69vn.living/
23win ⇔ ABC88 ⇔ rikvip ⇔ bj88
link xem truc tiep bong da xoilac tv ⇔ okvip
xem bóng đá cà khịa tv trực tuyến hôm nay
MB66 ⇔ 23WIN ⇔ FB88 ⇔ Link MB66
bongvip ⇔ daga88 ⇔ BK8
789BET ⇔ bj88.insure ⇔ 32 win ⇔ Daga
nhà cái OK9 ⇔ QQ88 ⇔ hi88 ⇔ 
https://789betcom0.com/ ⇔ https://hi88.baby/
TK88 ⇔ f8bet ⇔ b52club
QQ88 ⇔ 32win ⇔ hi88 ⇔ go88
Bet88 ⇔ 78win ⇔ https://king88.movie/
Đăng nhập bk8 ⇔ 789Win ⇔ 
HOBA ⇔ WW88 ⇔ bj88 ⇔ uu88
F168 ⇔ bsports ⇔ QQ88 ⇔ BET88
MB66 ⇔ hi88 ⇔ 789bet ⇔ net88
alo789 ⇔ F168 ⇔ soc88 ⇔ Kubet
https://hi88.gives/ ⇔ https://789club63.com/
23WIN ⇔ hi88 ⇔ https://fun88.social/
https://iwinpro.live/ ⇔ https://23win.kim/
https://qq88.fun/ ⇔ https://j88ss.com
SV388 ⇔ HB88 ⇔ 
https://789winlem.com/ ⇔ https://uk88.rocks
32win ⇔ 69vn ⇔ UK88 ⇔ 98win
https://nau888.com ⇔ https://hello8880.net/
Debet ⇔ hi88 ⇔ hi88 ⇔ https://king88aff.com
NOHU ⇔ FB88 ⇔ 78win ⇔ kubet
F168 ⇔ https://dt68.cc/ ⇔ okking99
https://ww88.supply/ ⇔ https://f168.com.co/
Link vào NEW88 ⇔ https://789club24.com/
https://33win103.com/ ⇔ https://f168.group/
https://33win102.com/ ⇔ https://33win.clothing/
https://33win100.com/ ⇔ https://hi88.tours/
https://myeat.net/ ⇔ https://hi88.report/
https://58win1.info/ ⇔ https://hi88.garden/
https://fun88.place/  ⇔ https://hello880.net/
https://789club60.com/ ⇔ https://nau888.com/
https://f168.dad/ ⇔  ⇔ 99WIN
Vin777 ⇔ https://789club24.com/
33win ⇔ 8xbet ⇔ u888
PG88 ⇔ bet 88 ⇔ https://bj88com.feedback/
 ⇔ HB88 ⇔ 33win ⇔ HUBET
https://33win101.com/ ⇔ SHBET
https://nhacaiuytin.garden/ ⇔ 
https://33winpro.me/ ⇔ https://23win.build
https://789win.navy/ ⇔ New88 ⇔ BJ88
SV388 ⇔ Link MBlive
https://ww88info.com/ ⇔ https://new88838.com/
https://nhacaiuytin88.me/ ⇔ https://hb88ai.com/
https://hb88top.com/ ⇔ https://8day111.com/
https://8day112.com/https://789win.voyage/
https://u888.prof/ ⇔ https://69win.me/
https://abc8.house/ ⇔ https://789p.partners/
Bạn đã không sử dụng Site, Bấm vào đây để duy trì trạng thái đăng nhập. Thời gian chờ: 60 giây