Bài 8. Lặp với số lần chưa biết trước

Nguyễn Lê Phước Thịnh

mình đang cần bài này gấp

tính tổng a1+a2+a3+...+an , với a,n là số tự nhiên nhập từ bàn phím.( sử dụng chương trình con cho phần nhập , tính tổng và ở chương trình chính chỉ cần xuất )

Mysterious Person
8 tháng 1 2019 lúc 20:50

program giaitin_hoc24;

uses crt ;

var a,n : real;

A:real;

begin

clrscr;

write(' a,n : ');

readln(a,n);

A:=A+ axp(n) ;

write('A= ', A:6:2);

readln

end.

Bình luận (2)
Trương Quang Dũng
8 tháng 1 2019 lúc 21:02

program bai1;

var i,a,n,s,t:longint;

f1,f2:text;

function amux(a,x:longint):longint;

var s,i:longint;

begin

s:1;

for i:=1 to x do

s:=s*a;

amux:=s;

end;

begin

assign(f1,'bai1.inp';reset(f1);

assign(f2,'bai1.out');rewrite(f2);

read(f1,a);readln(f1,n);

s:=0;

for i:=1 to n do

begin

t:=amux(a,i);

s:=s+t;

end;

write(f1,s);

close(f1);close(f2);

end.

Bình luận (0)
Thời Sênh
7 tháng 1 2019 lúc 12:45

Xin lỗi bạn, nick mình có khả năng đang bị hack

Bình luận (7)
Ngố ngây ngô
8 tháng 1 2019 lúc 9:09

Bạn nào trả lười được tặng 1GP nè, trả lời nhanh có khi còn được 2GP đấy

Bà con mại zô

Bình luận (9)
Tú Nguyễn
8 tháng 1 2019 lúc 12:41

mik ko viết ct con nha vì nó dài,phức tạp và rối

var a,n,i:integer;

t:real;

begin

write('a=');readln(a);

write('n=');readln(n);

t:=0;

for i:=1 to n do

t:=t+exp(ln(a)*n)-1;

writeln(' Tong la: ',t);

readln;

end.

Bình luận (0)
Tú Nguyễn
8 tháng 1 2019 lúc 12:48

var a,n,i:integer;

t:real;

begin

write('a=');readln(a);

write('n=');readln(n);

t:=0;

for i:=1 to n do

t:=t+exp(ln(a)*n)-3.5;

writeln(' Tong la: ',t);

readln;

end.

Bình luận (0)
Tú Nguyễn
8 tháng 1 2019 lúc 12:50

hình như k đúng

Bình luận (3)
Eriken
11 tháng 1 2019 lúc 10:50

làm nè

Bài  8. Lặp với số lần chưa biết trước

Bình luận (3)
Eriken
11 tháng 1 2019 lúc 19:07

Làm lại nãy làm nhầm

Bài  8. Lặp với số lần chưa biết trước

Bình luận (4)
Ngố ngây ngô
7 tháng 1 2019 lúc 8:15

1GP cho bạn nào trả lời được câu này

@Đoàn Gia Khánh Tú Nguyễn B (Erik) Trương Quang Dũng

Bình luận (7)
Ngố ngây ngô
7 tháng 1 2019 lúc 9:13

@Luân Đào nốt luôn cậu

Bình luận (0)
Thời Sênh
7 tháng 1 2019 lúc 11:49

hỏi ngu vãi

Bình luận (0)
Tú Nguyễn
8 tháng 1 2019 lúc 12:48

thử 1 trong 2 nha cái nào dc thì tích hộ

Bình luận (0)
Na Gaming
19 tháng 5 2022 lúc 1:11

program giaitin_hoc24;

uses crt ;

var a,n : real;

A:real;

begin

clrscr;

write(' a,n : ');

readln(a,n);

A:=A+ axp(n) ;

write('A= ', A:6:2);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Thu Anh
Xem chi tiết
Nhật Duy Lê Võ
Xem chi tiết
Lê Nguyễn Thanh Quân
Xem chi tiết
Quý Phạm
Xem chi tiết
Nguyễn Thị Ngọc Oanh
Xem chi tiết
Thu Tuyền
Xem chi tiết
Thanh huyền
Xem chi tiết
Ngọc Tú
Xem chi tiết
nhan tran
Xem chi tiết