giai ho tui bai pascal nay vs:Cho day so a1;...an. Sap xep day da cho theo chieu giam dan ( dung bang mot chieu)
giai ho tui bai pascal nay vs:Cho day so a1;...an. Sap xep day da cho theo chieu giam dan ( dung bang mot chieu)
cai chỗ này mình cho là PKMinh sai rùi: phài cho nó chạy đến n mod 2 nếu nó là số chẵn hoặc (n mod 2)+1 nếu nó la số lẻ chứ
vì n có thể phân tích thành n=2*i nên nếu lấy căn bậc 2 thì tự dưng để lọt bao nhiêu là gt rùi hì có đúng ko nào?
[=========> Bổ sung bài viết <=========]
Hì tui làm thế này:
bai nay tui chưa test nho moi người test hộ.Code:type mang=array[1..100]of integer; var i,n:integer; a:mang; procedure nhap; var i:integer; begin write('nhap n'); readln(n); for i:=1 to n do readln(a[i]); end; procedure trao(var i,j:integer); var c:integer; begin c:=i;i:=j;j:=c; end; procedure sort(var a:mang,n:integer); var i,j:integer; begin for i:=1 to n do for j:=i to n do if a[i]<a[j] then trao(a[i],a[j]); end; BEGIN nhap; sort(a,n); for i:=1 to n do write(a[i]); readln END.
[=========> Bổ sung bài viết <=========]
có gì sai sót thì nhờ mọi người chỉ giáo thêm
Được sửa bởi pascal co ban lúc 20:42 ngày 12-06-2010 Reason: Bổ sung bài viết
B1:
-------------------------------
Program SO_NGUYEN_TO;
Uses crt;
Var n,i,j: word;
Begin
Clrscr;
Write('Nhap n = ');readln(n);
If n<2 then
Writeln('Khong co so nguyen to nao <=',n)
Else
Begin
Writeln('Cac so nguyen to <= ',n,' la:');
For i := 2 to n do
Begin
j:= 1;
Repeat
j:= j+1;
Until (i mod j = 0) or (j*j>i);
If( j*j>i) then
Write(i:2);
end;
End;
Readln;
End.
------------------------------
Nếu bạn muốn các số nhỏ hơn n thì for i:=1 to (n-1) do...
__________________________________________________
B2:
-----------------------------
program tong_tich_m_c_so_cuoi_n;
uses crt;
var n,t,s,m,i:longint;
Begin
clrscr;
Write('Nhap m,n: ');readln(m,n);
S:=0;
T:=1;
for i:=1 to m do
Begin
S:=S + n mod 10;
T:=t * (n mod 10);
n:=n div 10;
End;
Writeln('Tong:',S:4);
Write('Tich:',t:4);
readln
end.
Được sửa bởi quangltm lúc 16:28 ngày 30-05-2011
cac anh cho em hoi bai nay:
VCT liệt kê các số sông tố nhỏ hơn n,n nguyên dương va nhập từ bàn phím
Liệt kê các số sông tố nhỏ hơn n, n nguyên dương va nhập từ bàn phím
cho 1 số tự nhiên N≤9. Giữa các số từ 1 → N hãy thêm các dấu + và – sao cho kết quả thu được bằng 0. Tìm tất cả khả năng có thể.
Còn mình thì chưa giải được bài này. Nhờ các bạn giúp đỡ.
Viet chuong trinh nhap vao day so nguyen theo thu tu tang hoac bang. In tong cac so vua nhap.
Yeu cau: Neu nhap sai (so sau nho hon so truoc) thi yeu cau nhap lai.
Chuong trinh dung khi so nhap vao la -1
VD: nhap so thu 1: 6
nhap so thu 2: 2
So khong hop le. Nhap lai
nhap so thu 2: 7
nhap so thu 3: 8
nhap so thu 4:-1
Tong 3 so la:21
Nho cac ban giup do. thanks all
var n,i:integer;
st:string;
begin
readln(n);(*nhap so n*)
str(n,st);(*doi so n ra xau*)
for i:=length(st) downto 1 do
write(st[i]);
readln;
end.
xong rui ngan gon hok
Bookmarks