bai tap pascal kho
Giáo trình lý thuật bài tập pascal Chương I
Ngày tải lên :
17/08/2012, 09:04
... Write('-Nhap mot so thuc = ');
Readln(so_thuc);
Writln;
GIAO TRINH LY THUYET VA BAI TAP TURBO PASCAL- CHUONG 1
Dang Thanh Tuan(15/3/2004)
**********0101**********
Program PTB2;
Var ... Writeln('De ');
Writeln('Cu ');
Readln
End.
*********0108*********
Program Tam_giac _Pascal;
Begin
Writeln(' 1');
Writeln(' 1 1');
Writeln(' 1 2 1'); ... ',x2:6:2);
End;
readln
End.
**********0102**********
Program Ao_thu;
Begin
Writeln(' BAI THO AO THU');
Writeln('Ao thu lanh leo nuoc trong veo');
Writeln('Mot...
- 4
- 1.1K
- 15
Bài tập pascal
Ngày tải lên :
17/08/2012, 10:48
... chạy chương trình trên.
4. Lưu chương trình vào đĩa với tên BAI1 .PAS.
5. Thoát khỏi Pascal.
6. Khởi động lại Turbo Pascal.
7. Mở file BAI1 .PAS.
8. Chèn thêm vào dòng: CLRSCR; vào sau dòng BEGIN
9. ... Writeln(N,’ khong phai la so nguyen to’)
Else
Begin
{Đếm số ước số}
d:=0;
For i:=2 To N div 2 Do
If N MOD i=0 Then d:=d+1;
{Kiểm tra}
If d=0 Then Writeln(N,’ la so nguyen to’)
Else Writeln(N,’ khong ... tục.
6.2. Câu lệnh có cấu trúc
9
Giáo trình bài tập Pascal
S =
p p a p b p c
( )( )( )− − −
với p =
1
2
(a+b+c)
Bài tập 2.6: Viết chương trình tính kho ng cách từ một điểm I(x
i
,y
i
) đến đường...
- 144
- 2K
- 19
Giáo trình lý thuyết và bài tập Pascal
Ngày tải lên :
31/08/2012, 09:33
... GIAO TRINH LY THUYET VA BAI TAP TURBO PASCAL- CHUONG 1
Dang Thanh Tuan(15/3/2004)
**********0101**********
Program PTB2;
Var
a,b,c:Integer;
... ',x2:6:2);
End;
readln
End.
**********0102**********
Program Ao_thu;
Begin
Writeln(' BAI THO AO THU');
Writeln('Ao thu lanh leo nuoc trong veo');
Writeln('Mot chiec...
- 4
- 1.7K
- 19
Bài tập CSDL khoa HTTT
Ngày tải lên :
31/08/2012, 16:13
... viên chủ
nhiệm.
KHOA (MAKHOA
, TENKHOA, NGTLAP, TRGKHOA)
Tân từ: mỗi khoa cần lưu trữ mã khoa, tên khoa, ngày thành lập khoa và trưởng khoa (cũng là một
giáo viên thuộc khoa).
MONHOC (MAMH
, ... tính Diễn giải Kiểu dữ liệu
MAKHOA Mã khoa (khóa chính) varchar(4)
TENKHOA Tên khoa varchar(40)
NGTLAP Ngày thành lập khoa smalldatetime
KHOA
TRGKHOA Trưởng khoa (mã giáo viên) char(4)
MAMH ...
TV01 Tap 100 giay mong quyen Trung Quoc 2,500
TV02 Tap 200 giay mong quyen Trung Quoc 4,500
TV03 Tap 100 giay tot quyen Viet Nam 3,000
TV04 Tap 200 giay tot quyen Viet Nam 5,500
TV05 Tap 100...
- 13
- 1.4K
- 10
Bài tập thuế - không lời giải
Ngày tải lên :
31/10/2012, 10:30
... 08/09/2010
Khoa Thị trường Chứng kho n
BÀI TẬP VỀ BÀI TẬP VỀ
THUẾ XUẤT NHẬP KHẨUTHUẾ XUẤT NHẬP KHẨU
GV. TRIỆU KIM LANH
1
ĐẠI HỌC NGÂN HÀNG TPHCM
KHOA THỊ TRƯỜNG CHỨNG KHO N
BÀI 1, BÀI 1, tính tiền ... Click ]
GV. Triệu Kim Lanh 08/09/2010
Khoa Thị trường Chứng kho n
BÀI 38: TÌNH HÌNH TIÊU THỤ HÀNG HOÁBÀI 38: TÌNH HÌNH TIÊU THỤ HÀNG HOÁ
Sản xuất & nhập kho: 100.000 thành phẩm.
Xuất bán trong ... nguyên vật liệu tồn kho và sản rằng cuối kỳ còn các nguyên vật liệu tồn kho và sản
phẩm dở dang trong quá trình sản xuất.phẩm dở dang trong quá trình sản xuất.
Sản xuất và nhập kho: 5.000 cây...
- 18
- 942
- 3
Bài tập Pascal
Ngày tải lên :
13/11/2012, 12:03
... dữ liệu trừu tượng nào đó do
sinh viên tự khai báo}
DataPtr = ^Node;
Node = Record
Data : Hoso;
Next : DataPtr;
End;
VAR
NhanVien,Tam:DataPtr;
a) Viết các thủ tục để tạo một danh sách liên kết ... bao
nhiêu kí tự (không kể kí tự xuống dòng và kí tự kho ng trắng), bao nhiêu từ
(Một từ là một chuỗi con khác rỗng giới hạn giữa hai kí tự kho ng trắng)
22. Viết chương trình cho phép tạo một ... nhập vào từ bàn phím một chuỗi. Ta định nghĩa một
từ là một dãy liên tục các kí tự khác kho ng trắng, kho ng trắng là dấu tách từ
duy nhất. Chương trình có nhiệm vụ thông báo ra màn hình các...
- 8
- 1.1K
- 14
Bài tập chứng khoán
Ngày tải lên :
07/04/2013, 07:40
... trường, tỷ lệ sinh lời
của chứng kho n A là 30%, chứng kho n B là 25%. Trong trạng thái bình thường của thị trường, tỷ lệ sinh lời của chứng
kho n A là 15%, chứng kho n B là 20%. Trong trạng thái ... kho n B là 20%. Trong trạng thái suy thoái của thị trường, tỷ lệ sinh lời của chứng kho n A là -5%,
chứng kho n B là -10%.
Anh (chị) hãy xác định:
a, Tỷ lệ sinh lời kỳ vọng của danh mục đầu ...
40%.
Yêu cầu:
a, Xác định mức sinh lời và rủi ro dự kiến của mỗi cổ phiếu
b, Biết mức sinh lời của kho n đầu tư không rủi ro là 10%. Xác định phần bù rủi ro cho mỗi cổ phiếu.
8. Giả sử chỉ số VN...
- 3
- 2.2K
- 17
Bài tập về không gian văn hoá Vùng văn hoá Việt Bắc
Ngày tải lên :
19/04/2013, 20:31
... hoá Việt Bắc và văn hoá cả nước.
MỤC LỤC
ĐẠI HỌC QUỐC GIA HÀ NỘI 1
TRƯỜNG ĐẠI HỌC KHOA HỌC XÃ HỘI VÀ NHÂN VĂN 1
KHOA VĂN HỌC 1
9
Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368
Dù ... Email : lienhe@docs.vn Tel : 0918.775.368
ĐẠI HỌC QUỐC GIA HÀ NỘI
TRƯỜNG ĐẠI HỌC KHOA HỌC XÃ HỘI VÀ NHÂN VĂN
KHOA VĂN HỌC
Bài tập về không gian văn hoá
Vùng văn hoá Việt Bắc
Bộ môn : Cơ sở ... sức phong phú
hấp dẫn.
Bên cạnh những điệu hát dân ca hết sức độc đáo, cư dân Việt Bắc
còn có một kho tàng truyện cổ tích, truyền thuyết và đặc biệt là những câu
chuyện mang tính chất thần thoại...
- 10
- 11.1K
- 177
Bài tập cuối khóa môn quản trị kinh doanh
Ngày tải lên :
22/04/2013, 21:34
... Hồng Kông, Trung Quốc, Nhật Bản, Singapore, và Philippines. Đỉnh cao
phát triển của công ty là kho ng cuối thập niên 1920 đầu 1930; khi ấy công ty có
trên 40 con tàu cùng sà lan chạy trên tất ... giới để nhằm quảng bá về Khách sạn.
Dự kiến vốn đầu tư vào việc kinh doanh khách sạn TITANIC HOTEL kho ng 100
triệu USD.
Titanic Hotel chắc chắn sẽ là một khách sạn sang trọng mang nhiều nét độc
đáo, ... thành đạt trong ngành đường thủy. Bắt đầu bằng việc thuê lại 3
chiếc tàu: Phi Phụng, Phi Long và Kho i Tử Long của một hãng tàu Pháp chở thư
và hành khách đường sông Bắc kỳ, có tên là A. R. Marty,...
- 16
- 1.1K
- 2
Các bài tập Pascal
Ngày tải lên :
15/06/2013, 01:26
... Write(i,'x',j:2,'=',i*j:2,' ');Writeln;
End;
Readln
END.
Program BaiToanGaCho;
Var sg,sc: Byte;
BEGIN
Writeln(&apos ;Bai toan co Ga + Cho = 36 con. Chan ga + Chan
Cho = 100 chan');
... < a*a + b*b then Writeln('Day la tam giac
Nhon ');
End;
End
Else Writeln('Khong la ba canh cua tam giac ');
Readln
END.
Program GiaiHePT;
Var a1,b1,c1,a2,b2,c2: Integer;
... C[i,j]:=A[i,j]+B[i,j];
Writeln('Ma tran C co cac phan tu la:');
If vt=0 then Writeln('Khong co phan tu nao tron
chuc ');
Readln
END.
Program SapXepTangGiam;
Var M: Array[1 100]...
- 20
- 1.5K
- 16
Bài tập PasCal
Ngày tải lên :
21/06/2013, 01:26
... 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('Cac phan tu cua tap hop la:');
For ch:='a' to 'z' do
If ch in tap then Write(ch,' ');
33
Bài tập ngôn ngữ lập trình PasCal Biên soạn: Hoàng Đức ... Close(f);
End;
Function Card(S: Tap) : byte;
Var i,n: byte;
Begin
n:=0;
For i:=0 to 99 do If i in S then Inc(n);
Card:=n;
End;
BEGIN
Nhap;
Clrscr;
Write(&apos ;Tap S co ',Card(S),'...
- 55
- 913
- 20