Міністерство освіти науки, молоді та спорту України
ДонДТУ
Кафедра ЕК та ІТ
Контрольна робота
З дисципліни: В«ІнформатикаВ»
Варіант № 82
Виконав: ст.гр. ЕПП-12-2з
Кримцева А.Ю.
Перевірив: Хмельов О.Г.
Алчевськ, 2012
Контрольне завдання № 7
Скласти програму для знаходження мінімального і максимального елементів масиву, а також індексів цих елементів. Ранжувати (порядок) одновимірний масив за заданим ознакою. br/>
(9,56; -4,6; -12,45; 0,45; 98; 233; 5,09; -5,1; 0,004) за зменшенням
Рішення
Спочатку знайдемо мінімальний і максимальний елементи масиву, а потім впорядкуємо його за зменшенням
Блок-схема
В
В
Лістинг програми
Program zadanie_7;
uses CRT;, j, i_max, i_min: integer; _max, a_min, buf: real;: array [1 .. 9] of real;;
{Введення початкового масиву}
writeln ('Введіть масив');
for i: = 1 to 9 do (A [i]); ('Вихідний масив:'); i: = 1 to 9 do write (A [i]: 6:3, ' ');
{Знаходження найбільшого а найменшого елементів}
a_max: = A [1]; _min: = A [1]; _max: = 1; _min: = 1; i: = 2 to 9 do (A [i]> a_max) then_max: = A [i]; _max: = i;; (A [i]
{Ранжировка за зменшенням} i: = 1 to 8 do
for j: = i +1 to 9 doA [j]> A [i] then: = A [j]; A [j]: = A [i]; A [i] : = buf;;
{Висновок результатів}; ('Максимальний елемент = A [', i_max, '] =', a_max: 6:3); ('Мінімальний елемент = A [', i_min, '] = ', a_min: 6:3);
writeln ('Масив після сортування:');
for i: = 1 to 9 do write (A [i]: 7:3, '');
end.
Результат роботи програми
В
Контрольне завдання № 8
Скласти програму обчислення коренів квадратних алгебраїчних рівнянь
( ax 2 + bx + c = 0 ), використовуючи функцію користувача.
Примітка: в даних рівняннях значення коефіцієнтів a, b, c такі, що дискримінант D = b <...
