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 ⇔ 32win
Thabet ⇔ BET88 ⇔ bk8 ⇔ bet88

78win ⇔ Kubet ⇔ 88CLB ⇔ shbet
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 ⇔ hi88
789BET ⇔ tylekeo ⇔ 32 win ⇔ Daga
nhà cái OK9 ⇔ QQ88 ⇔ hi88 ⇔ b52 club
https://789betcom0.com/ ⇔ https://hi88.baby/
TK88 ⇔ rwin ⇔ b52club ⇔ 99win
QQ88 ⇔ 32win ⇔ 8kbet ⇔ go88
88bet ⇔ 78win ⇔ j88 ⇔ GK88
Bet88 ⇔ 789Win ⇔ J88
HOBA ⇔ WW88 ⇔ bj88 ⇔ uu88
F168 ⇔ bet88 ⇔ QQ88 ⇔ BET88
MB66 ⇔ hi88 ⇔ 789bet ⇔ net88
keonhacai ⇔ soc88 ⇔ https://j88t3.com/
https://hi88.gives/ ⇔ 23win ⇔ 98win
23WIN ⇔ hi88 ⇔ https://fun88.social/
https://iwinpro.live/ ⇔ https://23win.kim/
https://qq88.fun/ ⇔ https://j88ss.com
SV388 ⇔ HB88 ⇔ keo nha cai ⇔ u88
https://789winlem.com/ ⇔ https://uk88.rocks
32win ⇔ Vuabet88 ⇔ 88AA ⇔ 98win
https://nau888.com ⇔ https://hello8880.net/
u888 ⇔ hi88 ⇔ hi88 ⇔ https://king88aff.com
NOHU ⇔ FB88 ⇔ 78win ⇔ kubet
https://u888lm.com/ ⇔ https://dt68.cc/ ⇔ bj88
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://debetso.com/ ⇔ https://hello880.net/
https://789club60.com/ ⇔ https://nau888.com/
https://f168.dad/ ⇔ dt68 ⇔ 99WIN
Vin777 ⇔ https://789club24.com/
33win ⇔ 8xbet ⇔ u888 ⇔ New88
PG88 ⇔ KUBET ⇔ 99OK ⇔ 68WIN
ww88 ⇔ HB88 ⇔ 33win ⇔ HUBET
https://33win101.com/ ⇔ SHBET
https://nhacaiuytin.garden/ ⇔ https://98win.supply/
https://33winpro.me/ ⇔ https://23win.build
https://kuwinvef.me/ ⇔ https://bongvip.space/
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/
https://goal123.directory/  ⇔ https://bk8co.net/
https://23wincom.info ⇔ https://j88com.limited
https://j88uk.com ⇔ https://f168.movie/
https://8kbetttt.com/ ⇔ https://f168.law/
https://8kbet25.com ⇔ https://j88cem.com/
https://qq88pro.vip/ ⇔ https://ww88i.club/
New88 ⇔ https://8kbet25.com ⇔ HUBET
kubet ⇔ https://luongsontv72.com/
https://qq88.gives/ ⇔ 789BET ⇔ ww88
https://88vvcom.net/ ⇔ 789BET
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