Const xn =100;var a,b,i,j:integer;t:string;n:array[0..xn] of integer;beginReadln(b);for i:=0 to b do beginn[i]:= round(random() *10);t:= 'n[' + inttostr(i) + '] =';writeln(t, n[i]);end;
writeln;writeln;
Readln(a,b);for i:=a to b do beginn[i]:= Round(random() *10);t:= 'n[' + inttostr(i) + '] =';writeln(t, n[i]);end;
writeln;writeln;
var n1:array[0..xn] of real;beginReadln(b);for i:=0 to b do beginn1[i]:= random() *10;t:= 'n1[' + inttostr(i) + '] =';writeln(t, n1[i]);end;
writeln;writeln;
Readln(a,b);for i:=a to b do beginn1[i]:= random() *10;t:= 'n1[' + inttostr(i) + '] =';writeln(t, n1[i]);
end;end;end.
П о р д а ы э к е н г ф й ц у я ч
Вот пример правильной трассировочной таблицы. Впредь делайте именно так.
Из таблицы видно, что в момент завершения программы переменная с будет иметь значение 2.
Program func;
const
H = 0.2;
var
i, y, sum: real;
function Func(x:real):real;
begin
Func := x * Cos( (2 * x) );
end;
begin
i := -1;
sum := 0;
while i<=1 do
begin
y := Func(i);
if y>0 then
sum := sum + y;
i := i + H;
end;
end.
Андреев из Екатеринбурга
<span>Борисов из Перми </span>
<span>Васильев из Омска </span>
<span>Григорьев из Челябинск </span>
<span>Данилов из Новосибирска</span>