Viết chương trình nhập vào từ bàn phím dãy số thực a. Tính tổng a1 - a2 + a3 -.... . Kết quả được ghi vào tệp văn bản có tên là ketqua.txt.

thanhdongngac

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 33 xem

1 trả lời

Thích Trả lời

zzsoha99

program pht;
uses crt;
var A: array[1..500] of real;
i, n: integer;
s: real;
op: text;
begin
clrscr;
assign(op, 'D:\ketqua.txt');
rewrite(op);
write('Nhap n = '); readln(n);
s:=0;
for i:=1 to n do
begin
write('A[', i, '] ='); readln(A[i]);
if i mod 2 <> 0 then s:=s+A[i] else s:=s-A[i];
end;
write(op, 'Tong = ', s);
close(op);
write('Mo file de xem ket qua');
readln
end.

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

thingoclan2007

uses crt;
var f:text;
a:array[1..1000000] of real;
n,i:longint;
s:extended;
begin
clrscr;
assign(f,'ketqua.txt'); rewrite(f);
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); read(a[i]);
if i mod 2=1 then s:=s+a[i] else s:=s-a[i];
end;
writeln(f,'Tong: ',s:0:2);
close(f);
readln
end.

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

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

Giúp mik mấy câu còn trống nha tks nhiều ( có câu sai thì sửa giúp mik luôn cg đc :v) vote all 5sao

Mọi người giải giúp em với ạ em cảm ơn

câu 1: Một miếng đất hình chữ nhật có diện tích 360 mét vuông. Nếu tăng chiều rộng 2 m và giảm chiều dài 6 m thì mảnh đất không đổi.Tính chu vi mảnh đất lúc ban đầu bằng cách lập hệ phương trình câu 2 : Một miếng đất hình chữ nhật có độ dài đường chéo là 13 m chiều dài hơn chiều rộng 7 m Tính chiều dài và chiều rộng miếng đất đó bằng cách lập hệ phương trình. các bạn giúp mình nhé cách nào dễ hiểu nhất!

$x^{2}$ = $\frac{1}{7}$ Tìm x

Tìm nghiệm của các đa thức sau : a) A(x)=2x +3 b) B(x)=2x+3 c) C(x)=(x+3)(7x+9) d) G(x) = 32x +64x NL : có thể góp ý sửa chữa một số phần cho ad ở đâu ạ

các bạn giải chi tiết giúp mình nhé

Các bạn làm gộ mình bài này với mình đang cần gấpppppppppppp

đề bài cho là CO2 hấp thụ hết trong dung dịch KOH, thì KOH có thể dư k ạ, hay cả 2 chất cùng hết

các bạn ơi giúp mik gấp nhé hứa sẽ cho các bn 5*

Thiết diện của một cái hồ nước là Parapol y = ax^{2} (chọn hệ trục tọa độ vuông góc Oxy (hình vẽ), biết rằng bề ngang của thiết diện là AB = 8m, bề sâu của thiết diện OC = 4m. Xác định hệ số a.

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