Cùng luyện lập trình Pascal.

Cùng luyện lập trình Pascal
Mọi người cùng làm nhá. Mấy bài đơn giản thôi!
1/ Nhập một số tự nhiên n. Viết thực hiện in ra màn hình dãy theo quy luật sau.
Với n=10 ta có hình sau:
1 232 34543 4567654 567898765 67890109876 7890123210987 890123454321098 90123456765432109 0123456789876543210
 
 
2/ Cho tọa độ 3 điểm A(xA, yA), B(xB, yB), C(xC, yC). - Kiểm tra 3 điểm A, B, C có thẳng hàng không? - Tính chu vi, diện tích. - Tìm tọa độ: trực tâm, trọng tâm, tâm đường tròn ngoại tiếp, tâm đường tròn nội tiếp.
 
 
3/ Số thân thiện là số mà khi đảo ngược lại thì ta đựơc một số mới nguyên tố cùng nhau với số đã cho.
Vd: 14 và 41.        23 và 32
Hãy nhập vào 2 số nguyên a,b (10≤a≤b≤30000). Hãy đếm xem trong khoảng từ a đến b (kể cả a và b) có bao nhiêu số thân thiện.
 
4/ Có một bức tường cao M met, dài N mét được chia thành lưới ô vuông 1x1. Bức tường được dán giấy nhưng qua nhiều năm sử dụng nên nhiều phần bị hư. Người ta quyết định dán lại những ô đó. Do chiều hoa văn của giấy nên chỉ có thể cắt theo chiều thẳng đứng. Để đỡ tốn công, nếu có một vùng K ô liên tiếp theo chiều thẳng đứng cùng bị hư thì chỉ cần cắt 1 mảnh giấy dài K ô và dán lên. Chỉ đựơc dán vùng bị hỏng, không đựơc dán vào vùng không hỏng.
Yêu cầu: tính số lần cắt ít nhất
Dữ liệu vào:   dòng thứ nhất là 2 số M,N.
                        ma trận MxN gồm các số 1 và 0 trong đó 0 là ô hỏng, 1 là ô không hỏng
Dữ liệu ra số lần cắt ít nhất
VD:    input             6 12
                                011101101110
                                010100101010
                                010100100011
                                010111100010
                                011101101010
                                 110101101110
               output: 11
-------------------------------------------------------------------------------------------------------------------
5/ Dãy Fibo có dạng: 1,1,2,3,5,8......
Viết chương trình kiểm tra một số có phải là số Fibo hay không
---------------------------------------------------------------------------------------------------------------------
6/ Viết chương trình đưa ra dãy nhị phân có độ dài n
7/ Viết chương trình sắp xếp một dãy cho trước và mỗi số chỉ xuất hiện một lần
8/ Phân tích số tự nhiên n thành tổng các số tự nhiên
9/ Phân tích số tự nhiên n thành tổng các số Fibo
10/Phân tích số tự nhiên n thành tổng các số nguyên tố
      
tuthangirl   

11:13:10 Ngày 13-01-2009

Trả lời: Cùng luyện lập trình Pascal
| Bài này được `.KeMatLanh.` cho `.1.` điểm
bài 10
var n:integer;
function ngto(m:integer):boolean;
var t:boolean;d,i;integer;
begin
  if m:=1 then t:=false;
d:=0;
for i:=2 to m div 2 do
  if m mod i:=0 then d:=d+1;
if d=0 then t:=true
else t:=false;
ngto:=t;
end;
begin
  writeln(`n=`);
readln(n);
if n=1 then write(`khong the phan tich`);
i:=2;
while (i<=n)  do
   begin if ngto(i) then begin writeln(i);n:=n-i;
                                                   if ngto(n) then begin writeln(n);i:=n end;end;
              i:=i+1;end;
readln;
end.