Излучаемый свет выходящий из активного источника (солнце лампа фонарь и т.д) Отраженный свет это свет отскочивший от объекта, от его поверхности. скажем когда ты фонарем светишь на зеркало или стену то свет исходящий от стены или от зеркала будет отраженный т.к ни стена ни зеркало сами свет не излучают.
//Pascal ABC.NET Версия 2.2 Сборка 790 var ma:array[1..10,1..10] of integer; ar:array[1..10] of integer; i,j,s:integer; begin; randomize; writeln('Matrix:'); for i:=1 to 10 do begin; writeln; for j:=1 to 10 do begin; ma[i,j]:=random(-10,10); write(ma[i,j]:5); if ma[i,j]<0 then ar[i]+=ma[i,j]; end; end; writeln; writeln('Final array:'); for i:=1 to 10 do writeln(ar[i]); end.
Procedure TForm1.Button1Click(Sender: TObject); var i1,i2,i3 : Integer; kk : Integer; Chislo : Integer; begin Memo1.Clear; kk := 0; for i1 := 1 to 9 do for i2 := 0 to 9 do for i3 := 0 to 9 do if ( (i1<>i2) and (i1<>i3) and (i2<>i3) ) then if ( Frac((i1+i2+i3)/7)=0 ) then begin Chislo := i1*100 + i2*10 + i3; if ( Frac(Chislo/7)=0 ) then begin Memo1.Lines.Append(inttostr(Chislo)); inc(kk); end; end; end;
Отраженный свет это свет отскочивший от объекта, от его поверхности.
скажем когда ты фонарем светишь на зеркало или стену то свет исходящий от стены или от зеркала будет отраженный т.к ни стена ни зеркало сами свет не излучают.