ізовано в тій же програмі. Сенс полягає в постійній перезапису змінної maxi, якщо виконується умова, коли кожен новий введений елемент масиву stat [i] більше змінної maxi. Висновок максимального значення на екран відбувається після зупинки циклу натисканням клавіші 0 і переходу на мітку G.
Завдання №3
Запропонувати метод впорядкування набору чисел за збільшенням (або зменшенням). Скласти програму, що реалізовує запропонований метод і перевірити правильність її роботи. У тексті програми повинні бути поясняющие коментарі.
Рішення
Програма впорядкування набору чисел запускається після зупинки циклу завдання 1 і переходу на мітку G.
запитує у користувача спосіб упорядкування елементів масиву stat, якщо 1 то за спаданням, якщо 2 по зростанню. Вид упорядкування заноситься в змінну vd. Після вибору переходимо до циклу упорядкування. Сенс упорядкування полягає у запуску циклу (for i:=0 to all) в якому укладений другий цикл (for i2:=0 to all), якщо елемент масиву stat [i] більше елемента масиву stat [i2] то міняємо їх місцями в масиві , через тимчасові змінні a і b.
Після обробки циклу виводимо на екран елементи масиву через пробіл, залежно від виду упорядкування (змінна vd).
Виводимо максимальне значення (перший елемент масиву) і мінімальне значення (останній елемент масиву).
Додаток
rasdva ;; max=200;: array [0..max] of real;, sum, a, b, maxi: real;, i2, all, vd: integer;: string; g ; (blue); (white);
clrscr;
writeln ( Програма обчислення середнього значення для зростаючого колличества чисел типу Float );
Writeln ( Для припинення введення чисел натисніть 0 );
WriteLn; i:=0 to max do begin ( Введіть будь-яке дійсне число: );
readln (stat [i]); stat [i] gt; maxi then maxi:=stat [i];:=i; stat [i]=0 then goto g; sr lt; gt; 0 then begin sr:=(sr + stat [i])/2; ( Середнє значення: , sr: 0: 3, laquo ;, всього чисел в масиві: , i + 1); end else sr:=stat [i];
end;
g:
Writeln;
Writeln ( Максимальна введене число=, maxi: 0: 2);
writeln;
write ( Щоб провести перевірку натисніть у/n: );
writeln; (prov); prov= y then begin for i:=0 to all do:=sum + stat [i];:=sum/all; ( Середнє число дорівнює , sum: 0: 2, і воно відрізняється від розрахунку середнього для ряду чисел з урахуванням нововведених значень, із за виконання обчислень на основі раніше отриманих середніх значень );
all:=all - 1 ;; ( ... програма завершена ) ;;
exit;
end
else
Write ( Вивести елементи масиву по убуванню (1) або зростанню (2): );
readln (vd); stat [0]=0 then exit; i:=0 to all doi2:=0 to all dostat [i] gt; stat [i2] then begin:=stat [ i]; b:=stat [i2]; stat [i]:=b; stat [i2]:=a; end; vd=1 then for i:=0 to all do write (stat [i]: 0: 2, ) begin for i:=0 to all do write (stat [all-i]: 0: 2, ) end ;;
Writeln ( Максимальне число: , stat [0]: 0: 2);
Writeln ( Мінімальне число: , stat [all]: 0: 2);
Writeln;
Writeln ( ... програма завершена );
readln ;;.
