Міністерство освіти і науки України Національний технічний університет України “Київський політехнічний інститут” Кафедра ОТ ЗВІТ про виконання лабораторної роботи № 5_1 з дисципліни “Основи програмування ” Тема: ОДНОВИМІРНІ МАСИВИ Постановка задачі Заданий одновимірний масив Р(n) цілих чисел. Визначити, скільки елементів масиву Р, що мають парні порядкові номера, є непарними числами; замінити кожен із таких елементів величиною | pmax - pi |, де і – індекс відповідного елемента, pmax - максимальний елемент масиву Р. Якщо таких елементів немає, вивести відповідне повідомлення. Надрукувати вхідний масив, визначену кількість елементів та вихідний масив (при їх наявності). аналітичні викладки Одновимірний масив (чи просто масив) — це такий засіб мови програмування (на зразок змінної) (Іноді масивом називають саму впорядковану множину значень. А кожне таке значення називають елементом масиву. Таке змішування понять не повинно Вас бентежити — програмісти не математики і не схильні до ювелірної точності визначень), що дозволяє посилатися на будь-який елемент пронумерованої множини значень. При цьому всі значення (елементи множини) повинні бути одного типу. А їхня кількість не повинна перевершувати заздалегідь заданого числа блок-схема алгоритму
текст програми program lab5_1; uses crt; const n=10; type vek=array[1..n] of integer; var m:vek; {masiv} k,{s4et4ik} i{,{peremenaya cikla} { max}:integer; {maxsimym} q:string; {flag povtoreniy programi} procedure input; begin for i:=1 to n do m[i]:=random(50); end; {====================} procedure output; begin for i:=1 to n do write(m[i]:3,' '); writeln; end; {=======================} function max:integer; var max1:integer; begin max1:=m[1]; for i:=2 to n do if m[i]>max1 then max1:=m[i]; max:=max1; end; {=========================} procedure osnova(max1:integer); begin i:=2; k:=0; while i<=n do begin if (m[i] mod 2)<>0 then begin write(m[i],' pomenalos na ='); m[i]:=abs(max1-m[i]); writeln(m[i]); k:=k+1; end; i:=i+2; end; if k=0 then writeln('sootvetstvyushix elementov ne naideno') else writeln('koli4estvo =',k); end; {==================================================} begin clrscr; writeln ('Laboratorna robota 5_1'); writeln ('Variant 15'); writeln('vikonav Kononec German ip-02'); q:='yes'; {startovoe zna4enie vneshnego cikla} while (q='yes') or (q='Y') or (q='y') do {yslovie} begin input; {ctvorena masiva} write('pervii masiv '); output; {vivod ctvorenogo masiva} osnova(max); {osnovni peretvorena} write('vtoroi masiv '); output; {vivod peretvorenogo masivy} writeln; writeln('povtorit` program? (yes\no)'); {zapros na povtor programi} readln(q); {vvidenie zna4enia cikla} clrscr; end; end. {konec} Відеокопія результату / Висновок В даній лабораторній роботі навчився використовувати одновимірні масиві (вектори) як структуровані типи даних, працювати з індексами, створенням та виводом їх в тілі програми і в підпрограмах. /