Mới chập chững học Pascal mọi ng giúp mình với !

[thuytmbn]

Mọi ng giúp mình giải các đề này với [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]
Cám ơn mọi ng nhiều lắm lắm >[IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]<

1/ Viết CT nhập vào 1 mảng số nguyên A thực hiện các công việc sau :
Sắp xếp A theo thứ tự tăng dần
Nhập vào 1 số nguyên x, chèn x vào A sao cho mảng vẫn giữ nguyên tính thứ tự

​2/ Viết CT nhập vào 1 chuỗi (có các kí tự thể hiện theo định dạng số La Mã)
Hãy kiểm tra biểu diễn của một số bằng chữ La Mã có đúng hay ko
​
3/ Viết CT nhập vào mảng A và mảng B
Đếm số lần xuất hiện của mảng B trong mảng A
​
4/ Viết CT nhập vào 1 số nguyên n có giá trị < 1 000 000
Xuất ra màn hình chuỗi của việc đọc số này
​5/ Viết CT phân tích 1 số tự nhiên 1024 >= N >= 1 thành tổng các số tự nhiên bé hơn nó ( và là lũy thừa của 2 ) theo thứ tự từ lớn đến nhỏ. In kết quả phân tích đó ra màn hình
VD : 37=32+4+1
51=32+16+2+1
​

[adminphim]

Huhu sao hem ai giúp mình hík T___T

[stst575]

Mình code nhanh bài 1 và bài 5 chưa test lại, nếu sai xót bạn pm mình sửa luôn cho.
Bài 2 quên cách biểu diễn số la mã rồi, bài 3 bạn cho mình cái giới hạn số phần tử của 2 mảng a b nhé, bài 4 làm dài dòng mà mất nhiều thời gian lắm, bạn liên hệ Smod HSG anh ý sẽ giúp bạn.
Bài 1:

Var a:array[1..10000]of longint;
tg,i,j,vt,n:longint;
Begin
Write('Nhap so luong phan tu cua mang:'); readln(n);
write('Nhap so can chen:'); readln(x);
writeln('Nhap cac phan tu cua mang, moi phan tu tren 1 dong');
for i:=1 to n do readln(a);
for i:=1 to n-1 do
begin
vt:=i;
for j:=i+1 to n do if a[j]<a[vt] then vt:=j;
tg:=a[vt];a[vt]:=a;a:=tg;
end;
write('Mang sau khi da sap xep:');
for i:=1 to n do write(a,' ');
ok:=false;
for i:=1 to n do
begin
if not ok and (a[i-1]<=x) and (x<=a) then
begin
write(x,' ');
ok:=true;
end;
write(a,' ');
end;
readln;
end.

---------------------------------Bài viết đã được trộn ---------------------------------
Bài 5 : mình làm theo cách đơn giản để chạy với yêu cầu của bạn, có cách tổng quát hơn để giải với n lớn nhưng mình không có nhiều thời gian để code, bạn thông cảm nhé.

Var a:array[0..10]of integer;
i,n:longint;
Begin
write('Nhap N:');readln(N);
fillchar(a,sizeof(a),0);
a[0]:=1;
a[1]:=2;
a[2]:=4;
a[3]:=8;
a[4]:=16;
a[5]:=32;
a[6]:=64;
a[7]:=128;
a[8]:=256
a[9]:=512;
a[10]:=1024;
write(N,' = ');
i:=10;
while a>N do i:=i-1;
write(a,' ');
n:=n-a;
while n>0 do
begin
while a>n do i:=i-1;
write(' + ',a);
n:=n-a;
end;
readln;
end.

[appsmart]

Thanks Mod nhiều lắm
Ai giải đc 3 đề còn lại thì bỏ tí thời gian giúp mình với nhé [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

[bigrat96]

Mình ko hiểu đề bài 3 lắm bạn cho vd đc ko.
Còn bài 4 thì chỉ cần loại đi hết các số 0 ở đầu sau đó dùng lệnh if để xét các TH là đc .
Mình nghĩ vậy mọi người cho ý kiến nhé !

[evashopping]

Còn bài 4 thì chỉ cần loại đi hết các số 0 ở đầu sau đó dùng lệnh if để xét các TH là đc.

Số này bé hơn 1 triệu em à chứ không phải là 1 triệu, 2 triệu, ... đâu em. Cái này hơi dài đó. Nếu thông minh hãy tạo 1 cơ sở dữ liệu để rút ngắn các trường hợp xuống.

[huongtmbn]

Số này bé hơn 1 triệu em à chứ không phải là 1 triệu, 2 triệu, ... đâu em. Cái này hơi dài đó. Nếu thông minh hãy tạo 1 cơ sở dữ liệu để rút ngắn các trường hợp xuống.

Em quên mất ! Cứ nghĩ là nhập vào 1 xâu như là '000078' [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

[teenhotvip]

Bạn cho ví dụ về bài 3 nhé, mình nghĩ nếu bạn mới học Pascal thì cô giáo cũng không nỡ cho bài kiểu này đâu.
Bài 4 thì dài dòng thôi, dùng các lệnh if để biết nó ở hàng nào (chục, trăm ...)
Bài 2 bạn cho mình cái quy tắc đọc số La Mã nhé.

[giangmaster1412]

Bạn cho ví dụ về bài 3 nhé, mình nghĩ nếu bạn mới học Pascal thì cô giáo cũng không nỡ cho bài kiểu này đâu.
Bài 4 thì dài dòng thôi, dùng các lệnh if để biết nó ở hàng nào (chục, trăm ...)
Bài 2 bạn cho mình cái quy tắc đọc số La Mã nhé.

Àh title mình nói quá tí thôi [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG] nhưng giáo viên dạy 1 mà bắt học sinh làm 10...[IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]
Về số La Mã thì
I = 1
V = 5
X = 10
L = 50
C = 100
D = 500
M = 1000

[thangpham18]

À, ý mình là muốn bạn cho biết cách đọc số La Mã cơ, như để đọc số 1234 = La Mã thì đọc thế nào ấy.
Bài 4 thì cách đọc có gì đặc biệt không? Vd như 25 thì đọc là hai mươi lăm, còn 50 là năm mươi.