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 ⇔ shbet
Thabet ⇔ BET88 ⇔ Đá gà trực tiếp

WW88 ⇔ https://69vn.living/
Link MB66 ⇔ ABC88 ⇔ rikvip
link xem truc tiep bong da xoilac tv ⇔ okvip
xem bóng đá cà khịa tv trực tuyến hôm nay
MB66 ⇔ BET88 ⇔ bongvip ⇔ DAGA
qh88 đăng nhập ⇔ THABET
789BET ⇔ bj88.insure
ok9 ⇔ QQ88 ⇔ hoba ⇔ SHBET
https://789betcom0.com/ ⇔ https://hi88.baby/
https://f168.blue/ ⇔ f8bet ⇔ b52club
QQ88 ⇔ BET88 ⇔ hi88 ⇔ go88
Bet88 ⇔ s666 ⇔ https://king88.movie/
8kbet ⇔ https://qq88.casino/
Đăng nhập bk8 ⇔ FB88 ⇔ suncity
https://789winlem.com/ ⇔ V9BET
F168 ⇔ Bsport ⇔ QQ88
123b ⇔ hi88 ⇔ 789bet ⇔ net88
 ⇔ F168 ⇔ soc88 ⇔ Kubet
https://hi88.gives/ ⇔ https://789club63.com/
23WIN ⇔ hi88 ⇔ https://fun88.social/
https://iwinpro.live/ ⇔ 89bet day
https://qq88.fun/ ⇔ https://68ww88.com
SV388 ⇔ HB88 ⇔ https://kubetvn88.com/
https://bongvip.space/ ⇔ https://uk88.rocks
78win ⇔ 
https://kuwin.red/ ⇔ https://hello8880.net/
 ⇔ hi88 ⇔ hi88 ⇔ https://king88aff.com
E2BET ⇔ 23WIN ⇔ https://www.mtc.uk.com/
F168 ⇔ https://dt68.cc/ ⇔ okking99
https://mb66az.com/ ⇔ https://f168.com.co/
Link vào NEW88 ⇔ https://789club24.com/
https://33win103.com/ ⇔ https://f168.group/
https://33win102.com/ ⇔ https://188betgg.vip/
https://33win100.com/ ⇔ https://hi88.tours/
https://ww88.supply/ ⇔ https://hi88.report/
https://58win1.info/ ⇔ Hi88
 ⇔ https://hello880.net/
https://789club60.com/ ⇔ https://ww88c.co/
https://f168.dad/ ⇔ 68gamebai ⇔ SUNCITY
Vin777 ⇔ https://789club24.com/
https://shbetb0.com/ ⇔ 8xbet
PG88 ⇔ 
 ⇔ 
HB88
https://33win101.com/ ⇔ SHBET
https://nhacaiuytin.garden/ ⇔ https://new88839.com/
https://ww88info.com/ ⇔ https://789betvic.com/
https://789betvia.com/ ⇔ https://789betvib.com/
https://789betvid.com/ ⇔ https://789betvie.com/
https://789betvif.com/ ⇔ https://789betvir.com/
https://new8822.com/ ⇔ https://new88838.com/
https://new88833.com/ ⇔ https://new88820.com/
https://33winpro.me/ ⇔ https://23win.build
https://789win.navy/ ⇔ New88 ⇔ BJ88
SV388 ⇔ Link MBlive
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