Bài 1. Sử dụng vòng lặp để giải quyết bài toán. Viết CT tính tổng sau với n là số tự nhiên S= 1/2+1/4+1/8+1/16+…+1/n+1/n*2 Bài 2. Viết CT sử dụng bi

Bài 1. Sử dụng vòng lặp để giải quyết bài toán. Viết CT tính tổng sau với n là số tự nhiên
S= 1/2+1/4+1/8+1/16+…+1/n+1/n*2
Bài 2. Viết CT sử dụng biến mảng nhập vào 4 phần tử là số nguyên
– Tính trung bình cộng của dãy số nguyên đó
– Tìm tất cả các phần tử là số chẵn, lẻ
– Tìm phần tử có giá trị lớn nhất, nhỏ nhất
– Đếm số phần tử lẻ, chẵn
Mong mn lm chính xác, rõ ràng, nếu có thể gửi chương trình chạy thì càng tốt.
THANK YOU VERY MUCH

0 bình luận về “Bài 1. Sử dụng vòng lặp để giải quyết bài toán. Viết CT tính tổng sau với n là số tự nhiên S= 1/2+1/4+1/8+1/16+…+1/n+1/n*2 Bài 2. Viết CT sử dụng bi”

  1. Uses Crt;
    Var a:array[1..1000] of integer;
    i,n,s:integer; TBC:real;
    Demc,Deml,max,min:integer;
    Begin
    Clrscr;
    For i:= 1 to 4 do
    Begin
    Write(‘Nhap a[‘,i,’]= ‘); Readln(a[i]);
    End;
    For i:= 1 to 4 do
    Begin
    If a[i] mod 2 = 0 then Demc:=Demc+1;
    If a[i] mod 2 <> 0 then Deml:=Deml+1;
    S:=S+a[i];
    TBC:=S/4;
    End;
      Writeln;
    Write(‘TBC cua day so nguyen do = ‘,TBC:1:2);
      Writeln;
      Writeln;
    Write(‘ Cac so chan co trong day la: ‘);
      For i:= 1 to 4 do If a[i] mod 2 = 0 then write(a[i]:4);
    Writeln;
     max:=a[1]; min:=a[1];
      For i:= 2 to 4 do
    Begin
    If max<a[i] then max:=a[i];
    If min>a[i] then min:=a[i];
    End;
    Write(‘ Cac so le co trong day la: ‘);
    For i:= 1 to 4 do If a[i] mod 2 = 1 then Write(a[i]:4);
      Writeln;
      Writeln;
    Write(‘ So lon nhat trong day la: ‘,max);
      Writeln;
    Write(‘ So nho nhat trong day la: ‘,min);
      Writeln;
      Writeln;
    Writeln(‘ Co ‘,Demc,’ so chan trong day so tren’);
    Writeln(‘ Co ‘,Deml,’ so le trong day so tren’);
    Readln
    End.
    *Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhé! Thanks 😀

    Bình luận
  2. program Bai_1;

    uses crt;

    var n,i : integer; s:real;

    begin

    clrscr;

    write (‘Nhap n :’); readln(n);

    for i:= 1 to n do s:=s+1/(2*i);

    write (‘S=’,s);

    readln;

    end

    Bình luận

Viết một bình luận