V
V
vo_danh0110
Bài này đơn giản là cho mỗi máy là một đỉnh,mỗi kênh là một cạnh,sau đó cho những kênh đã có có trọng số là 0,còn lại là 1,tìm cây khung nhỏ nhất
T
thaotrinh0908
Lỗi chia cho 0
Nếu muốn thôi cái lỗi đó thì không dùng crt nữa. Hay lên mạng tải một bản pascal mới, nhẹ mà.
Hồi đó mình cũng bị vậy đó, tức muốn xù đầu luôn, hihi!
Nếu muốn thôi cái lỗi đó thì không dùng crt nữa. Hay lên mạng tải một bản pascal mới, nhẹ mà.
Hồi đó mình cũng bị vậy đó, tức muốn xù đầu luôn, hihi!
S
sanhobien_23
các bạn ơi giúp t bài này
Hãy xây dựng một cơ sở dữ liệu về quản lí mượn trả sách của thư viện. Cần fải lưu trữ những thông tin gì? Những công việc fải làm để đáp ứng yêu cầu quản lí của nhười thủ thư:-SS
Hãy xây dựng một cơ sở dữ liệu về quản lí mượn trả sách của thư viện. Cần fải lưu trữ những thông tin gì? Những công việc fải làm để đáp ứng yêu cầu quản lí của nhười thủ thư:-SS
H
hoangha8394
các bạn ơi giúp t bài này
Hãy xây dựng một cơ sở dữ liệu về quản lí mượn trả sách của thư viện. Cần fải lưu trữ những thông tin gì? Những công việc fải làm để đáp ứng yêu cầu quản lí của nhười thủ thư:-SS
Sax!Đây là công viêc của Acess oy`.chứ có phải lập trình Pascal đâu!!!!!!!!!!
Cái này hỏi sai box òy
M
milk_cat_24
D
duynhan1
Sử dụng For:
Var i:integer;
Begin
For i:=98 downto 2 do Write(i:5); {danh ra 5 ky tu de in so i}
End.
Sử dụng While:
Var i:integer;
Begin
i:=98
While i>= 2 do
Begin
Write(i:5); {danh ra 5 ky tu de in so i}
i:=i-1;
End;
End.
Sử dụng Repeat :
Var i:integer;
Begin
i:=98;
Repeat
Write(i:5); {danh ra 5 ky tu de in so i}
i:=i-1;
Until i<2;
End.
End.
N
nhandi
hic
giup em bai nay voi
hay dien cac dau (+) hoac (-) vao cac vi tri thich hop cua day so giam dan tu 9 den 1 de thu duoc 1 day so co tong la 100
in ra ma hinh toan bo cac dap an
1 ket qua la
98 - 7 + 6 + 5 +4 - 3 -2 -1=100
co tong cong 18 phuong an
bai nay lay trong sach ra
nen ko bit lam
giup em bai nay voi
hay dien cac dau (+) hoac (-) vao cac vi tri thich hop cua day so giam dan tu 9 den 1 de thu duoc 1 day so co tong la 100
in ra ma hinh toan bo cac dap an
1 ket qua la
98 - 7 + 6 + 5 +4 - 3 -2 -1=100
co tong cong 18 phuong an
bai nay lay trong sach ra
nen ko bit lam
N
nhandi
bai nay cung tuong doi de
em lam the nay co gi thi sua nha moi nguoi
program bai2;
var a,k,P:integer;
begin
writeln('nhap a va k');readln(a,k);
P:=trunc(SQRT(a))+k;
writeln('so thu k sau dau phay cua can A la',P);
readln;
end.
G
ghitn95
K
kanghasoo
làm cách nào để cop paste nội dung trong pascal sang word hay j j đấy để tại thành 1 file có thể gử được qua mail ko ạ. Cô giáo em bảo nộp bài qua mail mà chẳng lẽ lại ngồi gõ lại ra word rồi gửi
T
thanks_to_you
Tệp nguồn pascal cũng là 1 tệp văn bản nên bạn cứ gõ bt, sau khi lưu dưới dạng *.pas, bạn vào thư mục lưu và Open with NotePad , nếu ko thì đổi sang dạng *.txt kích đúp cho nhanh.
, nếu ko thì đổi sang dạng *.txt kích đúp cho nhanh.
D
duynhana1
Tệp nguồn pascal cũng là 1 tệp văn bản nên bạn cứ gõ bt, sau khi lưu dưới dạng *.pas, bạn vào thư mục lưu và Open with NotePad
Làm như thế này mỗi lần mở mệt lắm
Nhấp chuột phải vào file.pas chọn Properties Trong thẻ Gerneral chọn Change bên phải chữ Openwith rồi chọn Note pad. Như vậy là từ nay có thể mở bình thường.
Nộp bài thì bạn gởi file. pas cho cô giáo là được rồi
H
hoangthingoclien
ai lam ho minh bai nay voi:
lập trình đềm vần 'eo' trong bài thơ câu cá mùa thu (thu điếu) của Nguyễn Khuyến
lập trình đềm vần 'eo' trong bài thơ câu cá mùa thu (thu điếu) của Nguyễn Khuyến
Last edited by a moderator:
H
hoangha8394
Cái đề bài này lạ nhỉ.yêu cầu là viết ra màn hình số vần eo ah`.Nếu thế bạn tự đếm xong trong chương trình cần mỗi lệnh viết//Write('so luong = '{số vần eo bạn đếm đc});
)
Last edited by a moderator:
H
hoangha8394
Trong pascal có hàm random(k) giúp bạn sinh ra 1 số ngẫu nhiên trong khoảng 0->k-1.Trước khi gọi bạn chỉ cần khai báo randomize đầu chương trình là đc
H
hoangha8394
Đây là 1 đồ thị cơ bản đối với các bạn học chyên còn đối với các bạn khác thì mình không chắc đã làm đc đâu
)
Last edited by a moderator:
T
thuyhoa17
Viết dùm tớ câu lệnh While - do cho bài này ạ, chỉ cần câu lệnh While - do thôi, ko cần cả chương trình ^^
[TEX] {e(n)} {=} {1} {+} \frac{1}{1!} {+} \frac{1}{2!} {+} {...} {+} \frac{1}{n!}{1} {+} {...} [/TEX] cho đến khi [TEX] \frac{1}{n!} {<} {2}{.}{10^{-6}} [/TEX]
[TEX] {e(n)} {=} {1} {+} \frac{1}{1!} {+} \frac{1}{2!} {+} {...} {+} \frac{1}{n!}{1} {+} {...} [/TEX] cho đến khi [TEX] \frac{1}{n!} {<} {2}{.}{10^{-6}} [/TEX]
D
diamond_jelly95
T
thuyhoa17
cậu có thể giải thích giúp tớ tại sao lại viết điều kiện như thế ở sau while ko?
Tớ thắc mắc cái đó. ^^