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ẻ

ynhiyi

2 năm trước

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

Loga Sinh Học lớp 12

0 lượt thích 19 xem

1 trả lời

Thích Trả lời

duongbangtran

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 :D

Vote (0) Phản hồi (0) 2 năm trước

nam05102001

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

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Cho 1 vật dao động điều hòa với chu kỳ 1,5s và biên độ 4 cm .tính thời gian để vật đi được 2 cm từ vị trí x = - 4 cm

Trong số các tuyến của cơ thể người thì tuyến nào là tuyến pha

Tại sao chỉ bằng việc phân tích kết quả của các phép lai, Menđen lại có thể biết được bên trong tế bào của cơ thể, mỗi cặp nhân tố di truyền quy định một tính trạng và trong mỗi giao tử lại chỉ có một nhân tố di truyền?

Chia sẻ về một cuốn sách mà em yêu thích hoặc một cuốn sách đã làm thay đổi nhận thức hoặc cuộc sống của em - không chép mạng

tim x biet X x2 cong X x3 cong X x4 =2130

Dựa vào dàn ý trên làm 1 đoạn văn hoàn chỉnh .Không chép mạng

Giúp mình với ạ Điều kiện là giải chi tiết dễ hiểu nhé

Bạn nào xg nhanh nhất thì 5 sao nha

Write an essay (150 - 300 words) about this topic: Some people believe that good teamwork is what makes companies successful. Others feel that it is more important to have a good leader. Discuss both views and give your opinion. Mik đang cần gấp mn giúp mik với ❤❤❤❤❤❤❤❤😊😊(●'◡'●)(●'◡'●)(⊙ˍ⊙)

Đọc đoạn văn trên và trả lời câu hỏi: " Bạn có thể không thông mình bẩm sinh nhưng bạn luôn chuyên cần và vượt qua bản thân từng ngày một.Bạn có thể không hát hay nhưng bạn là người không bao giờ trễ hẹn . Bạn không là người giỏi thể thao nhưng bạn có núi cười ấm áp.Bạn không có gương mặt xinh đẹp nhưng bạn rất giỏi thắt cà vạt cho bà và nấu ăn rất ngon.Chắc chắn , mỗi một người trong chúng ta đều được sinh ra với những giá trị có sẵn.Và chính bạn ,hơn ai hết, truớc ai hết, phải biết mình ,phải nhận ra những giá trị đó." (Trích Nếu biết trăm năm là hữu hạn ....- Phạm lữ ân) a) gọi tên phương thức biểu đạt chính được sử dụng trong đoạn trích b) Xác định câu văn nêu khái quát chủ đề của đoạn c) chỉ ra điểm giống nhau về cách lập luận trong 4 câu đầu của đoạn trích d) Cho mọi người biết giá trị riêng ( thế mạnh riêng) của bản thân bạn

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến