Nhằm đáp ứng nhu cầu hỏi đáp về Pascal của anh em, đây sẽ là khu vực hỏi đáp, giải các bài tập về Pascal. Trước khi đặt câu hỏi, bạn cần lưu ý những điều sau:
- Nội dung câu hỏi phải liên quan tới Pascal.
- Nội dung câu hỏi phải liên quan tới Pascal.
- Đây là khu vực giải các bài tập cơ bản, các bài tập nâng cao (đệ quy quay lui, quy hoạch động...) không được phép post tại khu vực này (sẽ có mục giải bài tập Pascal nâng cao riêng).
- Nếu được, hãy ân vào biểu tượng
ở phần bên phải của trang web để ủng hộ website phát triển (nếu chưa ấn).
- Nếu được, hãy ân vào biểu tượng
ở phần bên phải của trang web để ủng hộ website phát triển (nếu chưa ấn).
Nhãn:
Bài tập Pascal
Previous Article
Giả thiết N là số nguyên dương. Số nguyên M là tổng của N với các chữ số của nó. N được gọi là số nguồn của M.
Ví dụ: N=245, khi đó M=245+2+4+5=256, như vậy nguồn của 256 là 245.
Cho số nguyên M( M không quá 100 chứ số) hãy tìm nguồn nhỏ nhất của nó. Nếu M không có nguồn thì đưa ra số 0.
17:52 Ngày 07 tháng 9 năm 2012
Bài tập này hay quá có ai giải được chưa cho mình học hỏi với?
09:28 Ngày 05 tháng 10 năm 2012
VCT phân tích 1 số ra thừa số nguyên tố theo mẫu. ví dụ:
324|2
162|2
81|3
9|3
3|3
1
Vậy 324=2*2*3*3*3*3
09:29 Ngày 05 tháng 10 năm 2012
Cho số tự nhiên n (n<1000)
a. Số n có bao nhiêu chữ số?
b. Tìm tổng các chữ số của n.
c. Tìm chữ số cuối và chữ số đầu của n
16:12 Ngày 06 tháng 10 năm 2012
Nhập vào số tự nhiên N >5. Biểu diễn N thành tổng 3 số nguyên tố.
16:13 Ngày 06 tháng 10 năm 2012
25. Trong phần mềm soạn thảo văn bản Microsoft Word có một chức năng rất hay là có thể biến đổi một chuổi các ký tự thành chữ đầu câu hoa, toàn chữ thường, toàn chữ hoa, chữ đầu từ hoa, và chữ đầu từ thường các chữ còn lại hoa. Xem bàng bên. Muốn làm được 1 trong các việc trên ta chọn văn bản vào menu Fomat và Change Case rồi nháy chuột vào một trong năm lựa chọn. Em hãy viết chương trình Pascal nhập vào 1 xâu rồi xuất hiện một menu lựa chọn các công việc từ một đến 6 theo thứ tự (lựa chọn 6 là thoát không làm gì cả).
16:14 Ngày 06 tháng 10 năm 2012
Độ bền của một số nguyên không âm n được định nghĩa như sau:
- Nếu N có một chữ số thì độ bền của n bằng 0.
- Nếu N có từ 2 chữ số trở lên thì độ bền của n bằng độ bền của số nguyên là tích các chữ số của n cộng 1.
Viết chương trình nhập số n (0 ≤ n ≤ 1000) từ bàn phím, tìm số bé hơn n có độ bền lớn nhất.
Ví dụ: Với n = 100 thì in ra kết quả: So be hon 100 co do ben lon nhat la: 77
• Giải thích:
Doben(77)=Doben(49)+1=Doben(36)+1+1=Doben(18)+1+1+1
= Doben(8)+1+1+1+1=0+1+1+1+1=4
16:18 Ngày 06 tháng 10 năm 2012
Viết chương trình để khi nhập một dãy n số tự nhiên a1, a2, ... an (với n nhập từ bàn phím) thì sẽ in ra dãy n số tự nhiên b1, b2, ... , bn ; trong đó bk là ra số lượng các số đứng trước số ak và nhỏ hơn ak .
Ví dụ: với n =7 và các số đã nhập là: 6 ; 1 ; 9 ; 5 ; 7 ; 4 ; 8
thì in ra kết quả là: 0 ; 0 ; 2 ; 1 ; 3 ; 1 ; 5
16:19 Ngày 06 tháng 10 năm 2012
[CẦN GIÚP] Viết chương trình nhập vào một dãy số nguyên khác 0(nhập số 0 để kết thúc dãy số). Đếm xem dãy số có bao nhiêu số chẵn, bao nhiêu số lẻ.
16:28 Ngày 08 tháng 10 năm 2012
ai giup minh vs, tim cac so co 3 chu so sao cho chu so hang tram+ chu so hang dv = 2* hang chuc, in moi dong 5 so. hu hu ko biet in kieu ji
13:30 Ngày 10 tháng 10 năm 2012
ban viet laij cho ro 1 chut
21:17 Ngày 10 tháng 10 năm 2012
var n,i,demchan,demle:integer;
a:array[1..100] of integer;
begin
write('nhap n='); readln(n);
for i:=1 to n do
repeat
begin
write('a[',,']='); readln(a[i]);
if a[i]<0 then write('nhap laiso duong');
end;
until a[i]>0;
for i:= 1 to n do
if a[i] mod 2 =0 then demchan:=demchan+1
else demle:=demle+1;
write('co demchan,'so chan;',demle,' so le');
readln
end.
21:30 Ngày 10 tháng 10 năm 2012
Nhập vào hai số tự nhiên n và m. Hãy in ra chu kỳ của phân số n/m. Ví dụ: 1/7 có chu kỳ là (142857), các phân số hữu hạn thì chu kỳ bằng 0
21:31 Ngày 10 tháng 10 năm 2012
Viết chương trình nhập một dãy gồm n số tự nhiên (n nhập từ bàn phím), sắp xếp chúng theo thứ tự tăng dần và in ra màn hình:
a) Dãy đã sắp.
b) Các khoảng cách của hai số liền kề (hiệu của hai số đó)
Ví dụ: Với n = 5 và dãy các số nhập vào là: 15, 26, 11, 27, 8
thì in ra kết quả: Dãy đã sắp xếp là: 8, 11, 15, 26, 27
Các khoảng cách là: 3, 4, 11, 1
21:33 Ngày 10 tháng 10 năm 2012
::=aa
|bb
|c< palindrome>c
....
|zz
::=<a|b|c|...|y|z
a, Các dấu hiệu kết thúc và dấu hiệu chưa kết thúc
b,Giải thích sự hình thành của từ popapop
c vẽ cây minh họa
ai giải thik dùm mình cái này vs, mình k hỉu j hết ak
23:07 Ngày 10 tháng 10 năm 2012
hjx bạn nào giải thik dùm vs nhé gần thi rùi k pít j hết ak
23:13 Ngày 10 tháng 10 năm 2012
giúp minh zs :
viết chương trình nhập vào số N. Hãy cho biết N có phải là bội của 10 và tính N mũ 6
13:13 Ngày 11 tháng 10 năm 2012
bai tam ga ga vay cung di hoi dung la 1 lu ngu
14:05 Ngày 12 tháng 10 năm 2012
bai tap qua ga
14:06 Ngày 12 tháng 10 năm 2012
bai tam ga ga vay cung di hoi dung la 1 lu ngu
14:06 Ngày 12 tháng 10 năm 2012
Quản trị blog này đâu chẳng thấy, các lập ra rồi bỏ chạy hả, cho blog này nhé.
09:53 Ngày 19 tháng 10 năm 2012
Bài 1: Viết 3 thuật toán cho phương pháp duyệt cây nhị phân theo 3 phương pháp:
a, Tiền thứ tự
b, Trung thứ tự
c, Hậu thứ tự
Bài 2: Viết 2 thuật toán tìm cây khung nhỏ nhất và từ thuật toán viết thành chương trình( Prim và Kruskal)
Bài 3:viết chương trình tính e^x = 1 + x/1! + x^2/2! + ....... + x^n/n!
Với x và n cho trước,hãy viết chương trình để tính giá trị theo phương pháp:
a, Tính số hạng từng phần rồi cộng lại
b, Dưạ vào số hạng trước để tính số hạng sau
giúp mình với gấp lăm!!!!!!!!!!!!!!!
13:52 Ngày 09 tháng 11 năm 2012
Cho mình hỏi bài này, gấp lắm ạ!!!
-Viết chương trình nhập vào điểm Toán, Lý, Hóa
-Tính điểm trung bình 3 môn với Toán*2, Lý*3
-Trung bình=(Toán*2+Lý*3+Hóa)/6
+ Nếu trung bình<5: xuất ra màn hình kết quả: Yếu
+ Nếu trung bình=5: xuất ra màn hình kết quả: TB
+ Nếu trung bình>5 và trung bình<8: xuất ra màn hình kết quả: Khá
+ Nếu trung bình>=8: xuất ra màn hình kết quả: Giỏi
20:43 Ngày 09 tháng 11 năm 2012
admim giúp mình với
sử dụng cây nhị phân để tạo từ điển Anh- Viêt
- tra từ
- thêm từ
- xóa từ
các từ phải được lưu vào tệp để khi tắt chương trình k bị mất
giúp mình với
17:23 Ngày 16 tháng 11 năm 2012
Giúp mình với: viết chương trình nhập vào ngày tháng năm , máy sẽ thông báo là ngày thứ mấy!! _____
20:30 Ngày 25 tháng 11 năm 2012
nhanh lên nha mấy bạn mình đang gấp !!!!!!!!!
20:31 Ngày 25 tháng 11 năm 2012
giúp mình bài này với
Viết chương trình nhập từ bàn phím nhiều số bất kỳ. Kết thúc khi nhập số 0. Đếm xem trong đó bao nhiu số chẵn và bao nhiu số lẻ.Liệt kê các số chẵn các số lẻ đó ra.
Chỉ được sử dụng lệnh while do thui!!! mình tks trước nha.
21:29 Ngày 25 tháng 11 năm 2012
huong dan giup minh bai nay
Hãy nhập 3 xâu kí tự bất kì . Tìm các kí tự số rồi chuyển sang 1 xâu
khác và cộng từng số trong xâu vừa đươc chuyển sang với từng số trong xâu 3
21:52 Ngày 25 tháng 11 năm 2012
1/ Viết chương trình nhập vào một chuỗi kí tự đếm bao nhiêu kí tự hoa, bao nhiêu kí tự thường, bao nhiêu số.
2/ Viết chương trình nhập vào một chuỗi kí tự đếm xem chuỗi có bao nhiêu từ.
3/ Viết chương trình nhập vào một chuỗi kí tự và đảo ngược kí tự đó( không phải khi in ra mới đảo ngược).
12:14 Ngày 26 tháng 11 năm 2012
bài 1: viết chương trình nhập 3 số nguyên từ bàn phím rồi tìm UCLN của chúng
bài 2: Viết chương trình nhập n số nguyên tùy ý từ bàn phím
+In ra màn hình thứ tự các số vừa nhập
+Nhập thêm số mới rồi sắp xếp số đó vào dãy theo thứ tự tăng dần. Đưa ra vị trí đứng của số mới.
CÁC AE LÀM LUÔN HỘ TÔI VỚI. TÔI CẦN GẤP
CẢM ƠN MỌI NGƯỜI NHIỀU
06:08 Ngày 28 tháng 11 năm 2012
giúp mình với : ( thứ 5 kiểm tra rồi )
bài 1 : nhập vào các số nguyên không quá 100 kí tự . Xóa tất cả các kí tự B và b trong dãy kí tự vừa nhập
bài 2 : nhập vào các số nguyên không quá 100 kí tự .
- xác định số nhỏ hơn 20chia hết cho 6
- xác định dãy số mới gấp đôi số cũ .
Thanks
22:49 Ngày 03 tháng 12 năm 2012
cho mot day so x1,x2......xn cho biet vi tri nho nhat trong day gia tri do = ? va co bao nhieu gia tri nhu vay dung (while hoac for)+ if
09:49 Ngày 05 tháng 12 năm 2012
Gửi bạn nam tran. Mình xin giải bài 3(tính e^x) như sau:
Var x,n,i,j,z,s: integer;
tong: real;
Begin
Writeln('nhap x va n');
readln(x,n);
z := 1;
tong := 1;
s := 1;
For i:=1 To n Do
Begin
z := z*x;
For j:=1 To i Do
s := s*j;
tong := tong+z/s;
s := 1;
End;
writeln('e^',x,'=',tong:10:3);
readln
End.
18:45 Ngày 14 tháng 12 năm 2012
Gửi bạn Nguyen Son. Mình xin được giải bài 1(tìm UCLN 3 SỐ) như sau:
Var i,a,b,c:integer;
Begin
Writeln('nhap lan luot 3 so');
Readln(a,b,c);
For i:=a downto 1 do
If a mod i=0 and b mod i=0 and c mod i=0 then
Begin
Writeln('UCLN la ',i);
Break;
End;
Readln
End.
18:53 Ngày 14 tháng 12 năm 2012
hoc nhieu dot nhieu
09:02 Ngày 16 tháng 12 năm 2012
Viết chương trình nhập từ bàn phím một số nguyên dương n và thực hiện:
a)in số nguyên tố nhỏ nhất ko bé hơn n
b)in số nguyên tố là hai sô nguyên lẻ liên tiếp nhỏ hơn hoặc bàng n
11:51 Ngày 27 tháng 12 năm 2012
Viết chương trình giải phương trình bậc nhất hai ẩn (và 3 ẩn).
14:52 Ngày 04 tháng 1 năm 2013
ai làm giúp mình bài này với, đang kiểm tra khó quá
viết lập trình pascal nhập vào ngày tháng năm in ra màn hình số ngày còn lại trong tháng đó
13:56 Ngày 09 tháng 1 năm 2013
ai làm giúp mình bài này với, đang kiểm tra khó quá
viết lập trình pascal nhập vào ngày tháng năm in ra màn hình số ngày còn lại trong tháng đó
14:02 Ngày 09 tháng 1 năm 2013
ai giúp mình bài toán này với..! mình chỉ mới tập tành học thôi..!
Đề : nhập vào một số nguyên dương bất kì, hãy kiểm tra xem đó có phải là số nguyên tố hay ko..và tính tổng từ của các số nguyên tố từ 2 đến số nguyên tố n..và đếm xem có bao nhiêu số nguyên tố từ 2 đến số nguyên tố n..!
anh chị nào bik thì giải dùm em với..! mà chỉ được dùng vòng lặp for thôi nha ..! tks..
11:07 Ngày 10 tháng 1 năm 2013
Giúp mình bài tập này nhé: Nhập vào từ bàn phím số nguyên dương N, nếu người dùng nhập sai thì nhập lại cho đến khi nhập đúng yêu cầu.
Tìm số nguyên dương k nhỏ nhất thỏa mãn điều kieenj3^K >N. Xuất ra màn hình k và giá trị của 3^k. (lưu ý điều kiện nguyên dương không được giới hạn bằng kiểu dữ liệu).
Bài 2: Nhập vào một mảng 2 chiều số thực a=(aij) với kích thước mảng là MxN (điều kiện M và N nguyên dương được nhập từ bàn phím).
Hãy tìm phần tử lớn nhất của mảng và xuất ra màn hình vị trí và giá trị của phần tử lớn nhất. Hãy tìm và nếu thấy thì xóa phần tử có giá trị k, với k là số thực được nhập từ bàn phím. Xuất ra màn hình mảng sau khi đã xóa phần tử có giá trị k
17:13 Ngày 10 tháng 1 năm 2013
Giải hộ mình bài này nhé: Em hãy phân tích một số bất kì thành tổng các số nguyên tố khác nhau.
20:50 Ngày 15 tháng 1 năm 2013
Em hỏi bài này: nhập vào họ tên, in ra tên, họ và tên đệm thì làm tn ak?
23:33 Ngày 18 tháng 1 năm 2013
Làm gấp hộ e với.
Cho mảng a1,a2..an. Đưa ra màn hình các số xuất hiện trong dãy.Dùng tệp tin
VD:
IN: DNUM.INP
5
1 2 5 4 2
Out: DNUM.OUT
2 2
14:24 Ngày 25 tháng 1 năm 2013
moi nguoi giup minh giai bai tap nay voi,cam on nhieu nhe:"nhap vao tu ban phim nhiet do 30 ngay trong thang. cho biet nhung thang nao co nhiet do max?nhung thang nao co nhiet do min?"
14:42 Ngày 29 tháng 1 năm 2013
moi nguoi giup minh giai bai tap nay voi,cam on nhieu nhe:"nhap vao tu ban phim nhiet do 30 ngay trong thang. cho biet nhung thang nao co nhiet do max?nhung thang nao co nhiet do min?"
14:44 Ngày 29 tháng 1 năm 2013
Giải giúp tớ vs : Hãy nhập vào 1 số N sao cho khi xuất ra các chữ số N bị đảo ngược
18:21 Ngày 30 tháng 1 năm 2013
Cho 2 số m,n. Hãy tìm k sao cho n! chia hết cho m^k nhưng n! ko chia hết cho m^k+1. Làm gấp hộ e với ad ơi.
15:33 Ngày 04 tháng 2 năm 2013
Viết chương trình hàm tìm bội số chung nhỏ nhất của 4 số x, y, z, t.
các bạn giúp mình với!
14:27 Ngày 17 tháng 2 năm 2013
có ai biết lập chương trình pascal 8 hiện ra bảng cửu chương không?giúp mình với!!!!!!!!
20:59 Ngày 22 tháng 2 năm 2013
Giúp giải dùm e bài tập này các a chị oi
Đề bài: Số thân thiện
VD: 23 đảo ngược thành 32. Hai số này co UCLN là 1. Những số như thế được gọi số thân thiện.
Yêu cầu: Viết chương trình tìm tất cả các số thân thiện trong [a,b] với (10 <= a <= b <= 30000);
23:32 Ngày 22 tháng 2 năm 2013
Viết dùm e hàm đảo số nhớ là dùng hàm nge a chị
vd: nhập vào 29 in ra 92
23:37 Ngày 22 tháng 2 năm 2013
cac ban giai minh bai nay voi .Viet chuong trinh nhap so chinh phuong n=a^2
20:18 Ngày 23 tháng 2 năm 2013
anh chị ơi có thể giúp em 3 bài tập pascal này không ạ:
Câu 1:
viết chương trình nhập vào số nguyên dương N . Hãy cho biết N có bao nhiêu chỉ số.
Câu 2:
nhập vào số nguyên dương N giả sử N đang ở hệ cơ số 10 , chuyển N sang hệ số 16 và suốt ra màn hình.
Câu 3:
viết chương trình nhập vào số nguyên A,B trong đó A là tứ số ,B là mẫu số hãy rút gọn phân số A/b
Em chân thành cảm ơn nhiều !!!
19:30 Ngày 11 tháng 3 năm 2013
giúp em bài này!! [Mã Giả]
Kiểm tra số n nguyên dương có phải là số Palindrome hay không?
VD: 131, 12521 là số Palindrome. có thể nói là số gánh đó. viết xuôi ngược đều là 1 sô!!
23:53 Ngày 11 tháng 3 năm 2013
giúp em bài này!! [Mã Giả]
Kiểm tra số n nguyên dương có phải là số Palindrome hay không?
VD: 131, 12521 là số Palindrome. có thể nói là số gánh đó. viết xuôi ngược đều là 1 sô!!
23:54 Ngày 11 tháng 3 năm 2013
giup e bai nay voi
su dung ct con viet ct nhap tu ban phim 2 so thuc a va b.Xuat ra man hinh gia tri tb cua a va b
19:07 Ngày 03 tháng 4 năm 2013
giup e voi
19:11 Ngày 03 tháng 4 năm 2013
viet thuat toan pascal tim so nut la tren cay nhị phân cho trước bằng pp liệt kê! giúp tớ vs
18:28 Ngày 11 tháng 4 năm 2013
Viết chương trình nhập vào N số nguyên, kiểm tra và in ra màn hình số nguyên tố
ai giúp mik vs
07:49 Ngày 22 tháng 4 năm 2013
Viết chương trình nhập vào N số nguyên, kiểm tra và in ra màn hình số nguyên tố
ai giúp mik vs
07:53 Ngày 22 tháng 4 năm 2013
Có ai biết cách tính lim bằng pascal không vậy! Cái này không đơn giản đâu nha!
15:21 Ngày 02 tháng 5 năm 2013
Ai biết làm bài : Xác định vị trí đầu điên của xâu1 trong xâu2 (tìm tứ trái sang phải)
13:56 Ngày 04 tháng 5 năm 2013
khoong hhieu
17:59 Ngày 06 tháng 5 năm 2013
ví dụ xâu 1 có 789, trong xâu 2 có 0123789. Thì vị trí đầu tiên trong xâu 1 là 7 và ta thấy vị trí đầu tiên của xâu 1 trong xâu 2 là 7. Vậy đó
10:27 Ngày 07 tháng 5 năm 2013
nhớ không dùng các hàm của string !! Help me
11:24 Ngày 11 tháng 5 năm 2013
viết hàm tìm số nhỏ nhat trong 3 số a, b, c
10:29 Ngày 16 tháng 5 năm 2013
ad và các a chị giúp e giải bài này với.
cho nhập vào 3 số a,b,c nguyên từ bàn phím,xét xem 2 số đó có phải là 3 cạnh của tam giác hay ko?
nếu đúng đó là 3 cạnh của tam giác thì đó là tam giác gì
(đều,vuông,cân)?
bài e làm thế này.mà chạy sai.ai giúp e sửa lại với ạ
program giai_tam_giac;
var a,b,c:integer;
BEGIN
write('nhap so a=');readln(a);
write('nhap so b=')readln(b);
write('nhap so c=');readln(c);
if ((a>0) and (b>0) and (c>0) and (a+b>c) and (b+c>a) and (a+c>b)) then
Begin
write ('a,b,c thoa man là 1 tam giac');
if (a=b) and (a=c) and (b=c) then
write('deu');
else
if (a=b) and (a=c) then
write ('can');
else
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then
write('vuong');
else
write('thuong');
end;
20:33 Ngày 23 tháng 5 năm 2013
Đăng nhận xét