Mấy bài toán về pascal

[aaabbbccc]

Mấy anh ơi, giải giùm em mấy bài toàn pascal này cái .Mới học trung học phổ thông mà cho khó quá, pó tay .
***Từ bài dễ đến khó
Bài 1: Viết nhập vào 3 cạnh của tam giác là a,b,c .Tìm diện yi1ch của tam giác theo cộng thức hơron

Bài 2: Viết chương trình nhập vào 3 số a,b,c. Kiểm tra 3 số đó có lập thành tam giác hay ko ...Nếu có cho tam giác đó là vuông,nhọn,cân hay tù

Bài 3: Nhập vào 1 năm dương lịch lịch, in ra 1 năm âm lịch

Bài 4: Viết chương trình bản cửu chương 2 --> 9

Bài 5: Viết chương trình ra màn hình
x x x x x
x x x x x
x x x x x
x x x x x
h: hành dọc
l: hàng ngang
Vời h và l là 2 số nhập từ bàn phím

Bài 6: Viết chương trình in ra
x
x x
x x x
x x x x
h: là hành dọc
Vời h là chiều cao nhập từ bàn phím

Bài 7: Viết chương trình in ra các số nguyên tố từ 2 --> a (với a là số nguyên dương nhập từ bàn phím)

bài 8: Viết chương trình nhập và số dương n, tìm các số nguyên tố nhỏ hơn hoặc bằng n

Bài 9: Sắp xếp a,b,c theo thứ tự giảm dần

Bài 10: Giải hệ phương trình
ax + bx =c
dx + ex =f
Với a,b,c,d,e,f nhập từ bàn phím

Bài 10: Viết chương trình nhập vào số nguyên dương n in ra n số nguyên tố đầu tiên

Bài 11: Viết chương trình tích 1 số nguyên dương n thành tích các thừa số

bài 12: Viết chương trình thực hiện sau
Đầu tiên nhập vào số nguyên dương
Yêu cầu: Tìm 1 cặp số được tạo ra bằng cách thay đổi vị trí của các chữ số nguyên vừa nhập sau đó cho hiệu của chúng có giá trị lớn nhất, hiển thị kết quả

[hoangdangquang]

em đang học trường nào?
Nói rỏ anh sẽ giúp cho

[aaabbbccc]

Anh ơi, có thể giúp em giải mấy bài toàn này được ko, em học trường Lê Hồng Phong ,TP.HCM

[NothingToLost]

@hoangdangquang: bài này mà dám bảo là chuyên tin ... pó tay

Bài 1: Viết nhập vào 3 cạnh của tam giác là a,b,c .Tìm diện yi1ch của tam giác theo cộng thức hơron

Code:

p=(a+b+c)/2;
S=sqrt(p*(p-a)*(p-b)*(p-c));

Bài 2: Viết chương trình nhập vào 3 số a,b,c. Kiểm tra 3 số đó có lập thành tam giác hay ko ...Nếu có cho tam giác đó là vuông,nhọn,cân hay tù

Để 3 số là độ dài của 3 cạnh của tam giác thì tổng 2 cạnh bất kì luôn lớn hơn độ dài cạnh còn lại.
Còn để tam giác đó là tam giác vuông thì dùng Pitago

Bài 3: Nhập vào 1 năm dương lịch lịch, in ra 1 năm âm lịch

Bạn phải nói cụ thể chứ nói thế này thì ai hiểu được, nhập vào 1 năm dương lịch là nhập cái gì ???

Bài 4: Viết chương trình bản cửu chương 2 --> 9

Code:

for i:=1 to 9 do
begin
  for j:=1 to 9 do write(i,'x',j,'=',i*j:2);writeln;
end;

Bài 5: Viết chương trình ra màn hình
x x x x x
x x x x x
x x x x x
x x x x x
h: hành dọc
l: hàng ngang
Vời h và l là 2 số nhập từ bàn phím

Code:

for i:=1 to l do
begin
  for j:=1 to h do write('x':2);writeln;
end;

Bài 6: Viết chương trình in ra
x
x x
x x x
x x x x
h: là hành dọc
Vời h là chiều cao nhập từ bàn phím

Code:

for i:=1 to h do
begin
  for j:=1 to i do write('x':2);writeln;
end;

-thân-

[NothingToLost]

Bài 7: Viết chương trình in ra các số nguyên tố từ 2 --> a (với a là số nguyên dương nhập từ bàn phím)

Code:

for i:=2 to a do
begin
for j:=2 to i-1 do
  if i mod j=0 then goto l1;
  write(i:4);
l1:
end;

Bài 8 và bài 10 thứ 2 tương tự bài 7

Bài 10: Giải hệ phương trình
ax + bx =c
dx + ex =f
Với a,b,c,d,e,f nhập từ bàn phím

Code:

x1:=(a+b)/c;
x2:=(d+e)/f;
if x1=x2 then write(x1);

-Bài 11 tui hôk hiểu rõ đầu bài: yêu cầu phân tích thành thừa số thì có điều kiện gì ko , nếu ko thì làm sao mà làm được. Vd như n=1*1*1*1*1*.....

-Bài 12 thì sắp xếp các chữ số trong số đó từ cao đến thấp để thành số max và xếp các chữ số đó từ thấp đến cao để thành số min, ta lấy max trừ đi min là được

-thân-

[aaabbbccc]

Chà, anh giỏi thiệt, em cảm ơn anh nha, hí hí

[grenadier1991]

Oạch, mấy cái này là bài dành cho Beginner mà, nếu bạn aaabbbccc học chuyên thì còn phải học nữa
<Qoute>
Bài 3: Nhập vào 1 năm dương lịch lịch, in ra 1 năm âm lịch
</Qoute>
Cái này ko khó:
n:=n mod 60;
Vì âm lịch chỉ có 60 năm.
can:=n mod 10;
chi:=n mod 12;
can chi chính là hàng can, hàng chi trong AL.
Bạn lấy 1 năm làm mốc, tính các năm khác như năm làm mốc này thui.

[bluesky1612]

Chà, mấy bài này hồi mới học cũng khó khăn lắm đấy, nhưng bây giờ thì....tốt rồi.
Bài 9: dùng bubble sort
for i:=1 to n do
for j:= 1 to n do
if a[i]>a[j] then
begin
tam:= a[j];
a[j]:= a[i]; Đổi chỗ a[i] a[j] nếu a[i]>a[j]
a[i]:= tam;
end;

[xbach17]

co' ai làm giúp em bài này ko???
***
X ***
________
***
***
***
________
*****
Đây là 1 phép nhân của 2 số có 3 chữ số.Có tổng cộng là 20 ẩn(*) mà từ 0->9 có 10 số.Vậy điền vào mấy dấu * trên các số sao cho mỗi chữ số chỉ dc xuất hiện 2 lần.Em đang học lớp 8 ở trường Nguyễn Du Q1.Mấy anh pro chỉ gà này với!!!

[xbach17]

Em xếp phép nhân hơi ẩu mong mấy anh hiểu dùm.Miển là mấy anh hiểu đề là ok