برنامج لاختبارالخطرات العليا الدنيا من أجل القيمة المعيارية

program highlow;
uses wincrt;
var r:array[1..300]of real;
y:array[1..290]of -1..1;
n,a,i:longint;
mew,z0,segma,zalfa:real;

begin { main }
zalfa:=1.96;
readln(n);
for i:=1 to n do
readln(r[i]);
for i:=1 to n-1 do
if r[i+1]>=r[i] then
begin
writeln('+');y[i]:=1;
end
else
begin
writeln('-');
y[i]:=-1;
end;
a:=1;
for i:=1 to n-1 do
if (y[i]*y[i+1]<0) then a:=a+1;
writeln('a=',a);
mew:=(2*n-1)/3;
segma:=(a-mew)/sqrt(segma);
writeln('z0',z0);
if abs(z0)<=zalfa then
writeln('yes') else writeln('no');
end.

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]