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.
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.
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.
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.