Циклы с накплением

[sharke]

Хорошо)))
Var Rn,Rk,dR,R,c,d,n,m,z,a,p:real;
K:integer;


begin
{ TODO -oUser -cConsole Main : Insert code here }
Writeln ('vvedite Rn,Rk,dR,c,d,n,m');
Readln (Rn,Rk,dR,c,d,n,m);
R:=Rn;
K:=0;
P:=1;
If c>1 then if d>n then a:=d else a:=n
Else if m<1 then a:=m else a:=1;
While R<=Rk do begin
Z:=R+3*a;
If Z>0 then k:=k+1;
if z<0 then p:=p*z;
Writeln ('R=',R:4:1, ' a=',a:4:1,' z=',z:4:1);
R:=R+dR;
End;

вот это сделано

Если количество положительных значений Z > = 5( >= это больше или равно), то вычеслить произведение отрицательных значений функции
Распечатать табличные значения

а вот это условие не могу ни как

[Сергeй]

И где у тебя массив, в котором хранятся аргументы ф-ции и соответствующие им вычисленные значения ?
Что распечатывать-то собрался ?

[sharke]

хм... у нас именно так, нечего лишнего не надо... это показывал преподователю все отлично, дальнейшее условие выполнить не могу

[sharke]

Writeln ('R=',R:4:1, ' a=',a:4:1,' z=',z:4:1); а выводит он именно это

[Сергeй]

> у нас именно так, нечего лишнего не надо

Уж не знаю, у кого это "у вас", но если речь идет об обработке таблично заданной ф-ции, эту самую ф-цию сначала надо сформировать и где-то сохранить..

[sharke]

ты мне обьясни только как выполнять Если количество положительных значений Z > = 5( >= это больше или равно), то вычеслить произведение отрицательных значений функции

[ОДИНОЧЕСТВО В СЕТИ]

if k>=5 then writeln(p:6:3);
Поставь после end; и наслаждайся))

[Сергeй]

после выхода из цикла:

if k >= 5 then
WriteLn('Произведение отриц.значений = ', p)

[sharke]

а в остальном все правельно?, это задание первого курса , по специальности приклодная информатика в экономике

[sharke]

немного покумекав я пришел к такому вот
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
Var Rn,Rk,dR,R,c,d,n,l,z,a,p:real;
K:integer;


begin
{ TODO -oUser -cConsole Main : Insert code here }
Writeln ('vvedite Rn,Rk,dR,c,d,n,m');
Readln (Rn,Rk,dR,c,d,n,r,l);
R:=Rn;
K:=0;
P:=1;
If c>1 then if d>n then a:=d else a:=n
Else if c<1 then a:=r else a:=l;
While R<=Rk do begin
Z:=R+3*a;
If Z>0 then k:=k+1;
if z<0 then p:=p*z;
Writeln ('R=',R:4:1, ' a=',a:4:1,' z=',z:4:1);
R:=R+dR;
End;
Writeln (' kolichest?o Z>0 k=', k);
If k>=5 then WriteLn('proizvedenie oticatelbnux zna4enii = ', p:4:1);
readln;




end.
Проверте пожалуйста