NGÀY ĐẦU TUẦN VUI VẺ:
- Chuyên mục về tin học (mong các bạn ủng hộ)
- Về câu hỏi như sau :
1) Hãy viết chương trình in kết quả ra màn hình : \(\dfrac{1}{1.2}+\dfrac{1}{2.3}+\dfrac{1}{3.4}+...+\dfrac{1}{99.100}\)
2) Viết chương trình tính diện tích của tam giác có ba cạnh là a, b, c với a,b,c được nhập từ bàn phím
3) Cho hay số sau : 9;6;1;8;4;2;7 . Hãy sắp các số theo thứ tự tăng dần
- Phần thưởng như sau : (1-2GP) ; (2-2GP) ; (3-3GP) [các bạn trả lời xong cmt để được tick]
Câu 1:
program cau1;
uses crt;
var i: integer;
begin
clrscr;
A:=0;
for i:=1 to 99 do
A:=A+1/(i*(i+1));
write('Ket qua cua phep tinh A la ',A);
readln
end.
Câu 2:
program cau2;
uses crt;
var a,b,c,p,s: real;
begin
clrscr;
write('Do dai canh a la '); read(a);
write('Do dai canh b la '); read(b);
write('Do dai canh c la '); read(c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
write('Dien tich tam giac do la ',s:5:2);
readln
end.
1) program tinhtong;
var i:integer;
tong:real;
begin
tong:=0;
for i:=1 to 99 do tong:=tong+1/(i*(i+1));
writeln('tong la:',tong);
readln
end.
@Bastkoo @Nguyễn Nhật Minh Vy Lan Lê ; tài trợ giúp mikkk nha
