Написать программу, которая выводит на экран сумму ряда
пусть a – числитель; b – знаменатель; da и db – шаг для числителя и знаменателя; n - для смены знака; Программа: const da= -18; {927-945} db= 24; {33-9} var a,b,n: integer; s: real; begin s:=0; n:=1; a:=945;b:=9; while a>=27 do begin s:=s+a/b*n; {подсчет суммы} a:=a+da; b:=b+db; n:= -1*n; {изменение знака} end; writeln('s=',s:4:2); end.
procedure show(x: array100; n: integer); var i:integer; begin writeln(); writeln('Вывод массива[',n,']:'); for i := 1 to n do write(x[i], ' '); writeln(); end;
begin n := 20; max := -200; min := 200;
for i := 1 to n do begin x[i] := random(2*n) - n; end; show(x, n);
for i := 1 to n do begin if (x[i] > 0) and (x[i] mod 2 = 1) then begin if x[i] > max then max := x[i]; if x[i] < min then min := x[i]; end; end; writeln('Max = ', max, ' Min = ', min);
i := 1; while i <= n do begin if x[i] = 0 then begin for j := i + 1 to n do x[j - 1] := x[j]; n := n - 1; end else i := i + 1; end; show(x,n); end.
пусть a – числитель; b – знаменатель; da и db – шаг для числителя и знаменателя; n - для смены знака;
Программа:
const
da= -18; {927-945}
db= 24; {33-9}
var a,b,n: integer;
s: real;
begin
s:=0; n:=1; a:=945;b:=9;
while a>=27 do
begin
s:=s+a/b*n; {подсчет суммы}
a:=a+da;
b:=b+db;
n:= -1*n; {изменение знака}
end;
writeln('s=',s:4:2);
end.