Помогите разобраться с этим заданием.
Составить алгоритм и программу обработки членов числовой последователь
Страница: 1
Сообщений 1 страница 4 из 4
Поделиться1Dec 21 2012 14:38:16
Поделиться2Dec 21 2012 21:29:59
Вроде как разобрался, но есть некоторые, непонятные мне, моменты:
Код:
uses crt;
var
a,b,c,d,p,x,x0,h:real;
m,n,k,i:integer;
begin
clrscr;
writeln('Введите A,B,C,D,x0,H,M,N');
read(A,B,C,D,x0,H,M,N);
P:=A;
if (B<P) then P:=B;
if (C>D) then
if (C<P) then P:=C else
if (D<P) then P:=D;
writeln('P=',P:5:2);
for i:=1 to M do
begin
x:=x0+(i-1)*H;
AK:={формула} <=============================================== №2 с картинки
write('A1=',AK:5:2,' ');
if AK{четный} then S:=AK else S:=0; <=============================== как проверить четность?
for k:=2 to N do
begin
AK:={формула} <============================================== №1 с картинки
write('A',k,'=',AK:5:2,' ');
if AK{четный} then S:=S+AK <===================================== как проверить четность?
end;
writeln;
writeln('Сумма четных членов S=',S:5:2,' при P=',P:5:2);
end;
End.Помогите привести последовательность (красная кромка) к такому же результату, как в образце (синяя кромка)
Поделиться3Dec 22 2012 13:55:04
И тишина =((
Поделиться4Dec 22 2012 21:44:42
Zorch написал(а):
if AK{четный} then S:=AK else S:=0; <=============================== как проверить четность?
if ak mod 2 =0 thne s:=ak else s:=0; {Для проверки сравниваем остаток деление 2 с 0 }
Не доганаю как его решить то что обведенно на красным. Функцию лог даже не работал ни разу даже не знаю есть ли такие функции
Страница: 1