Chuong 2 ngon ngu lap trinh pot

... CGAC2 CGAC3 CGACHi 0 1 2 3 4 320 x200 320 x200 320 x200 320 x200 640x200 EGA 3 EGALO EGAHi 0 1 640x200 640x350 IBM8514 6 IBM8514L O IBM8514Hi 0 1 640x480, 25 6 màu 1 024 x768, 25 6 ... circle( 320 ,24 0,i); setcolor(14); setbkcolor(white); for i:=80 to 160 do circle( 320 ,24 0,i); setcolor(white); for i:=160 to 20 0 do circle( 320 ,24 0,i); setcolo...

Ngày tải lên: 21/07/2014, 16:20

... hang' :20 ,'| Ngay nhap': 12, '| So luong': 12, '| Don gia': 12, '| Tien': 12 ); for i:= 1 to n do with bang[i] do Writeln(ten :20 , ngay: 12, sl: 12: 2, gia: 12: 2, ... ‘songuyen.dat’ ghi các số nguyên dương < ;20 0 mà chia hết cho 3. Chương trình Program Tao_tep_so_nguyen; uses crt; var i : integer; f : file of integer ; Begin...

Ngày tải lên: 21/07/2014, 16:20

... p:=(x+y+z) /2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); DT:=s; end; begin { than chuong trinh chinh } clrscr; a: =2; b:=3;c: =2; writeln(' dien tich tam giac 1 = ', DT(a,b,c):8 :2) ; write('Nhap ... ' Ban tính cho hình gì TG=1, CN =2, TR =3 '. Chương trình viết có sử dụng chương trình con. 5. Cho hai số nguyên x1 và x2, lập chương trình nhập x1 và x2 từ bàn...

Ngày tải lên: 21/07/2014, 16:20

... . } I:=1; WHILE I<LENGTH(P) -2 DO IF P[I]='.' THEN BEGIN P[I +2] :=UPCASE(P[I +2] ); I:=I+1; END ELSE I:=I+1; END; { Than chuong trinh chinh} BEGIN CLRSCR; TIEP:='C'; ... trữ các phần tử của mảng A kế tiếp nhau theo thứ tự sau: A[1,1], A[1 ,2] , A [2, 1], A [2, 2], A[3,1], A[3 ,2] Ví dụ 2: Một bảng có 8 dòng, 8 cột, các ô của bảng chứa cá...

Ngày tải lên: 21/07/2014, 16:20

... writeln('Phuong trinh co 2 nghiem thuc:'); X1:=(-b+sqrt(dta))/ (2* a); X2:=(-b-sqrt(dta))/ (2* a); writeln('X1=',X1:6 :2) ; writeln('X2=',X2:6 :2) ; end; if dta=0 ... writeln('Phuong trinh co nghiem kep X=',-b/ (2* a):6 :2) ; if dta<0 then begin writeln('Phuong trinh co 2 nghiem phuc:'); writeln('X1='...

Ngày tải lên: 21/07/2014, 16:20