BAI TAP PASCAL CO LOI GIAI

... phan tu khoi tap hop *) Uses Crt; Var tap: set of char; ch: char; BEGIN tap: =[]; Writeln('Nhap cac phan tu cho mot tap hop cac ki tu: '); Repeat ch:=ReadKey; tap: =tap+ [ch]; Writeln(ch); ... Writeln('Cac phan tu con lai cua tap hop la:'); For ch:='a' to 'z' do If ch in tap then Write(ch,' '); Readln; END . BÀI TẬP CH...

Ngày tải lên: 15/04/2014, 15:14

... bàn phím . (* loai bo cac phan tu khoi tap hop *) Uses Crt; Var tap: set of char; ch: char; BEGIN tap: =[]; Writeln('Nhap cac phan tu cho mot tap hop cac ki tu: '); Repeat BÀI ... integer; BEGIN ClrScr; Writeln('Ghi tu file bai3 .dat sang bai3 n.dat:'); Writeln; Assign(f1,&apos ;bai3 .dat'); Reset(f1); Assign(f2,&apos ;bai3 n.dat'); Rewrite(f...

Ngày tải lên: 11/07/2014, 14:00

... sản phẩm là mối liên hệ nghịch và rất chặt chẽ. Bài 11: Cho số liệu thống kê về GO của một ngành giai đoạn Năm GO (tỷ đồng) t ty 2 t 2004 100 1 100 1 2005 120 2 240 4 2006 135 3 405 9 2007 150 ... thế tuyến tính biểu diễn sự phát triển về GO 2. Tính tốc độ tăng hoặc giảm bình quần về GO trong giai đoạn trên 3. Dự đoán GO của ngành vào năm 2010 dựa vào 3 phương án sau: - Dự đoán dựa vào l...

Ngày tải lên: 25/03/2013, 11:11

... 0 Khoa Vật Lí, trờng ĐH Khoa Học, ĐH Thái Nguyên cos2 2121 22 CCCCC EEEEE += Ta cũng có: 23,0 7.9.2 1079 .2 coscos 2 222222 222 = + = + =+= NCMC MNNCMC NCMCNCMCMN )m/V(10.87,8 )10.9.(10.86,8.4 10.8 )CM(4 q E 4 2212 8 2 0 1 C 1 === ... 2 4 R q = . Điện tích của vòng dây là: cos .2 dhr dSdq == với là góc giữa mặt vòng dây và trục của nó. Dễ thấy: R dhq...

Ngày tải lên: 10/10/2013, 18:35