THử sức pascal cùng a4k49 ( 20 kí tự)

[sasuke_kool]

Nói thế nào bây giờ
Đơn giản là
Mọi người đố các bài tập pascal nếu tui(chùng thôi trải lời đc thì người đó pahir ấn nút thanks) còn ko thì ngược lại (sau 3 ngyaf nếu ko giải đc

[Thần Thoại]

Vạy em thử làm bài này xem nào: Có một khối hình lập phương được xếp từ NxNxN hình lập phương nhỏ, lập trình tính số hình lập phương có trong cả khối hình lập phương ấy với N là input.

Yêu cầu: Người dùng phải nhập password để sử dụng chương trình, cuối chương trình nhấn phím bất kỳ để kết thúc hoặc làm lại

[trantiendat_a9k49]

hix.Vô đối pascal hả?ok.đề nè:Cho 3 hình chữ nhật có kích thước tương ứng là : ai * bi ( i= 1,2,3).Trong đó ai,bi là các số nguyên dương ko vượt quá 10^9. Hỏi 3 hình chữ nhật đó có thẻ ghép thành 1 hình vuông ko?
nếu ghép đc hãy cho biết độ dài cạnh hình vuông đó,ngược lại ghi số 0.
nữa nhé: Cho 2 số n,m nguyên dương(n,m<=200).Hỏi trong biểu diễn thập phân của tổng S=2^n + 3^m chữ số đầu tiên là chữ số nào?

[sasuke_kool]

Tại mấy lớp nào co dota vô đối rồi fifa hay hiphop , chẳng lẽ lớp của mình lại ko có cái j`,
Mấy bài kia ko biết có làm đc ko, nhưng phải cố chót viết ra rồi mà , còn tận 2 ngày cơ mà hè hè

[Bạch Dương]

Tôi có vài lời muốn nói với bạn sasuke:
Thứ nhất, trên đời có những định nghĩa "vô đối dotA" chứ chẳng bao giờ có cái gọi là vô đối Pascal cả. Nói mình vô đối pascal (hoặc kể cả là vô đối dotA) không những là tự đề cao mình mà còn nghĩa là hạ thấp cộng đồng. Mà bạn biết rồi đấy, ai là người công nhận mình vô đối: CỘNG ĐỒNG!
Thứ hai, khi nói "Tại mấy lớp nào co dota vô đối rồi fifa hay hiphop , chẳng lẽ lớp của mình lại ko có cái j" thể hiện rằng mình cũng phải có "như người ta" - điều khó chấp nhận được ở một dân IT kiệm lời
Thứ ba, trước đây tôi nhớ cũng có một người xưng vô đối C# và bị một mem khác comment: "hãy lập trình tính tuổi thọ của...những THẰNG TINH TƯỚNG"

Còn mấy bài của bạn Đạt "sưu tầm được" chẳng chứng tỏ được điều gì, hoặc là bạn sasuke giải được rồi..về hoặc là tranh luận mãi mà chẳng đi đến đâu

Mấy bài ấy tôi không rõ phải dùng cái thuật toán trên trời dưới đất gì nhưng có vẻ nó là toán chứ ko phải tin, xin nêu những ý tưởng "phổ thông":
Ở bài hình chữ nhât ta tính tổng diện tích 3 hình trước rồi xem có phải là hình vuông không, nếu có thì tiếp tục gọi là Hinh vuông C. Thay vì xem 3 hcn có ghép lại thành HV đc ko thì ta làm ngược lại: xem hình vuông ấy có thể chia làm hình chữ nhật INPUT không. Điều kiện: 3 hình có cùng chiều dài = độ dài cạnh hình vuông C, hoặc, có một hình vuông có chiều dài như vậy, 2 hình còn lại có 2 số đo bằng nhau, 2 số đo còn lại có tổng bằng cạnh C. Để dễ dàng dùng Function ta gọi chiều dài mỗi hình là A[i], chiều rộng là A[7-i] (A1 - A6, A2 - A5, A3 - A4). Tất nhiên sẽ có những giải thuật ngắn hơn. Xin lỗi vì chẳng có thời gian lo chuyện bao đồng mà viết chương trình ra làm gì cả

Bài thứ hai, chẳng rõ câu hỏi "ám chỉ" chữ số hàng đơn vị hay là gì, bởi theo tôi hiểu một biểu diễn thập phân của số abc có dạng ab.c x 10^1. Nếu nó là bài toán tìm chữ số hàng đơn vị của S = 2^n + 3^m thì không đến mức đau đầu. Vì ta biết số 2^n có hàng đơn vị là 2, 4, 6, 8 còn 3^m có đv là 3, 9, 7, 1 tùy theo số dư của phép chia n và m cho 4. Từ đó dẽ dàng tìm ra output

Tôi chỉ muốn bạn Sasuke làm bài của Thần Thoại bởi đây là bài rất hay không có trong sách vở nào cả. Đáp án cũng khá hay và cũng có rất nhiều giải thuật với độ phức tạp khác nhau

[sasuke_kool]

Bải của anh thần thoại em đọc hem hiểu, đặt pasword thì đơn giản cho cặp repeat-until là xong (có lẽ ko cần mã hóa, nhìn cái ct là biết pass :d)
Bài của trần tiến đạt:

Cho 2 số n,m nguyên dương(n,m<=200).Hỏi trong biểu diễn thập phân của tổng S=2^n + 3^m chữ số đầu tiên là chữ số nào?

Bài này thì đơn giản: chỉ cần tính cái tổng S xong đó biến thành string và lấy [1] là xong:

Code:


 uses crt;
  var S,l1,l2:longint;
  i,m,n:byte;
  x:string;
  Begin  clrscr;
    Repeat
      Write('Nhap n,m: ');
      Readln(n,m);
    Until ((m<=200) and (n<=200));
    l1:=1; l2:=1;

    for i:=1 to n do
        l1:=l1*2;
    for i:=1 to m do
        l2:=l2*3;
      S:=l1+l2;
      str(S,x);
    Write('Ket qua:',x[1]);

      readln;
      end.{by wind_Naruto}



Còn bài hcn dài vãi hài đang đánh lại, ...

[Bạch Dương]

Trời ạ. Bài của bạn Đạt chỉ là tìm chữ số hàng đơn vị thôi. Còn tính tổng S là xong thì nói làm gì hả bạn! Thế thì họ hỏi luôn là tính S đi cho xong
bạn chỉ cần lấy số dư của m và n khi chia cho 4 thôi

Còn bài của anh Thần Thoại em không hiểu cũng đúng thôi
Ý anh ấy theo anh là: Em có một số K hình lập phương có thể tích 1x1x1 xếp thành một hình lập phương rất lớn (khi đó K = N^3), hỏi trong hình lập phương đó có bao nhiêu hình lập phương với mọi thể tích ví dụ: 1x1x1, 2x2x2, 3x3x3... Với N là Input
Bài này khá giống với bài: Có bao nhiêu hình vuông trong bàn cờ 64 ô

CÒn bạn Đạt dù có đố xuôi đố dọc gì sasuke cũng làm đúng rồi,

[sasuke_kool]

ớ ý em có phải là oai với cộng đồng đâu, gọi là muốn có mấy cài làm cùng với mấy thằng ở lớp thôi, SOrry all, sửa lại cái title rồi

[sasuke_kool]

Bài của bạn Đạt chỉ là tìm chữ số hàng đơn vị thôi. Còn tính tổng S là xong thì nói làm gì hả bạn! Thế thì họ hỏi luôn là tính S đi cho xong

Ớ tưởng bạn Đặt hỏi

[sasuke_kool]

ớ có phải nếu mà tính hàng đơn vị cũng đơn giản, chỉ cần tính S và cho nó thành xâu và lấy kí tự cuối =length(a) thôi. chắc đúng chứ nhỉ

[Bạch Dương]

ớ có phải nếu mà tính hàng đơn vị cũng đơn giản,
chỉ cần tính S và cho nó thành xâu và lấy kí tự cuối =length(a) thôi.
chắc đúng chứ nhỉ

Tất nhiên là đúng
Tôi chỉ nói nó tốn dung lượng quá thôi, tôi xin đóng góp chương trình nhanh gọn mà đơn giản như sau

Code:


<META http-equiv=Content-Type content="text/html; charset=unicode">
<META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD>
<BODY>
<SCRIPT language=javascript>



alert("Chương trình tìm hàng đơn vị của tổng S=2^n+3^m");
n=prompt("Nhập số n");
m=prompt("Nhập số m");
n=n mod 4;
m=m mod 4;
n1=1;
for(i=0;i<n+1,i++)
{ n1=n1*2 };
if (m=0) { m=1 };
if (m=1) { m=3 };
if (m=2) { m=9 };
if (m=3) { m=7 };
n = (m+n1) mod 10;
Alert("Kết quả ", n1);

Phân tích giải thuật:
- 2^n có hàng đơn vị là 2^a với a=n mod 4
- 3^m có hàng đơn vị là 1,3,9,7 với mỗi m mod 4 bằng 0,1,2,3
- Vậy S sẽ có hàng đơn vị bằng 2 đv trên cộng lại rồi chia dư 10

Độ phức tạp: 0(n!)


Bài thứ 2: Hình Chữ nhật dùng giải thuật chia kẹo hoặc giải thuật phổ
thông, bài này sasuke có thể giải quyết được nhưng có lẽ lời giải ngắn
gọn hơn đã trong tay bạn Đạt rồi (đố nhau ấy mà) . Kết quả sẽ tương đối
bất ngờ đấy

Bài của Thần Thoại: Bạn sasuke có thể tham khảo một bài của tôi hồi đầu
năm nhưng dùng trong mặt phẳng sd giải thuật tính toán lần lượt. Tôi
nghĩ bạn có thể nhanh chóng tìm ra đáp án:

http://www.bacduyenha.org/t693-topic

public sealed class Sum_S
{
public static void sum_S( )
{
this.n=n;
this.h = h;
this.f=f;
this.k=k;
this.a=a;
}
public static int sum( int n)
{
h = (n+1)*n/2;
return h;
}
//Phương thức này dùng để tính tổng HV
public static int thv (int k, int n)
{
for(int a=1; a<=n;a++)
{
int f=a;
Sum_S.sum(a);
a=a+f;
k=2a-(n*n+1/2);
}
return k;
}
public int a;
Public int k;
public int f;
public int h;
public int n;
}

public class nhap
{
public void nhap()
{
this.n = n
}
public int nhapn()
{
System.Console.WriteLine ("nhap n");
n = System.Console.ReadLine();
return n;
}
public int n;
}

public static class Sum_S
{
public void main()
{
Sum_S t= new Sum_S();
nhap n= new nhap();
int a= n.nhapn;
t.thv (a);
System.Console.WriteLine ("Vay so hv la: {0}";a);
}
}

Nhưng hiện tại tôi cũng đã nghĩ ra thuật toán mới để giải quyết bài này
với mọi chiều không gian với độ phức tạp rất thấp, nhanh gọn mà ít tốn
dung lượng


Góp vui thế thôi, chứ mấy cái này ko phải chuyên môn của tôi

[wonbindalton]

vô đối pascal bị dập tắt rồi

[trantiendat_a9k49]

nữa nè
b1.Cho một mặt phẳng tọa độ. Cho một hình tròn xác định và n hình tròn nằm trong mặt phẳng tọa độ (n <= 1000). Hình tròn được xác định bởi tọa độ tâm. Hãy tính khoảng cách xa nhất của hình tròn so với hình tròn cố định. Yêu cầu bài toán chạy trong vòng 1 giây.
b2.Viết chương trình thực hiện các công việc sau:
- Nhập vào 3 số m, n, k, cấp phát động 2 mảng a(m*k) và b(k*n) theo hai cách khác nhau.
- Tính mảng c (được cấp phát động, c là loại int**) là tích của a và b.
- Cấp phát động mảng d, sao cho có thể sao chép từ c sang d theo 2 cách khác nhau (dùng vòng lặp và dùng hàm memmove hay memcpy), theo bạn, tại sao có một cách cấp phát d mà ta không thể sao chép nếu dùng hàm memmove hay memcpy?
- Sử dụng hàm coreleft để in ra phần bộ nhớ còn trống sau mỗi lần cấp phát.
Chú ý giải phóng toàn bộ bộ nhớ đã cấp phát sau khi hoàn tất chương trình.

[sasuke_kool]

ặc hình như mấy bài bạn đạt lấy ở đâu chứ ở lớp đâu có những dạng bài này, cái này hình như cho chuyên tin, lại phải đi kiếm mấy cái ebook đọc oy`, bắt đầu khó đỡ đây.Thanks anh đức anh, mấy bài kia sao anh ko viết =pas để mọi người cùng hiểu

[Bạch Dương]

nữa nè
b1.Cho một mặt phẳng tọa độ. Cho một hình tròn xác định và n hình tròn nằm trong mặt phẳng tọa độ (n <= 1000). Hình tròn được xác định bởi tọa độ tâm. Hãy tính khoảng cách xa nhất của hình tròn so với hình tròn cố định. Yêu cầu bài toán chạy trong vòng 1 giây.
b2.Viết chương trình thực hiện các công việc sau:
- Nhập vào 3 số m, n, k, cấp phát động 2 mảng a(m*k) và b(k*n) theo hai cách khác nhau.
- Tính mảng c (được cấp phát động, c là loại int**) là tích của a và b.
- Cấp phát động mảng d, sao cho có thể sao chép từ c sang d theo 2 cách khác nhau (dùng vòng lặp và dùng hàm memmove hay memcpy), theo bạn, tại sao có một cách cấp phát d mà ta không thể sao chép nếu dùng hàm memmove hay memcpy?
- Sử dụng hàm coreleft để in ra phần bộ nhớ còn trống sau mỗi lần cấp phát.
Chú ý giải phóng toàn bộ bộ nhớ đã cấp phát sau khi hoàn tất chương trình.

Trước khi giải 2 bài này, tôi xin khẳng định đây là bài toán trên Wikibook, bạn Đạt copy nhưng không có lời giải. ĐÓ là 2 bài toán cơ bản của lập trình tính toán phân tán bằng C++
Bài thứ nhất tôi không hiểu lắm, nhưng để bài toán chạy trong một giây thì chắc yêu cầu là dùng vòng lặp có độ phức tạp tối thiêu và không có đệ quy,
Nếu ta có n1, n2, m1, m2 (toạ độ tâm đường tròn xác định và đường tròn intput thì output được xác định sqrt(n1*n2+m1*m2)
Còn bài 2 thì không học c++ thì không biết, bởi trong những ngôn ngữ tôi quen dùng thì không có các câu lệnh cấp pháp memmove hay memcpy

ĐỀ nghị cho bài nào vừa sức một chút, đây là kiến thức đại học rồi (đến năm thwus 3 mới được học loại này)

@Sasuke: A quen dùng javascript và C#, còn pascal thì lâu không động đến nên viết sai chính tả thì buồn cười lắm
Nếu e cần lời giải của bài Thần thoaij thì a gửi cho, bài này chỉ chạy trong chưa đến 0.2 giây

Các bạn a4k49 thử giải bài này xem,(Vừa sức chứ không đánh đố đâu) đây là một bài năm ngoái anh battle với một tên Tây Tiền Hải:
BÀI TOÁN NÀY CHÍNH LÀ CUẢ NHÀ TOÁN HỌC PASCAL
"Lập trình miêu tả cách đong k lít nước từ một cái bình m lít và một cái bình n lít. k, m, n là Input (3< n < k < m < 50)"

[sasuke_kool]

BÀI TOÁN NÀY CHÍNH LÀ CUẢ NHÀ TOÁN HỌC PASCAL
"Lập trình miêu tả cách đong k lít nước từ một cái bình m lít và một cái bình n lít. k, m, n là Input (3< n < k < m < 50)"

Em còn gặp mỗi trường hợp này là chịu luôn: khi m=2n(tức là m div n=0), không thế nào làm đc, đong kiểu gì cũng chỉ =n các trường hợp khác đơn giản chỉ cần tín mod và div là xongong

[anhhuyproa10]

Trời nhìn đã mỏi mắt rồi nói chi đến chuyện giải nữa chứ

[trantiendat_a9k49]

2 bài này đúng là em lấy trên google thiệt.2 bài này nếu giải bằng pascal thì rất khó nhưng nếu anh giải bằng C++ thì vô cùng dễ dàng

[Bạch Dương]

BÀI TOÁN NÀY CHÍNH LÀ CUẢ NHÀ TOÁN HỌC PASCAL
"Lập trình miêu tả cách đong k lít nước từ một cái bình m lít và một cái bình n lít. k, m, n là Input (3< n < k < m < 50)"

Em còn gặp mỗi trường hợp này là chịu luôn: khi m=2n(tức là m div n=0), không thế nào làm đc, đong kiểu gì cũng chỉ =n các trường hợp khác đơn giản chỉ cần tín mod và div là xongong

Bài toán này rất thực tế: tức là cho dù có cho ra đời được một miêu tả đúng nhưng thời gian thực hiện quá lâu (ví dụ rót qua rót lại đến 30 lần thì thực ra chẳng có ai làm theo cả). Không những trường hợp em nêu ra, còn rất nhiều trường hợp khác mà không thể đong được. Vấn đề là ta kiểm tra xem có đong được hay không. Đề bài cũng chỉ thế thôi

Bài giải các bài trước (bài HCN của Đạt và Lập phương của Thần Thoại):
http://www.bacduyenha.org/t1728-topic

[sasuke_kool]

Làm j` đến 30 lần. n vào k trước thiếu bao nhiêu thì lấy dư khi đổ m vào n (cái này chỉ làm đc khi) thiếu lớn hơn thừa thui... Hay anh cho em cái bài giải lúc anh battle vs anh j` đó ko

[Bạch Dương]

Giả sử đong 6l từ một cái bình 5l và 8l thì sao?



Nếu a gửi lời giải thì nói làm gì.Thôi vậy, nếu e chưa giải được bài này thì tạm thời để đấy. Bài này dễ chịu hơn: Lập trình tính tích của n số tự nhiên liên tiếp bắt đầu từ số k.
(Mở rộng Yêu cầu: không dùng các loại vòng lặp)

[sasuke_kool]

đổ 2 lần lấy dư 8l cho bình 5 lít,
Có dùng vòng lặp thì không khó:
Nhập n,k
a:=n+k
For i:=k to a do
tich=tich*i
write('Tich=',tich:8 );

Còn cái không dùng vòng lặp về nghĩ đã

CÓ lẽ em về cũng phải đọc C thôi

[anhhuyproa10]

Mình thấy phần này cứ khó thế nào ấy
Mình không đủ tự tin để làm những bài như thế này

[sasuke_kool]

Đây không dùng vòng lặp đây, về em mới đọc thêm cái thằng label
var a,k,n,t,tich:integer ;
label a4k49;
begin
Write('Nhap k,n: '); Readln(k,n);
a:=k+n;
tich:=k;
t:=k+1;
a4k49:

if t<=a then begin tich:=tich*t; t:=t+1; goto a4k49; end;
Write('KQ= ',tich:;
Readln;
End.

[Thần Thoại]

bạn sakuke k giải đc bài của tôi mà chưa ấn phím thank nhé!

[Sponsored content]