Cú pháp lệnh Write và writeln *Chú ý: mình không hỏi ý nghĩa

0 bình luận về “Cú pháp lệnh Write và writeln *Chú ý: mình không hỏi ý nghĩa”

1. Program Test1;

   Uses crt;

   Begin;

   Clrscr;

   Writeln(‘ Chao may ban dg nhin cai nay’);

   End.

   Hết r,nhân tiện mình còn có trò rắn nx nè:

   Code:

   PROGRAM Flappy;
   USES CRT;
   VAR TREN,DUOI,L,tangXDT,tangYDT,tangXNV : BYTE ;
   XDT,YDT,XNV,F ,DIEM0,DIEM ,TGROI : INTEGER;
   TEN :STRING;
   _FILE :TEXT;

   procedure TAOCNV(cot,tren,duoi : integer ) ; {—HAM NAY DE TAO CHUONG NGAI VAT.— }

   var i: integer;

   begin
   for i := 1 to tren do
   begin
   gotoxy(cot,i) ;
   write(#25) ;
   end;

   for i:= 21-duoi to 21 do
   begin
   gotoxy(cot,i) ;
   write(#24);
   end;
   end;

   procedure VIETDT(x,y: integer); {—-HAM NAY DUNG DE TAO DOI TUONG.2 BIEN LA TOA DO CUA DOI TUONG—–}

   begin
   f := 20 ;
   gotoxy(x,y);
   write(#2);

   end;

   BEGIN
   CLRSCR;
   RANDOMIZE;
   TEXTBACKGROUND(25);
   TEXTCOLOR(5);

   XNV := 30 ;{DAY LA TOA DO x CUA NGAI VAT , NGAI VAT CHI CAN MOI X .}
   {—XDT VA YDT LA CAC TOA DO CUA DOI TUONG.—}
   XDT := 20;
   YDT := 10;

   GOTOXY(25,15);
   WRITELN(‘AN T DE DI CHUYEN NHAN VAT …’) ;

   DELAY(2000) ;

   VIETDT(XDT,YDT);

   {————-TRO CHOI .. START WRITE——————}

   DIEM := 0;

   TREN := 4 + RANDOM(6);
   DUOI := 4 + RANDOM(6) ;
   L := 0 ;
   tangXDT := 1; tangYDT := 2;{—–XDT = CONST , T/M XDT PHAI CO THE BANG XNV. }
   tangXNV := 8; TGROI := 120;
   WHILE L = 0 DO

   BEGIN

   {—–TAO CHUONG NGAI VAT—–}

   {—-TREN VA DUOI LA DO DAI CUA CAC COT NGAI VAT O TREN VA DUOI.}

   {TANG MUC DO KHO :}
   IF DIEM = 12 THEN BEGIN TGROI := 85; tangXNV := 6; {tangYDT := 2 ;} END;
   IF DIEM = 25 THEN BEGIN TGROI := 70; {tangYDT := 2 ;} tangXNV := 4; END;

   TAOCNV(XNV,TREN,DUOI);
   {——-TAO DOI TUONG ——–}

   {– Luc chua co kich thich— }
   WHILE NOT KEYPRESSED DO
   BEGIN
   DELAY(TGROI);
   CLRSCR;
   TAOCNV(XNV,TREN,DUOI);
   YDT := YDT +1 ;
   VIETDT(XDT,YDT) ;

   IF (YDT >= 21) OR (YDT = 1) THEN

   BEGIN
   GOTOXY(25,15) ;
   WRITE(‘GAMEOVER’) ;
   DELAY(1500);
   L := 1;
   BREAK;
   END ;

   END;

   IF L = 1 THEN BREAK ;

   {– Luc da co kich thich— }
   IF UPCASE(READKEY) = ‘T’ THEN
   BEGIN

   CLRSCR;
   XDT := XDT + tangXDT ;
   YDT := YDT – tangYDT ;
   TAOCNV(XNV,TREN,DUOI);
   VIETDT(XDT,YDT);

   END;
   {—-KET THUC PHAN CHINH—-/}
   {— XU LY——}
   IF (YDT >= 21) OR (YDT = 1) THEN
   BEGIN
   GOTOXY(25,15) ;
   WRITE(‘GAMEOVER’) ;
   DELAY(1500);
   L := 1;
   END ;
   IF (XDT = XNV) THEN
   BEGIN
   IF (YDT <= TREN+1) OR (YDT >= (21 – DUOI)) THEN
   BEGIN
   GOTOXY(25,15) ;
   WRITE(‘GAMEOVER’) ;
   DELAY(1500);
   L := 1;
   END
   ELSE
   BEGIN
   SOUND(25);
   SOUND(125);
   DIEM:= DIEM +1 ;
   XNV := XNV + tangXNV ;
   TREN := 5 + RANDOM(4);
   DUOI := 5 + RANDOM(5) ;
   END;
   END;
   {— DOI TUONG DA DI HET XDT > 74 >>> QUA MAN HINH ——}

   IF XDT > 74 THEN
   BEGIN
   CLRSCR;
   XDT := 5 ;
   XNV := 10;

   END;

   END;

   CLRSCR;
   GOTOXY(25,15);
   WRITE(‘DIEM CUA BAN LA: ‘,DIEM ,’ DIEM . ‘);
   GOTOXY(1,1);
   {CLRSCR;
   GOTOXY(25,15);
   WRITE(‘DIEM CUA BAN LA: ‘,DIEM);
   {—- TAO FILE VA KIEM TRA FILE LUU KET QUA . —-}
   DIEM0 := 0;
   ASSIGN(_FILE,’D:\TUAN_FLAPPY’);

   {$I-} {T?t vi?c ki?m tra Vào/Ra}
   RESET (_FILE) ;READLN;
   {$I+}; {M? vi?c ki?m tra Vào/Ra}

   IF IOResult <> 0 THEN {BI LOI >> FILE KHONG TON TAI.}
   BEGIN
   REWRITE(_FILE ) ;
   WRITELN(_FILE,0);
   WRITELN(_FILE,’NGUYEN DINH TUAN’);
   END
   ELSE
   BEGIN {BEGIN OF ELSE}
   IF NOT EOF(_FILE) THEN
   BEGIN
   READLN(_FILE,DIEM0);
   READLN(_FILE,TEN );
   END;
   IF DIEM > DIEM0 THEN
   BEGIN
   GOTOXY(25,16);
   WRITE(‘THANH TICH MOI: ‘,DIEM);
   GOTOXY(25,17);
   WRITE(‘THANH TICH CU LA: ‘,DIEM0,’ THUOC VE BAN ‘,TEN);
   ASSIGN(_FILE,’D:\TUAN_FALPPY’);
   REWRITE(_FILE);
   CLRSCR;
   GOTOXY(5,1);
   WRITE(‘TEN CUA BAN LA : ‘);
   READLN(TEN);
   WRITELN(_FILE,DIEM);
   WRITELN(_FILE,TEN);
   END
   ELSE
   BEGIN
   GOTOXY(25,17);
   WRITE(‘THANH TICH CAO NHAT LA: ‘,DIEM0,’ THUOC VE BAN ‘,TEN);
   END;
   DELAY(2000);
   END; {END OF ELSE}

   DELAY(3000);}
   READLN;
   END .

   Bình luận

2. Cú pháp viết lệnh:

   – write(‘<Nội dung’);

   – writeln(‘<Nội dung>’);

   – write(<Số>);

   – writeln(<Số>);

   Bình luận