Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Приклади виконання завдання лабораторної роботи
|
|
Приклад 12. Підрахувати кількість позитивних елементів у масиві x(10).
Порядок роботи:
Крок 1. Уводимо масив x(10).
Крок 2. Задаємо початкове значення кількості k = 0.
Крок 3. Організовуємо цикл, що перебирає елементи масиву (тобто індекс i), починаючи з 1-го і кінчаючи 10-м.
Крок 4. Якщо xi > 0, тоді привласнюємо k = k + 1.
Крок 5. Якщо цикл за i не закінчився, йдемо на початок циклу, тобто на крок 3.
Крок 6. Друкуємо k.
Крок 7. Останов.
Приклад 13. Знайти мінімальний елемент з інтервалу [5, 12] у масиві x(15).
Порядок роботи:
Крок 1. Уводимо масив x(15).
Крок 2. Задаємо початкове значення мінімального елемента xmin=10 20.
Крок 3. Організовуємо цикл, що перебирає елементи масиву (тобто індекс i), починаючи з 1-го і кінчаючи 15-м.
Крок 4. Якщо xi не належить інтервалу [5, 12], тоді йдемо на крок 6.
Крок 5. Якщо xi < xmin, тоді привласнюємо xmin = xi.
Крок 6. Якщо цикл по i не закінчився, йдемо на початок циклу, тобто на крок 3.
Крок 7. Друкуємо xmin.
Крок 8. Останов.
 |
Приклад 14. Знайти максимальний елемент і його номер у масиві x(30).
Блок-схема
Порядок роботи:
Крок 1. Уводимо масив x(30).
Крок 2. Задаємо початкові значення максимального елемента і його номера: xmax = x1, nmax = 1.
Крок 3. Організовуємо цикл, що перебирає елементи масиву (тобто індекс i), починаючи з 2-го і кінчаючи 30-м.
Крок 4. Якщо xi> xmax, тоді привласнюємо: xmax=xi, nmax=i.
Крок 5. Якщо цикл за i не закінчився, йдемо на початок циклу, тобто на крок 3.
Крок 6. Друкуємо xmax, nmax.
Крок 7. Останов.
Приклад 15. Знайти середнє арифметичне елементів масиву Х(20), кратних 3, які належать інтервалу [15, 30].
Програма розв’язання даного прикладу має вид:
program pr15;
uses crt;
const N = 20; XN = 15; XK = 30;
type Mas = array[1..N] of integer;
var x: Mas; s, k, i: integer;
— Регулярная проверка качества ссылок по более чем 100 показателям и ежедневный пересчет показателей качества проекта.
— Все известные форматы ссылок: арендные ссылки, вечные ссылки, публикации (упоминания, мнения, отзывы, статьи, пресс-релизы).
— SeoHammer покажет, где рост или падение, а также запросы, на которые нужно обратить внимание.
SeoHammer еще предоставляет технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Зарегистрироваться и Начать продвижение
SR: REAL; A: BOOLEAN; P: CHAR;
BEGIN CLRSCR;
WRITELN(' УВЕДІТЬ ', N, ' ЧИСЕЛ');
FOR I: =1 TO N DO READ(X[I]);
WRITELN('ВИХІДНИЙ МАСИВ ');
for i: =1 to N do write(x[i]: 4);
writeln; s: =0; k: =0;
for i: =1 to N do
begin
a: =(x[i]< =xk) and (x[i]> =xn);
if (x[i] mod 3 = 0) and a then
begin
s: =s+x[i];
k: =k+1;
end;
end;
IF K> 0 THEN SR: =S/K
ELSE SR: =0;
WRITELN('S=', S: 5, 'K=', K: 2, 'СеРеднє АРИФМ.=’, sr: 6: 2);
p: =readkey
end.
Приклад 16. Знайти суму мінімального та максимального від'ємних парних елементів масиву Х(15).
Програма розв’язання даного прикладу має вид:
program pr16;
uses crt;
const N = 15;
type Ind = 1..N;
Mas = array[Ind] of integer;
var x: Mas; max, min, s, i: integer;
a: boolean; p: char;
BEGIN CLRSCR;
WRITELN(‘ УВЕДІТЬ ‘, N, ’ ЧИСЕЛ’);
FOR I: =1 TO N DO READ(X[I]);
WRITE(‘ ‘: 20, ‘ВИХІДНИЙ МАСИВ’);
for i: =1 to N do
write(x[i]: 4); writeln;
max: = -maxint;
min: = maxint;
for i: =1 to N do begin
a: = (x[i]< =0) and (x[i] mod 2 = 0);
if (x[i]> max) and a then max: = x[i];
if (x[i]< min) and a then min: = x[i];
end;
s: = max + min;
writeln(‘ ‘: 10, ’MAX=’, Max: 4, ’Min = ‘, min: 4);
writeln(‘ ‘: 20, ‘СУМА = ‘, s: 4);
p: =readkey
end.
|
|