[Help] Các thao tác trên xâu.

[phamhoasp]

Các bạn giải giúp mình bài này với. Mình đang rất cần!!!

Bài 1: Nhập xâu S. Viết CT con đổi chứ thường trong xâu S ---> chứ hoa. Sau đó xóa kí tự trắng.
Bài 2: Tạo tệp vs đường dẫn D:\11A2.TXT chứa:
Dòng 1: N số nguyên
Dòng 2: Dãy số nguyên từ 1 đến N
Dòng 3: Số lượng số chẵn, lẻ trong dãy.
Mở tệp D:\11A3.TXT chứa:
Dòng 1: Tổng n số nguyên
Dòng 2: Sx n theo thứ tự giảm dần
Dòng 3: Số lượng số chẵn, lẻ. HẾttttttttt

Cố gắng giúp mình ngay trong đêm nay nha!!
PM: [email protected] (online mọi lúc mọi nơi)

[canhotanbinh]

Bài này đơn giản thôi mà, cần kiến thức cơ bản về xâu, mảng 1 chiều, tệp. Thuật toán sắp xếp thế thôi bạn ah!
Đợi 1 lát mình sẽ viết và gửi cho bạn ngay đây!

[PhamQuangVinh]

cố găng ngay trong tối nay nha bạn
Cho mình nick yahoo luôn

[greenstars_dj]

Bài 1
Var X:string;
Function doi(Var S:string):string;
Var  i,k:integer;
Begin
k:=length(S);
{Dổi chữ thường thành hoa}
For i:=1 to k do
  if S[i]<>upcase(S[i]) then
         S[i]:=upcase(S[i]);
{Xóa các dấu cách trống vẫn dùng xâu S hoặc bạn có thể dùng xâu trung gian thì dễ hơn cũng được}
  i:=1;
  while i<=k do
  Begin
   while S[i]=' ' do
   delete (S,i,1);
   i:=i+1;
  End;
doi:=S;
End;
{Chuong trinh chinh}
BEGIN
Write('Nhap vao 1 xau:'); Readln(X);
write('Xau ket qua la:',doi(X));
Readln
End.

---------------------------------Bài viết đã được trộn ---------------------------------
Đề bài 2 mình chưa hiểu lắm. Các số từ 1 đến N. Ở đây chỉ số phần tử từ 1 đến N hay thế nào
1,2,3....,N
hay a1,a2,...,an

[tienhuy111]

Mà ở dòng 3 tệp 11A2.TXT chứa số lượng số chẵn, số lượng số lẻ mà ở dòng 3 tệp 11S3.txt cũng chứa số lượng số chẵn, số lượng số lẻ là thế nào. Bạn xem lại đề đi nhé. mÌnh sẽ giúp!

[drspillerseo]

Code bài 2 đây ban ah. Bạn xem thế nào đúng ý chưa nhé!

Var f1,f2:text;
i,j,N,T,Tg,dc,dl:integer;
A:array[1..100] of Integer;
Begin
 assign(f1,'D:\11A2.TXT');
 Reset(f1);
 assign(f2,'D:\11A3.TXT');
 Rewrite(f2);
 Readln(f1,N);
 For i:=1 to N do Read(f1,A[i]);
 For i:=1 to N do T:=T+A[i];
 writeln(f2,'Tong cac phan tu trong day la:',T);
 {Sap xep mang theo chieu giam dan
 Thuat toan sap xep noi bot}
 For i:=1 to N-1 do
  For j:=i+1 to N do
    If A[i]<A[j] then
      Begin
        Tg:=A[i];
        A[i]:=A[j];
        A[j]:=tg;
      End;
 writeln(f2,'mang sau khi sap xep theo chieu giam dan la:');
 For i:=1 to N do write(f2,A[i]:4);writeln(f2);
 {Dem so phan tu chan, le}
 dl:=0;dc:=0;
 For i:=1 to N do
 if A[i] mod 2 = 0 then dc:=dc+1 else dl:=dl+1;
 writeln(f2,'So phan tu chan la:',dc,' ', 'So phan tu le la:',dl);
 close(f1);
 close(f2);
 End.

[vietnamtui11]

bạn add nick phucduongkissto nói chuyện cho dễ

[ducquan1008]

mình cũng chưa hiểu đề cho lắm. Nhưng đề như thất bạn ah!
chỗ 1 đến N là hình như nhập phần tử thứ 1 đến N thì phải.
Mà tệp 11A2.txt là tự tạo hay phải chạy trong chương trình bạn
Mà bạn làm bài này theo chương trình con đc ko?

[xuanquy.dkt]

Nhấn cho tớ mấy cái cám ơn, tớ sẽ giúp cho. Tớ thích được cám ơn mà. Hi hi
---------------------------------Bài viết đã được trộn ---------------------------------
Tệp 11A2 là tệp chứa dữ liệu đọc vào còn tệp 11A3 là tệp chứa kết quả được ghi vào bạn ahbạn ah. Bạn nắm vững kiến thức phần tệp chứ.Nếu không vững thì bạn cần phải xem lại ngay đi

[thangvigreenland]

vậy nghĩa là phải tạo sẵn 11a2.txt với cá dữ liệu đó trước fai ko bạn?