66566

Освоєння технології структурного та модульного програмування при розробці й створенні програми мовою Турбо Паскаль при реалізації на ПЕОМ задач з використанням функцій

Лабораторная работа

Информатика, кибернетика и программирование

Мета роботи Дослідити роботу операторів функцій мови Паскаль; знати призначення, форму запису та особливості вживання функцій. Освоїти методику розробки, відладки Паскаль-програм (ПП) з використанням функцій на персональних ЕОМ.

Украинкский

2014-08-22

137 KB

1 чел.

ЛАБОРАТОРНА РОБОТА № 7

Освоєння технології структурного та модульного програмування

при розробці й створенні програми мовою Турбо Паскаль

при реалізації на ПЕОМ задач з використанням функцій

Мета роботи

Дослідити роботу операторів функцій мови Паскаль; знати призначення, форму запису та особливості вживання функцій. Освоїти методику розробки, відладки Паскаль-програм (ПП) з використанням функцій на персональних ЕОМ.

Теоретичні відомості

Опис функції подібний до опису процедури, однак маються деякі відмінності. Найважливіша з них полягає в тому, що результатом роботи функції є одне (скалярне) значення довільного типу. Тип результату задається в заголовку функції, загальний вигляд якого:

function <ім'я функції> (< список формальних параметрів >): <тип результату>;

Серед операторів у тілі функції обов'язково повинен бути присутнім хоча б один оператор присвоювання, у лівій частині якого знаходиться ім'я функції. Цей оператор і визначає значення, яке виробляється функцією.

Виклик і виконання функції виконуються при обчисленні значення функції:

<ім'я функції> (< список фактичних параметрів >),

який входить у оператор виводу або деякий вираз праворуч від оператора присвоювання в основній програмі.

Розглянемо послідовно етапи створення програми з функціями на конкретному прикладі.

1. Умова завдання:

Маємо одномірні матеріальні масиви А=, В=, С=.. Для кожного з них визначити середнє арифметичне позитивних елементів і вивести їх на екран, а також знайти їх суму і вивести її на екран. Створити процедуру вводу масивів.

2. Створимо ПП з коментарями та відступами

Див. рис. 1.

 Program SAPE;

Uses

Crt;

Type

V

ZFctType = Array[l..5O] of Real; {Maxc. pasmep Maccusos}

a

A, B, C : VectType; {flcnonszyemme Maccnsu}

Sum : Real; {Cyuma zuafleuufi gyuxuuu}

B,

l, m, n, {Pasmepu Maccnaos A,

1 :Integer;

Procedure Vvod(Var Ar:VectType; k:Integer);

{Hpouexypa Bsoza oznomepnux Maccusos}

Var

i : integer; {flepemennaa unxna}

Begin

for i:=l to k do

begin _

Wr1te('Ar[', 1, '] = ');

ReadLn(Ar[i])

end

End; {Proc Vvod}

Function SredArP(Var Ar:VectType; k:Integer) Real

{wyuxuns uaxoxzeuns cp. apugm. nonox. an-mos}

Var

Sum : Real;

KolPol,

i : Integer;

Begin

Sum:=O

KolPol.=O; {

for i:=l to

{Cyma nonox. an-Toa Mac.}

{KonMH. non. an-Ios}

{flepemennax unxna}

{O6HynaeM cymy}

O6xynaeM xonnq. non. 3n—ros}

k do

»~.

if Ar[i] > C then {Ecnu an-I Mac. nonox

begin

Sum:=Sum+Ar[1]; {fiaxannmsaem cymy}

KolPol:=KolPol+l {Ysenuqusaem xonuq

end;

Sred3rP:=Sum/KolPol {Cpenn. apuom. non. 3n-ros }

End; {Bunc SredArP}

Begin

ClrScr;

Write('Vvedite l = ');

ReadLn(l); {Bsoxum xonmq.

WriteLn('Vvedite massiv A’

Vvod(A, 1); {Bsonnm Mac. A

WriteLn('Sred.arifm.pol.elt. v massive A

SredArP(A, l));

-_,,~..- U

_. gq

“TOE Mac. A}

Write('Vvedite m = ');

ReadLn(m); {Bsonum xonufi. an-roe Mac. B}

WriteLn('Vvedite massiv B‘);

Vvod(B, m); {Bsoxnm Mac. B}

WriteLn('Sred.arifm.pol.elt. v massive B

SredArP(B, m));

Write('Vvedite n = ');

ReadLn(n); {Bsozum xonufl. an-mos Mac. C}

WriteLn('Vvedite massiv C‘);

Vvod(C, n); {Bsonnm Mac. C}

WriteLn('Sred.arifm.pol.elt. v massive C

SredArP(C, n1);

I

-J

‘L

-J

Рис. 1. Текст програми

Програма роботи .

3.1. Записати вказаний викладачем варіант завдання. Вивчити рекомендовану літературу та конспект лекцій.

3.2. Програмування задачи:

– скласти ПП рішення задачи на ПЕОМ.

3.3. Оформлення звіту

Звіт повинен мати:

– номер лабораторної роботи та їх назву;

– умову задачі та дані свого варіанту;

– лістінг ПП з коментарями та відступами, яка використовує підпрограми;

– підготований тест для свого варіанту задачі;

– скріншот результатів роботи ПП.

4. Варіанти завдань

Варіанти завдань наведені в табл. 7 та обираються студентом згідно номера у журналі групи.


Таблиця 7. Варіанти задач з функціями

варіанта

Умова задачі

1

Маємо одномірні матеріальні масиви А=, В=, С=. Створити процедуру вводу масивів.

Для кожного з них визначити:

– суму негативних елементів та вивести їх на екран;

– знайти їх суму та вивести її на екран.

2

– добуток негативних елементів та вивести їх на екран;

– знайти їх суму та вивести їїна екран.

3

– суму елементів, для яких виконується відповідна умова: ; ;  та вивести їх на екран;

– знайти їх суму та вивести її на екран.

4

– суму елементів з парними індексами та вивести їх на екран;

– знайти їх суму та вивести її на екран.

5

– добуток перших трьох та останніх трьох елементів та вивести їх на екран;

– знайти їх суму та вивести її на екран.

6

– мінімальний елемент та вивести їх на екран;

– знайти їх суму та вивести її на екран.

7

– середнє арифметичне значення елементів та вивести їх на екран;

– знайти їх суму та вивести її на екран.

8

– квадратний корінь з суми квадратів елементів та вивести їх на екран;

– знайти їх суму та вивести її на екран.

9

– суму абсолютних значень елементів та вивести їх на екран;

– знайти їх суму та вивести її на екран.

10

– кількість негативних елементів та вивести їх на екран;

– знайти їх суму та вивести її на екран.

11

– максимальний елемент та вивести їх на екран;

– знайти їх суму та вивести її на екран.

12

– добуток елементів з непарними індексами та вивести їх на екран;

– знайти їх суму та вивести її на екран.

13

– кількість елементів для яких виконується відповідна умова: ; ;  та вивести їх на екран;

– знайти їх суму та вивести її на екран.

14

– добуток елементів масиву, які перебільшують значення D1 (для масиву А), D2(для масиву В), D3(для масиву С) та вивести їх на екран;

– знайти їх суму та вивести її на екран.

15

– різницю сум елементів з парними та з непарними індексами та вивести їх на екран;

– знайти їх суму та вивести її на екран.

16

– кількість нульових елементів та вивести їх на екран;

– знайти їх суму та вивести їх на екран.

17

– середнє арифметичне значення елементів, які перебільшують значення Р1 (для масиву А), Р2 (для масиву В), Р3 (для масиву С) та вивести їх на екран;

– знайти їх суму та вивести їх на екран.

18

– різницю абсолютних значень сум позитивних та негативних елементів та вивести їх на екран;

– знайти їх суму та вивести її на екран.

19

– індекс і максимального елемента та вивести їх на екран;

– знайти їх суму та вивести її на екран.

20

– суму добутків елементів з парними та з непарними індексами та вивести їх на екран;

– знайти їх суму та вивести її на екран.

21

індекс і найближчого нульового та вивести їх на екран;

– знайти їх суму та вивести її на екран.

22

– суму перших трьох та останніх трьох елементів та вивести їх на екран;

– знайти їх суму та вивести її на екран.

23

– максимальний по абсолютному значенню елемент та вивести їх на екран;

– знайти їх суму та вивести її на екран.

24

– квадратний корінь з добутку квадратів значень елементів та вивести їх на екран;

– знайти їх суму та вивести її на екран.

25

– добуток абсолютних значень елементів та вивести їх на екран;

– знайти їх суму та вивести її на екран.

26

– середнє арифметичне значення абсолютних величин елементів та вивести їх на екран;

– знайти їх суму та вивести їх на екран.

27

суму абсолютних значень елементів та вивести їх на екран;

– знайти їх суму та вивести її на екран.

28

– максимальний за абсолютним значенням негативний елемент та вивести їх на екран;

– знайти їх суму та вивести її на екран.

29

– добуток негативних елементів та вивести їх на екран;

– знайти їх суму та вивести її на екран.

30

– різницю між добутком та сумою елементів та вивести їх на екран;

– знайти їх суму та вивести її на екран.

PAGE  6


 

А также другие работы, которые могут Вас заинтересовать

57931. Зорі. Еволюція зір 340 KB
  І почнемо ми з вами саме з визначення найголовнішого небесного світила – зорі. учні дають визначення зорі Вчені прийшли до висновку що зорі включаючи і наше Сонце мають життєві цикли. Ці стадії різні оскільки зорі складаються з різних елементів і відрізняються розмірами.
57932. Зажурилась зимонька не дарма, молодої силоньки вже нема 62.5 KB
  Мета: познайомити з традиціями святкування Стрітення, прикметами, які з ним пов’язані; формувати навички виразного читання віршів; підтримувати у дітей інтерес до занять фізкультурою, привчати дітей грати в командних іграх-естафетах...
57933. За О. Цегельською. Пригода на ковзанці. Безпечний відпочинок взимку 75.5 KB
  Мета: познайомити з оповіданням О. Цегельської; формувати вміння читати, зв’язно розповідати; розширювати знання учнів про зимові розваги; закріпити знання правил про поведінку на льоду, показати, яку небезпеку може приховувати вода; розвивати пам’ять, увагу, мислення, пізнавальний інтерес...
57934. Графічні можливості текстового процесора MS WORD 1.94 MB
  Мета: навчальна: систематизувати і узагальнити знання учнів за даною темою; розвивальна: розвинути практичні навички опрацювання графічної інформації під час роботи з текстовими документами, творчі здібності і естетичний смак, сприяти профорієнтації...
57935. Опрацювання табличних даних за допомогою будованих функцій 19.78 MB
  Учбова: Навчити дітей на практиці застосовувати набуті знання та навички з використання вбудованих функцій та формул в електронних таблицях. Виховна: Виховати у дітей естетичне оформлення файлу, створеному у середовищі табличного процесора...
57936. Виконання обчислень в середовищі табличного процесора 105.09 KB
  Мета уроку: Учбова: Навчити дітей виконувати обчислення в середовищі табличного процесора. Обладнання до уроку: проектор підставка під проектор ноутбук проекційний екран лазерний вказівник затемненн...
57937. Розвиток Архітектури Харкова у XVIII столітті 112.5 KB
  Дидактична мета: В ході уроку забезпечити засвоєння та усвідомлення учнями знань щодо розвитку архітектури Харкова у XVIII столітті історичних пам’яток нашого міста сучасного стану споруд того часу.
57938. Подорож у світ пірамід 28.5 KB
  Мета уроку: Сформувати поняття піраміди правильної та зрізаної піраміди та їх елементів. Засвоїти властивості правильних пірамід формули для обчислення площі повної та бічної поверхні піраміди.
57939. Поняття презентації та комп’ютерної презентації, їх призначення 75.5 KB
  Мета: навчальна: ознайомити учнів з поняттям презентації та комп’ютерної презентації їх призначенням зі слайдовими та потоковими презентаціями; оглянути програмні та технічні засоби призначених для створення і демонстрації презентацій...