Что означает оператор inc в паскале в данном случае и на сколько увеличение?Var A:array[1..20,1..20] of integer;
i,j,n,k,s:integer;
Begin
write('Введите размерность: ');readln(n);
For i:=1 to n do
Begin
For j:=1 to n do
Begin
A[i,j]:=random(31)-15;
write(A[i,j]:4);
End;
writeln;
End;
k:=0;s:=0;
For i:=1 to n do
For j:=1 to n do
if (i0) then
Begin
inc(k);
s:=s+A[i,j];
End;
writeln('Сумма положительных над главной диагональю: ',s);
writeln('Кол-во положительных над главной диагональю: ',k);
readln;
End.
var c: string;
begin
writeln('Введите 1 число.');
readln(a);
writeln('Введите 2 число.');
readln(b);
writeln('Знак операции.');
readln(c);
if c='*' then writeln(a*b);
if c='/' then writeln(a/b);
if c='-' then writeln(a-b);
if c='+' then writeln(a+b);
end.
2 ЗАДАЧА
var a, b: real;
begin
writeln('Зарабаток Пети:');
readln(a);
writeln('Зарабаток Петрова:');
readln(b);
if a>b then writeln('Петя заработал больше Петрова.')
else if a=b then writeln('Петров и Петя заработали одинаково.')
else
writeln('Петров заработал больше Пети.');
writeln('Среднее: ', (a+b)/2);
end.
2. Что такое "тело оператора цикла"?
3. Может ли тело оператора цикла с параметром не выполниться ни разу?
4. Как должен быть оформлен оператор цикла с параметром, чтобы тело цикла выполнялось при уменьшающихся значениях параметра цикла? Как он будет работать (что будет происходить при его выполнении)? Нарисуйте графическую схему выполнения.
5. Чему равно количество повторений тела оператора цикла с параметром, если параметр цикла принимает:
а) все целые значения от 1 до 10?
б) все целые значения от a до b?
в) все нечетные значения от 1 до 20?1
г) все нечетные значения от 1 до n?2
д) все значения от 10 до 100 с шагом 7?3
е) все значения от 1,5 до 10,3 с шагом 0,4?4
ж) все значения от a до b с шагом step?5
6. Можно ли в теле оператора цикла с параметром не использовать величину- параметр цикла?
7. Почему в программировании существует правило: нельзя изменять параметр цикла в теле оператора цикла?
Правильно?