const
n = 5;
var
i, j, k: integer;
a: array[1..n] of integer;
p: boolean;
begin
randomize;
for i := 1 to n do
repeat
k := random(90) + 1;
j := 1;
p := True;
while p and (j < i) do
if a[j] = k then
p := False
else
j := j + 1;
if p then
a[i] := k;
until p = True;
for i := 1 to n do
write(a[i], ' ');
end.
Редактор Flash Professional?
Ну тут все предельно ясно. Учитель- это управляющий объект, а ученики - это объект управления. Учитель передаёт знание ученикам.(прямая связь)
А ученики например:отвечают на вопросы или задают их(обратная связь)
И если учитель понимает, что ученики делают ошибку ( судя по проверочным, контрольным и т.д.) И может провести доп занятия или повтор этой темы( которые не поняли ученики)
Линейная структура на языке <u>Pascal</u>
Нахождение расстояния
var V,S,t:real;
begin
readln(V,t);
S:=V*t;
writeln(S);
end.
Ветвление
var a,b:integer;
begin
readln(a,b);
if (a>b) then writeln('+++') else
writeln('---');
readln;
end.
Цикл
var i:integer;
begin
for i:=1 to 5 do writeln(i);
readln;
end.
Знак $ указывает на абсолютную ссылку, столбец, или строка
перед которой стоит $ при копировании не изменяется.
<span>Поэтому при копировании в пределах одного столбца, $1 не
изменяется строка и везде будет
=A$1^2+10</span>
Если бы не было $1
то было бы
=A1^2+10
=A2^2+10
=A3^2+10
...
При копировании в пределах одной строки, $1 не изменяется, а
изменяется только столбец,
поэтому будет:
<span>=A$1^2+10
в следующей =B$1^2+10 дальше =C$1^2+10
дальше =D$1^2+10
дальше ……</span>
<span>Поскольку А первый столбец, то при копировании влево будет
ошибка.</span>