For it«Count downto 1 do

Begin

Write(Cifra[i],'*10^{^}' ,i-l); {Якщо доданок не останній, то до нього дописується знак «+»}

If і>1 Then write(' + ');

End;

Readkey; {Затримка зображення на екрані}

End.

ЗАДАЧА № 312

Умова: Дано дійсні числаа₁₉₅₁, а₁₉₅₂,..., а₂₀₀₀—кількість опадів (у мм), що випали у місті за останні 50 років століття. Обчислити середню кількість опадів за цей період і щорічне відхилення від середнього значення.

Розв'язання: У цій задачі слід організовувати проходження по масиву двічі, оскільки першим проходженням ми знайдемо тільки суму всіх опадів, що випали за останні 50 років, а потім, поділивши отриманий результат на 50, знайдемо середню кількість опадів за вказаний період. Другим же проходженням можемо вже визначити щорічне відхилення від середнього значення, причому для того, щоб не втратити вхідні дані, зарезервуємо в програмі ще один масив на 50 дійсних чисел для зберігання цих результатів.

Program Example_312;

Uses crt;

Var N,i:longint; {N — кількість елементів масиву, і — змінна циклу}

А:аггау[1951..2000] of real; {A - масив для зберігання кількості опадів у відповідному році}

В:array[1951..2000] of real; {В — масив для зберігання відхилення від середнього значення}

Begin

Randomize;

Clrscr;

Sum:=0;

For і:=1951 to 2000 do

Begin

A[i] :=random(500) /7 ; {Заповнення масиву випадковими дійсними числами}

Write (А[і] :8:2) ; {Виведення масиву на екран для контролю}

Sum:=Sum+K[і];

End;

Sum:=Sum/50; {Середня кількість опадів за рік}

Writeln; WriteIn('Щорічні відхилення від середньої кількості опадів за період 1951 - 2000 p.p.');

For і:=1951 to 2000 do

Begin

В[і]:=Sum — А[і]; {Знаходження щорічного відхилення}

Write(В[і]:8:2); {Виведення результатів на екран}

End;

Readkey;

End.

ЗАДАЧА №318 (4)

Умова: Дано дійсні числа а₁ а₂,..., a₃₀ b₁ b₂,..., b₃₀. Обчислити

Розв 'язання: Очевидно, що для обчислення результату цієї задачі спочатку необхідно знайти чисельник та знаменник дробу. Причому звернітьувагу на те, що кількість доданків і в одному, і в другому випадкахдорівнює 15, тільки в чисельнику вибираються елементи масивів з непарними індексами, а в знаменнику — із парними. Щоб організуватизміну індексів за заданим законом, можна скористатися таким штучнимприйомом: якщо в циклі з параметром індекс і змінюється від 1 до п, тодля отримання непарних чисел з проміжку [1..2п] використовуєтьсяформула: 2*і- 1.

Запропонуйте дітям подумати, яка формула дасть змогу отримати парні числа (2*і). Використовуючи ці співвідношення, програма для розв'язку цієї задачі має вигляд:

Program Example_318_4;

Uses crt;

Var A,B:array[l..30] of real;

{А,В — масиви для зберігання вхідних даних}

і:byte; {і — змінна циклу}

Rl,R2:real; {R1 — чисельник дробу, R2 - знаменних дробу}

Rez:real; {Rez - результат обчислень}

Begin

Randomize;

Clrscr;

Writeln('Масив А:');

For i:=1 to 30 do

Begin

A[i]:=random(200)/7-random*15; Write(A[i]:8:2);

End;

Writeln;

Writeln('Масив В:');

For i:=1 to 30 do

Begin

B[i]:=random*200-random*100; Write(B[i]:8:2);

End;

Writeln;

Rl:=0; R2:=0; {Початкові значення дорівнюють 0, тому що результат є накопиченням суми}