Program Example_360;
Uses crt;
Const n = 10;
Var A:array[1..n,1..n] of real;
і,j:integer; (і,j - змінні циклу}
Sum:real; {Sum - сума елементів бічної діагоналі}
Begin
Randomize;
Clrscr; {Заповнення масиву та виведення його на екран}
For і:=1 to n do
Begin
For j : =1 to n do
begin
A[i,j]:=random*50-random(80)/3; Write(A[i,j]:8:3);
end;
writeIn;
End;
Sum:=0; {Початкове значення суми}
For і:=1 to n do
Begin
For j:=1 to n do
if і + j = n+1 then Sum:=Sum+A[і,j];
End;
Writeln(‘Сума елементів бічної діагоналі =’,Sum:8:2);
Readkey;
End.
Зверніть увагу на те, що для цієї задачі можна значно спростити цикл знаходження суми, адже фактично ми розглядаємо тільки лінійний масив (елементи на діагоналі насправді складають одновимірний масив). Тому цикл знаходження суми можна зобразити таким чином (наведений фрагмент програми):
Sum:=0; {Початкове значення суми}
For i:=l to n do Sum:=Sum+A[i,n+1-i];
Домашнє завдання
• Задачі № 343(3,4), № 344(3), № 345(2), №347(3), №361.
Мета уроку.* Навчити розробляти алгоритми пошуку в таблицях елементів із заданими властивостями.
Для організації пошуку в таблиці елементів із заданими властивостями слід організувати циклічний перегляд всіх елементів, кожний з яких командою розгалуження порівняти із заданим еталоном або перевірити на деяку властивість. Якщо масив одновимірний, цикл для організації перегляду всіх елементів буде один, якщо ж масив двовимірний—циклів буде два.
Таким чином програма буде мати наступний вигляд:
Program Example_302;
Uses crt;