- •«Економіко-правовий технікум при мауп»
- •Щоденник
- •Липника Андрія Володимировича
- •Розділ 1: Організація масивів данних в Pacal Задача №1
- •Задача №2
- •Задача №3
- •Задача №4
- •Задача №5
- •Розділ 2. Обробка інформації засобами ms Word
- •Лабораторна робота №2. Створення графічних об’єктів в ms Word.
- •Лабораторна робота №3. Створення документу що містить математичні формулита графіки в ms Word
- •Формулискороченогомноження
- •Лабораторна робота №4. Використання електронних форм.
- •Таможенная декларация
- •1. Сведения о лице:
- •3. Сведения о наличии товаров и денежных средств:
- •Лабораторна робота №5. Створення фрагменту методичного посібника в ms Word.
- •Вкладка “Разметка страницы” текстового Процесора msWord 2010
- •Лабораторна робота №6. Візуалізація статистичних та структурних даних в msWord.
- •Робота з малюнками Створення рисунків
- •Лабораторна робота №7 Олімпіадні завдання
Задача №2
Одновимірний масив |
|
|
Умова |
Мовоюпрограмування Паскаль (з використанням масивів) зробити програму, котра повинна спочатку запропонувати користувачеві (в текстовій формі, на моніторі) задати 7 цілих чисел (зі значеннями від -99 до 99 включно) і обов’язково через Ентер, після чого програма повинна вивести в рядок для перевірки задані 7 чисел, а нижче вивести результати математичного аналізу всіх чисел масиву, зокрема щодо: мін, мах, сер, кількість чисел в масиві, сума всіх значень елементів масиву.
|
program z2;
{opsk-21, Lypnyk}
Var mas:array[1..7] of integer;
i, max, min, sum, dob: integer;
var
sear,segem:real;
begin
writeln('Z#2');
writeln('{opsk-21, Lypnyk}' );
writeln('zaday 7 cilih chicel[-99..99] cherez ENTER:');
writeln('vi wveli');
for i:=1 to 7 do
readln(mas[i]);
writeln('vi veli');
for i:=1 to 7 do
write (mas[i],' ');
max:=mas[i];
for i:=1 to 6 do
begin
if mas[i+1]>max then max:=mas[i+1];
end;
writeln;
writeln('max=' ,max);
min:=mas[i];
for i:=1 to 6 do
begin
if mas[i+1]<min then min:=mas[i];
end;
writeln ('min=' ,min);
sum:=0;
dob:=1;
for i:=1 to 7 do
sum:=sum+mas[i];
for i:=1 to 7 do
dob:=dob*mas[i];
writeln('suma=' ,sum);
writeln('dobutok=' ,dob);
sear:=sum/7;
segem:=sqrt (dob);
writeln('seredne arifmetichne=' ,sear);
writeln('seredne geometrichne=' ,segem);
end.
Умова |
Мовою програмування Паскаль (з обов’язковим використанням масивів) зробити програму, котра повинна спочатку запропонувати користувачу задати кількість цілих чисел (від 2 до 15), після дозволенної відповіді (вхідний контроль діапазону значення повинен вимагати повторне введення для кількості значення тільки від 2 до 15) програма пропонує задати (обов’язково через Ентер) зазначену кількість цілих чисел (зі значенням від -99 до 99 включно); після цього програма повинна вивести в рядок (для перевірки) зазначену вище кількість заданих чисел, а нижче вивести результати математичного аналізу всіх чисел масиву, зокрема щодо: мін, мах, сер, кількість чисел в масиві, сума всіх значень елементів масиву; після всього програма пропонує користувачу обрати або повернення до початку для повторення з іншими значеннями масиву (вибір повтору повинен підтверджуватися тільки через Ентер), або закінчення роботи з програмою (наприклад for REPEAT press ENTER; for EXIT press any key and ENTER). |