Lập trình đơn giản

Eriken

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]

Luân Đào
18 tháng 2 2019 lúc 18:38

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.

Bình luận (0)
Luân Đào
18 tháng 2 2019 lúc 18:45

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.

Bình luận (1)
híp
18 tháng 2 2019 lúc 18:48

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.

Bình luận (0)
Luân Đào
18 tháng 2 2019 lúc 19:14

.

Bình luận (1)
Luân Đào
18 tháng 2 2019 lúc 19:14

.

Bình luận (0)
híp
19 tháng 2 2019 lúc 12:53

.

Bình luận (0)
Eriken
18 tháng 2 2019 lúc 18:53

@Bastkoo @Nguyễn Nhật Minh Vy Lan Lê ; tài trợ giúp mikkk nha

Bình luận (0)

Các câu hỏi tương tự
Eriken
Xem chi tiết
Dấu tên
Xem chi tiết
duyy
Xem chi tiết
Thị Ngọc Phan
Xem chi tiết
Chóii Changg
Xem chi tiết
Hắc Phong
Xem chi tiết
khonopro
Xem chi tiết
Kim Thái
Xem chi tiết
Nguyễn Công Vinh
Xem chi tiết