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


 

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

52261. Австралія – найменший материк Землі. Загальні відомості. Своєрідність географічного положення материка. Історія відкриття і дослідження. Рельєф і корисні копалини 7.75 MB
  Мета: сформувати в учнів загальне уявлення про своєрідність та особливості природи Австралії; продовжити формувати навички складати характеристику географічного положення материка; знайти закономірності розташування форм рельєфу та корисних копалин; розвивати вміння учнів працювати зі схемами атласу і підручника аргументувати свою відповідь у тому числі за допомогою додаткових джерел літератури. Для подальшого вивчення Австралії клас поділяється на групи: 1група. Знаходить на карті крайні точки Австралії і визначає їхні географічні...
52262. Australia. Terra Incognita 178 KB
  Terr Incognit Suggested level B 1 B1 intermedite Inn brmovsk senior techer of English school 5 L' viv Objectives: to get cquinted with ustrlin history geogrphy stte Symbols; to prctice vocbulry; to develop pupils' listening reding nd speking skills; to rouse pupils' interests in the life of ustrlin people. The Ntionl nthem...
52263. Австралійський Союз. Океанія 171 KB
  Мета: продовжити формувати систему знань про Австралію сформувати систему знань про природноресурсний потенціал Австралії і Океанії; систематизувати уявлення учнів про міжнародну спеціалізацію регіонів вдосконалити вміння і навички учнів самостійно працювати з джерелами географічної інформації. Обладнання: політична карта світу фізична карта Австралії фізична карта Океанії атласи учнівські...
52264. АВСТРАЛІЯ – найменший материк Землі. Історія відкриття і дослідження 112 KB
  Визначити географічне положення Австралії, ознайомити учнів з історією відкриття, заселення Австралії європейцями, особливостями рельєфу, корисними копалинами...
52265. Австралія: загальна характеристика, специфіка ЕГП, особливості природи, населення і господарства 222 KB
  Мета: сформувати в учнів систему знань про природноресурсний потенціал австралії; систематизувати уявлення учнів про міжнародну спеціалізацію регіона. АКТУАЛІЗАЦІЯ ОПОРНИХ ЗНАНЬ ТА УМІНЬ Який мореплавець відкрив Австралію Які крайні точки материка Австралія Дайте коротку характеристику географічного положення Австралії. Яка переважаюча форма рельєфу Австралії і чому ІІІ. Про ці та інші особливості Австралії ми дізнаємося на сьогоднішньому уроці.
52266. Австралія. Географічне положення, історія відкриття і дослідження 46.5 KB
  Географічне положення історія відкриття і дослідження. Географічне положення історія відкриття і дослідження. Мета: формувати знання про своєрідність географічного положення Австралії етапи відкриття і дослідження вдосконалювати практичні вміння та навички; пояснювати особливості географічного положення материків; формувати вміння порівнювати географічне положення Австралії та Африки; розвивати пізнавальний інтерес до вивчення теми. Який материк ви вивчали Що вам відомо про Африку Чому вивчення будьякої території починають з...
52267. Музична подорож до Австрії 117.5 KB
  Liebe Freunde Ich freue mich euch zu sehen. In der heutigen Stunde sprechen wirber die Musik und Mozrt. Heute erfhren wir mehrber ds Schffen und Leben dessterreichischen Komponisten. Республіка Австрія існує з 1918 Es besteht us neun Bundeslndern.
52268. Розвиток автентичної особистості як основна мета сучасної освіти 114.5 KB
  Якщо до серця все найкраще лине Ти особистість. На моїх очах відбувається справжнє диво: з невмілого не впевненого у собі малюка виростає особистість яка мислить багато знає вміє оцінює себе й інших людей. Тому під час планування навчального процесу намагаюсь організувати його так: щоб бачити зону найближчого розвитку кожної дитини; щоб особистість розвивалась в якісній зміні її діяльності; щоб були задіяні у навчальному процесі інтелектуальна активність та пізнавальні інтереси кожного учня. Сьогодні у світі існують дві...
52269. Методи та прийоми пошуку розв’язання текстових задач з математики 174 KB
  Навчальна програма факультативного курсу Тема Методи та прийоми пошуку розвязання текстових задач з математики для учнів 6 класу загальноосвітніх шкіл 2010 рік Автор чи укладач __Сторожук Валентина Миколаївна вчитель математики загальноосвітньої школи ІІІ ступенів №12 м. Науковометодична експертиза обласного центру практичної психології : тільки для програм з психології _________________________________________________________________________...