Giải bài tập 5 trang 79 sgk tin 11

Giải bài tập Tin học 11 trang 79,80

Bài 5 [trang 79 sgk Tin học lớp 11]: Viết chương trình nhập từ bàn phím số nguyên dương N [N ≤100] và dãy A gồm N số nguyên A1...AN có giá trị tuyệt đối lớn hơn 1000. Hãy cho biết dãy A có phải là một cấp số cộng hay không và thông báo kết quả ra màn hình.

Trả lời:

Nếu dãy chỉ có một số hoặc hai số thì chắc chắn là cấp số cộng.

Nếu dãy có hơn hai số thì tính công sai là a[1]-a[0] sau đó duyệt cả mảng nếu có số nào vi phạm quy luật của cấp số cộng a[i] khác a[i-1]+d thì kết luận luôn không là cấp số cộng.

Nếu đến cuối dãy mà không có số nào vi phạm thì kết luận là cấp số cộng.

program csc; uses crt; var a:array[1..100] of integer; i,n,d:integer; t:boolean; begin clrscr; write['nhap so phan tu cua day ']; readln[n]; for i:=1 to n do begin write['a[',i,']=']; readln[a[i]]; end; if n 0 do

  begin

   delete[St, i, 4];

   i := pos[a, St];

  end;

 End;

Begin

 S1 := ‘hoc nua, hoc mai;

 S2 := ‘hoc’;

 Xu_li_xau[S2,S1];

End.

a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây:

b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.

Tham số được khai báo trong chương trình chính được gọi là:

Page 2

• Cho chương trình sau:

  Program Baitap;

  Var S1, S2 : string;

  Procedure Xu_li_xau[a:string; var St:string];

   Var i: byte;

   Begin

    i := pos [a, St];

    while i < > 0 do

    begin

     delete[St, i, 4];

     i := pos[a, St];

    end;

   End;

  Begin

   S1 := ‘hoc nua, hoc mai;

   S2 := ‘hoc’;

   Xu_li_xau[S2,S1];

  End.

  a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây:

  b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.

• Tham số được khai báo trong chương trình chính được gọi là:

• 
  

Page 3

• Cho chương trình sau:

  Program Baitap;

  Var S1, S2 : string;

  Procedure Xu_li_xau[a:string; var St:string];

   Var i: byte;

   Begin

    i := pos [a, St];

    while i < > 0 do

    begin

     delete[St, i, 4];

     i := pos[a, St];

    end;

   End;

  Begin

   S1 := ‘hoc nua, hoc mai;

   S2 := ‘hoc’;

   Xu_li_xau[S2,S1];

  End.

  a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây:

  b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.

• Tham số được khai báo trong chương trình chính được gọi là:

• 
  

Page 4

• Cho chương trình sau:

  Program Baitap;

  Var S1, S2 : string;

  Procedure Xu_li_xau[a:string; var St:string];

   Var i: byte;

   Begin

    i := pos [a, St];

    while i < > 0 do

    begin

     delete[St, i, 4];

     i := pos[a, St];

    end;

   End;

  Begin

   S1 := ‘hoc nua, hoc mai;

   S2 := ‘hoc’;

   Xu_li_xau[S2,S1];

  End.

  a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây:

  b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.

• Tham số được khai báo trong chương trình chính được gọi là:

•