Can Bai Tap Pascal Co Ban

[y_p]

Viết chương trình in ra các bộ nghiêm (x,y,z) của phương trình:
3x+5y+7z=135, với x,y,z>=0

[hang_vt]

lên google seach pascal study 1.0 . Có cả lý thuyết , bài tập từ cơ bản đến nâg cao

[huysun]

http://ddth.com/showthread.php?t=238747
1 loạt bài cơ bản.

[hang_vt]

các ban giải dùm mình bài tậ này với nhé:viết chương trình nhập 5 số bất kì in chúng ra màn hình theo thứ tự tăng dần va giảm dần...giúp mình với nha.cảm ơn nhìu nhìu

var  a:array[1..20] of byte;
     i,tg,j:byte;
begin
 for i:=1 to 5 do
 begin
  write('nhap so thu ',i);
  readln(a[i]);
 end;
 for i:=1 to 4 do
  for j:=i+1 to 5 do
   begin
    if a[i]>a[j] then
     begin
      tg:=a[i];
      a[i]:=a[j];
      a[j]:=tg;
     end;
   end;
 writeln('day xep tag');
 for i:=1 to 5 do
  write(a[i],' ');
 writeln;
 writeln('day xep giam');
 for i:=5 downto 1 do
  write(a[i],' ');
 readln;
end.

[baquyen92]

ai giúp mình với bài này mình cần gấp:
cho một dãy số bất kì nhập từ bàn phím hãy in ra màn hình số bé thứ hai trong dãy số! các bạn ơi giúp mình với.

[=========> Bổ sung bài viết <=========]

mọi người đâu hết rồi không ai giúp tôi à?

[huysun]

ai giúp mình với bài này mình cần gấp:
cho một dãy số bất kì nhập từ bàn phím hãy in ra màn hình số bé thứ hai trong dãy số! các bạn ơi giúp mình với.

[=========> Bổ sung bài viết <=========]

mọi người đâu hết rồi không ai giúp tôi à?

min1 là số bé nhất
min2 là số bé nhì
cho i chạy từ 1 đến n, với mỗi số a[i], ta có:
- a[i]<min1<min2=> gán min2:=min1; min1:= a[i];
- min1<=a[i]<min2=> gán min2:=a[i];
- min1<min2<=a[i]=> bỏ qua.
đây là kĩ thuật đặt lính canh.

[tuan911]

bon may dien ahhh
bai de the nay ma la co ban ahhh
It ra cung phai the nay:
Nhap vao 2 so n,m.In ra chu ki cua n/m

[=========> Bổ sung bài viết <=========]

min1 là số bé nhất
min2 là số bé nhì
cho i chạy từ 1 đến n, với mỗi số a[i], ta có:
- a[i]<min1<min2=> gán min2:=min1; min1:= a[i];
- min1<=a[i]<min2=> gán min2:=a[i];
- min1<min2<=a[i]=> bỏ qua.
đây là kĩ thuật đặt lính canh.

the may gan mín=0 mìn=1 luc ban dau ha may
neu cac so nhap vao lon hon 0 thi la sai do con
neu ko co so nho nhi thi cung sai bet
tim so nho nhat truoc:min1
gan min2=min1
min2:=min1+0 {lam the nay de min1 khong mat gia tri}
sau do cho chay for tu 1 den n so nao ma lon hon min1 thi gan min2:=a[i];
Kiem tra sau vong for neu min2=min1 thi in ra la ko co so nho nhi roi Cho lenh readln;
Exit;
neu min2<>min1 thi
Lai cho for tu 1 den n
If (a[i]>min1) and (a[i]<min2) then min2:=a[i];
Ket thuc cho in ra min2

[huysun]

bon may dien ahhh
bai de the nay ma la co ban ahhh
It ra cung phai the nay:
Nhap vao 2 so n,m.In ra chu ki cua n/m

[=========> Bổ sung bài viết <=========]



the may gan mín=0 mìn=1 luc ban dau ha may
neu cac so nhap vao lon hon 0 thi la sai do con
neu ko co so nho nhi thi cung sai bet
tim so nho nhat truoc:min1
gan min2=min1
min2:=min1+0 {lam the nay de min1 khong mat gia tri}
sau do cho chay for tu 1 den n so nao ma lon hon min1 thi gan min2:=a[i];
Kiem tra sau vong for neu min2=min1 thi in ra la ko co so nho nhi roi Cho lenh readln;
Exit;
neu min2<>min1 thi
Lai cho for tu 1 den n
If (a[i]>min1) and (a[i]<min2) then min2:=a[i];
Ket thuc cho in ra min2

một nhỏ: yêu cầu ăn nói lịch sự 1 chút.
hai nhỏ: không phải gán min1=0, min2=1 mà là
lúc đầu gán min1=a[1], sau đó xét:
*a[2]<=a[1]=> min2:=min1(=a[1]); min1:=min2;
*a[2]>a[1]=> min2:= a[2];
chỉ cần 1 lần lặp là đủ.

[hang_vt]

bon may dien ahhh
bai de the nay ma la co ban ahhh
It ra cung phai the nay:
Nhap vao 2 so n,m.In ra chu ki cua n/m

k cần fải nói thế , bài dễ # bài cơ bản nhìu k ?

[quangdiemhp]

Bài tính giai thừa kiểu này không ổn. Vì chỉ tính được số <=12 là cùng. Nếu bạn tính số n >=12 và có thể lên tới 100 hoặc lớn hơn thì có thể làm được bằng thuật toán này không?
Mọi góp ý, ý kiến xin chia sẻ qua mail quangdiem_hp@yahoo.com.vn