Tin học Bài tập về câu lệnh lặp

[01663328907]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Bài 1: Viết chương trình tính các tổng sau:
a, A = 1 + 2 + 3 + 4 +.............+ n
b, B = 1 + 1/3 + 1/5 + 1/7 + .........+ 1/n (lẻ)
c, C = 2 + 4 + 6 +.............+n
Bài 2: Viết chương trình tính:
a, n!
b, n^x (n, x được nhập từ bàn phím)

 

[Junery N]

Bài 1: Viết chương trình tính các tổng sau:
a, A = 1 + 2 + 3 + 4 +.............+ n
b, B = 1 + 1/3 + 1/5 + 1/7 + .........+ 1/n (lẻ)
c, C = 2 + 4 + 6 +.............+n
Bài 2: Viết chương trình tính:
a, n!
b, n^x (n, x được nhập từ bàn phím)

Bài 2: a ( ngôn ngữ nào bạn nhỉ ? )
Pascal
Program CTC_2;

uses crt;

var n:integer;x:longint;

Procedure Giai_Thua(var GT:longint; n:byte);

begin

GT:=1;

while n>0 do

begin

GT:=GT*n;

n:=n-1;

end;

end;

begin

repeat

clrscr;

write('Nhap so n: ');readln(n);

if n < 0 then begin write('Nhap so n>=0');readln; end;

until n>=0;

Giai_Thua(x,n);

writeln('Giai thua cua ',n,'la:',x);

readln

end.
Nguồn expressmagazine