Tin học Bài tập lập trình Pascal tin học 11

[hoangngonbang]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Bài 1
Cho dãy a gồm n số:
a) Tổng giá trị các số chia hết cho k
b) Tạo 1 mảng b mới sao cho b = b(i-1) - a(i)
c) Xóa số lẻ mảng a
Bài 2
Nhập 2 xâu
a) Đếm xem xâu 1 xuất hiện trong xâu 2 mấy lần
b) Lập xâu 3 chứa các chữ số của xâu hai, tính tổng các chữ số.
Hiện em đã giải được câu a bài 1
var A: array[1..n] of integer;
n,i,T: integer;
begin
writeln('Nhap n'); Readln(n);
writeln('Nhap k'); Readln(k);
T:=0;
For i:= 1 to n do
Begin
write('Nhap A[',i,']=');Readln(A);
If A mod k = 0 then T:= T+A;
End;
writeln('Tong cac so chia het cho k la',T);
Mọi người dò giùm em ý a và giải đáp cho em các ý còn lại được không ạ? Cảm ơn mọi người!

 

[Trâm Nguyễn Thị Ngọc]

Bài 2:a,b

Var
 s1,s2,s3:string;
 i,d,code,n,t:integer;
Begin
 readln(s1);readln(s2);
 Chuẩn hóa 2 xâu
 If length(s2)>=length(s1) then
   For i:=1 to length(s2) do
     If s1=Copy(s2,i,length(s1)) then d:=d+1;
   write('..',d);
s3:='';
 For i:=1 to length(s2) do
   if s2[i] in ['0'..'9'] then s3:=s3+s2[i];
For i:=1 to length(s3) do
  Begin
    Val(s3[i],n,code);
    t:=t+n;
  end;
write('..',n);
readln
End.

Bài 1:
c.

For i:=1 to n do
  if a[i] mod 2<>0 then
    begin
      For k:=i to n-1 do
         a[k]:=a[k+1];
      n:=n-1;
    end;

Bài 1c mình chỉ làm mỗi thuật toán thôi, bn tự khai báo và in vào nha. Rồi kt lại câu 2 luôn, mình làm vội nên có thể có lỗi ở đó

 

[hoangngonbang]

Bài 2:a,b

Var
 s1,s2,s3:string;
 i,d,code,n,t:integer;
Begin
 readln(s1);readln(s2);
 Chuẩn hóa 2 xâu
 If length(s2)>=length(s1) then
   For i:=1 to length(s2) do
     If s1=Copy(s2,i,length(s1)) then d:=d+1;
   write('..',d);
 For i:=1 to length(s2) do
   if s2[i] in ['0'..'9'] then s3:=s3+s2[i];
For i:=1 to length(s3) do
  Begin
    Val(s3[i],n,code);
    t:=t+n;
  end;
write('..',n);
readln
End.

Bài 1:
c.

For i:=1 to n do
  if a[i] mod 2<>0 then
    begin
      For k:=i to n-1 do
         a[k]:=a[k+1];
      n:=n-1;
    end;

Bài 1c mình chỉ làm mỗi thuật toán thôi, bn tự khai báo và in vào nha. Rồi kt lại câu 2 luôn, mình làm vội nên có thể có lỗi ở đó

Cảm ơn bạn nhiều nhiều nha

 

[Trâm Nguyễn Thị Ngọc]

Cảm ơn bạn nhiều nhiều nha

Câu 1b đề có nghĩa là sao vậy bạn

 

[hoangngonbang]

Câu 1b đề có nghĩa là sao vậy bạn

Câu đó là tạo mảng b mới dựa vào điều kiện đó bạn.

 

[Trâm Nguyễn Thị Ngọc]

Câu đó là tạo mảng b mới dựa vào điều kiện đó bạn.

Nhưng đk đó có nghĩa là gì vậy bn . b = b(i-1) - a(i) là sao nhỉ

 

[hoangngonbang]

Nhưng đk đó có nghĩa là gì vậy bn . b = b(i-1) - a(i) là sao nhỉ

Cái này trong sgk có bài tương tự bạn ạ. Đề trong đó là tạo mảng B trong đó B là tổng của i phần tử đầu tiên của a. Nhưng dòng lệnh mẫu trong đó là b = b(i-1) + a(i)