а)под признаками объекта мы будем понимать его...
свойства, действия, поведение, состояния
б)свойства объекта....
отвечают на вопросы: «Чем может отличаться один объект от другого?», «Что может измениться у объекта при выполнении действия?».
в) действие объекта...
отвечаеют на вопросы «Что он может делать?» (активное действие) или «Что с ним можно делать?» (пассивное действие).
д) состаяние объекта...
определённое сочетание значений всех или некоторых свойств этого объекта
Извиняюсь за качество выполнения блок-схемы,я думаю смысл понятен.Можно придумать множество примеров.Вот один из них
1
for i:=1 to 10 do s:=s+T[i]*C[i]
2
a:array[1..31] of real;
3
for i:=1 to N do
begin
readln(a[i];
s:=s+a[i];
end;
s:=s/N;
writeln(s)
4
Program massiv;
Var
a:array[-10..10] of real;
i:integer;
Begin
For
i:=-10 to 10 Do
Read(a[i]);
For
i:=-10 to 10 Do
a[i]:=a[i]/10;
For
i:=-10 to 10 Do
Writeln(a[i])
End.
Var
SurName : Array [1..30] of String;
Mark : Array [1..30] of Real;
Cand : Array [1..30] of String;
NPupil, K : Integer;
BEGIN
Write('Сколько всего учеников ? ');
ReadLn(NPupil);
WriteLn('Введите фамилии и оценки учеников :');
For var i := 1 to NPupil do
begin
Write(i, '. Фамилия - ');
ReadLn(SurName[i]);
Write(' Оценка - ');
ReadLn(Mark[i]);
end; WriteLn;
K:=0;
For var i := 1 to NPupil do
If Mark[i]=2 then
begin
K:=K+1;
Cand[K] := SurName[i]
end;
If K=0 then WriteLn('В КЛАССЕ НЕТ ДВОЕЧНИКОВ.')
else
begin
WriteLn('ДВОЕЧНИКИ :');
For var i := 1 to K do WriteLn( i, '. ' , Cand[i]);
end;
END.