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

Thảo luận trong 'Dòng họ c , c++ , c#' bắt đầu bởi hoangngonbang, 14 Tháng ba 2019.

Lượt xem: 83

  1. hoangngonbang

    hoangngonbang Học sinh mới Thành viên

    Bài viết:
    4
    Điểm thành tích:
    16
    Nơi ở:
    Quảng Bình
    Trường học/Cơ quan:
    THPT QH
    Sở hữu bí kíp ĐỖ ĐẠI HỌC ít nhất 24đ - Đặt chỗ ngay!

    Đọc sách & cùng chia sẻ cảm nhận về sách số 2


    Chào bạn mới. Bạn hãy đăng nhập và hỗ trợ thành viên môn học bạn học tốt. Cộng đồng sẽ hỗ trợ bạn CHÂN THÀNH khi bạn cần trợ giúp. Đừng chỉ nghĩ cho riêng mình. Hãy cho đi để cuộc sống này ý nghĩa hơn bạn nhé. Yêu thương!

    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!
     
  2. Trâm Nguyễn Thị Ngọc

    Trâm Nguyễn Thị Ngọc Học sinh chăm học Thành viên

    Bài viết:
    519
    Điểm thành tích:
    86
    Nơi ở:
    Quảng Trị
    Trường học/Cơ quan:
    Trường TH&THCS Hải Ba

    Bài 2:a,b
    Mã:
    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.
    Mã:
    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 thích bài này.
  3. hoangngonbang

    hoangngonbang Học sinh mới Thành viên

    Bài viết:
    4
    Điểm thành tích:
    16
    Nơi ở:
    Quảng Bình
    Trường học/Cơ quan:
    THPT QH

    Cảm ơn bạn nhiều nhiều nha
     
  4. Trâm Nguyễn Thị Ngọc

    Trâm Nguyễn Thị Ngọc Học sinh chăm học Thành viên

    Bài viết:
    519
    Điểm thành tích:
    86
    Nơi ở:
    Quảng Trị
    Trường học/Cơ quan:
    Trường TH&THCS Hải Ba

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

    hoangngonbang Học sinh mới Thành viên

    Bài viết:
    4
    Điểm thành tích:
    16
    Nơi ở:
    Quảng Bình
    Trường học/Cơ quan:
    THPT QH

    Câu đó là tạo mảng b mới dựa vào điều kiện đó bạn.
     
  6. Trâm Nguyễn Thị Ngọc

    Trâm Nguyễn Thị Ngọc Học sinh chăm học Thành viên

    Bài viết:
    519
    Điểm thành tích:
    86
    Nơi ở:
    Quảng Trị
    Trường học/Cơ quan:
    Trường TH&THCS Hải Ba

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

    hoangngonbang Học sinh mới Thành viên

    Bài viết:
    4
    Điểm thành tích:
    16
    Nơi ở:
    Quảng Bình
    Trường học/Cơ quan:
    THPT QH

    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)
     
Chú ý: Trả lời bài viết tuân thủ NỘI QUY. Xin cảm ơn!

Draft saved Draft deleted

CHIA SẺ TRANG NÀY

-->