Câu 1 Bước 1 nhập n và dãy a1,a2, a3,-an Bước 2 s = 0 i= 0 Bước 3 Nếu i>N. Xuất S, kết thúc Bước 4 Nếu ai>0 thì S = S + ai^2 Bước 5 i <=- i+1 lặp

0 bình luận về “Câu 1 Bước 1 nhập n và dãy a1,a2, a3,-an Bước 2 s = 0 i= 0 Bước 3 Nếu i>N. Xuất S, kết thúc Bước 4 Nếu ai>0 thì S = S + ai^2 Bước 5 i <=- i+1 lặp”

1. Câu 1 Bước 1 nhập n và dãy a1,a2, a3,….an Bước 2 s = 0 i= 0 Bước 3 Nếu i>N. Xuất S, kết thúc Bước 4 Nếu ai>0 thì S = S + ai^2 Bước 5 i <—- i+1 lặp lại bước 3 a) thuật toán trên thực hiện công việc gì b) chuyển đổi thuật toán trên sang sơ đồ khối Câu 2 Bước 1: nhập N và dãy a1, a2, a3,…an Bước 2: S = 1, i=1 Bước 3 nếu i>N. Xuất S, kết thúc Bước 4 Nếu ai>0 thì S=S*ai Bước 5 i<—– i+1 lặp lại b3 a) thuật toán trên thực hiện công việc gì b) chuyển đổi thuật toán trên sang sơ đồ khố Câu 3 Bước 1 nhập n và dãy a1 a2 an; Bước 2 min<—– a1, i<—-2; Bước 3 Nếu i>N thì đưa ra giá trị min ra và kết thúc Bước 4 nếu ai< min thì min<—– ai Bước 5 i<—- i+1 rồi quay lại bước 3 a) thuật toán trên thực hiện công việc gì b) chuyển đổi thuật toán trên trang sơ đồ khối

   uses crt;
   var m: array[1..100] of integer;
       n,i,max,j,t,scp: integer;
   begin
    clrscr;
     write (‘nhap n: ‘);  readln (n);
     for i:=1 to n do
      begin
       write (‘nhap m[‘,i,’]: ‘);  readln (m[i]);
       if max<=abs(m[i]) then max:=abs(m[i]);
      end;
     for i:=1 to n-1 do
      for j:=i+1 to n do
       if m[i]<m[j] then
        begin
         t:=m[i];
         m[i]:=m[j];
         m[j]:=t;
        end;
     write (‘day sau khi sap xep giam dan: ‘);
     for i:=1 to n do write (m[i],’ ‘);
     writeln;
     writeln (‘gia tri tuyet doi lon nhat trong day: ‘,max);
     write (‘cac so chinh phuong trong day: ‘);
     for i:=1 to n do
      begin
       scp:=trunc(sqrt(m[i]));
       if sqr(scp)=m[i] then
       write (m[i],’ ‘);
      end;
    readln;
   end.

   Bình luận