Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies
Đã gửi 20-04-2015 - 22:50
Viết chương trình nhập từ bàn phím số nguyên dương $N[N\leq 100]$ và dãy A gồm N số nguy
Mình làm ý tưởng thế này không biết đúng không!
var s:string;
n,i,d:integer;
begin
repeat
write['n='];
readln[n];
until [n>=1]and[n1 do
begin
if [n mod 20]or[n=2] then
begin
n:=n-1;
s:=s+'N';
d:=d+2;
end
else
begin
n:= n div 2;
s:=s+'D';
d:=d+4;
end;
end;
writeln['nang luong ton : ',d];
for i:=length[s] downto 1 do
write[s[i]];
readln;
end.
viết 1 ct nhập dãy số nguyên có n phần tử và 1 số nguyên x và kt xem có bao nhiêu số trong mảng có giá trị = x, chúng ở vị trí nào
$A_1,A_2,...,A_n$ có giá trị tuyệt đối không lớn hơn $1000$. Hãy cho biết dãy A có phải là cấp số cộng hay không và thông báo ra màn hình ?
Đã gửi 21-04-2015 - 19:46
Kiểm tra x có trong dãy số không thì dùng 1 vòng for 1..n if x=a[i] then ghi vị trí. còn nếu cấp số cộng hay không thì kiểm tra so sánh a[i] với a[i-1] với i=2..n
Đã gửi 21-04-2015 - 19:49
viết 1 ct nhập dãy số nguyên có n phần tử và 1 số nguyên x và kt xem có bao nhiêu số trong mảng có giá trị = x, chúng ở vị trí nào
var a:array[1..100] of longint; n,x,d:longint;
begin
readln[n,x];
d:=0;
for i:=1 to n do readln[a[i]];
for i:=1 to n if a[i]=x then begin inc[d]; writeln['vi tri ',i]; end;
writeln['co tat ca ' ,d,' so = ',x];
readln;
end.
Đã gửi 13-10-2015 - 15:11
LẬP TRÌNH PASCAL? mình có bài toán sau cần giải gấp nhưng chưa biết ai biết chỉ dùng. cảm ơn nhiều.
Bài toán :quản lý nhân sự .Viết chương trình tạo 1menu để quản lý nhân sự ,mỗi cán bộ là 1 cấu trúc ,gồm:Mã ván bộ ,Họ đệm và tên cán bộ ,phòng ban,chức vụ,hệ số lương.Ch trình gồm các công việc sau : 1.Tạo fanh sách cán bộ : quá trình nhập ds sẽ dừng lại khi nhập mã số =4.9. 6.Tìm và in ds cán bộ yheo chức vụ. 7.Tìm và in dạn sách cán bộ theo hệ số lương và phòng ban. 8.Sắp xếp danh sách cán bộ theo thứ tự của tên. Sau đó tính độ phức tạp của thuật toán đó?
Bài viết đã được chỉnh sửa nội dung bởi SDSO3: 13-10-2015 - 15:16
Đã gửi 27-10-2015 - 23:07
Pro giúp tôi thuật toán này với
Cho N số nguyên dương A1, A2, …, AN. Từ các số nguyên này, có thể tạo ra một
số nguyên mới bằng cách kết nối tất cả các số đã cho viết liên tiếp tiếp nhau.
Ví dụ: với N = 3, các số 50, 9, 80 ta có thể tạo ra các số mới như sau: 50980,
50809, 95080, 98050, 80509, 80950. Có tất cả N! số được tạo ra. Trong trường hợp này, số lớn nhất là 98050.
Yêu cầu: cho N số nguyên dương A1, A2, …, AN. Hãy xác định số lớn nhất có thể
tạo thành theo nguyên tắc trên.
Dữ liệu vào từ tệp văn bản KETNOI.INP:
o Dòng đầu tiên chứa số nguyên N với 1 < N ≤ 106.
o Dòng thứ hai chứa N số nguyên A1, A2, …, AN với 0 < Ai < 100, 1 ≤ i ≤ N.
Hai số kề nhau cách nhau một khoảng trắng.
Dữ liệu ra ghi vào tệp văn bản KETNOI.OUT: Số lớn nhất có thể tạo ra từ dãy
số.
KETNOI.INP
3
50 9 80
KETNOI.OUT
98050
hi, mình mới tham gia
bạn làm đc chưa
Đã gửi 17-11-2015 - 10:47
Cho hỏi bài này vs các ACE!!
Cho N số nguyên dương . Từ các số nguyên này tạo một số nguyên mới bằng cách kết nối các số đã cho liên tiếp vs nhau.
Ví dụ: Với N=4 và các số 12,34,567,890 ta có thể tạo ra các số mới như 1234567890, 3456789012,... Trong trường hợp này số lớn nhất có thể tạo thành là 8905673412.
Dữ liệu vào: Cho file connect.inp gồm n+1 dòng;
-Dòng đầu: Ghi số nguyên N [Số lượng phần tử];
-Các dòng còn lại ghi các phàn tử
Dữ liệu ra: file connect.out ghi ra số lớn nhất có thể tạo thành từ các số nguyên ban đầu.
VD: Connect.inp: 4 Connect.out: 8905673412
12
34
567
890
Đã gửi 18-11-2015 - 20:36
Code the nay có được không bạn
type mangxau=array[1..10000] of string;
var i,j,max,n: longint; a : mangxau;
procedure sx[var a:mangxau];
var i,j:integer; tam:string;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]