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


 

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

26689. Генетика человака и методы изучения генетики человека 32.6 KB
  Биологический вид Homo sapiens составляет часть биосферы и прдукт ее эволюции. Человек подчиняеться законам наследственной изменчивости. Мы есть нечто иное как продукт наших генов
26691. Древние платформы 1.31 MB
  Однако Криворожские месторождения по запасам в десятки раз уступают Курским. Такого же типа протерозойские месторождения известны на Кольском полуострове Оленегорское Костамукшское. Магматические железорудные месторождения Енское Ковдорское Африканда Кольский полуостров снабжают сырьем Череповецкий металлургический комбинат. С корой выветривания гипербазитов связаны месторождения никеля и на Украинском щите.
26692. ПРЕОБРАЗОВАНИЕ СИГНАЛА В НЕЛИНЕЙНОЙ ЦЕПИ 122.51 KB
  Наблюдать временные диаграммы на входе и выходе нелинейного элемента в разных режимах работы; научиться измерять угол отсечки сигнала на выходе нелинейной цепи; исследовать преобразование спектра отклика нелинейного элемента в зависимости от его режима работы.
26693. Неогей 78 KB
  В течение обоих циклов в погружение вовлекались преимущественно северозападные и югозападные зоны Русской плиты которые либо простирались грубо параллельно СевероАтлантическому Грампианскому геосинклинальному поясу отделяясь от него Балтийским щитом обширная палеоБалтийская синеклиза либо примыкали к Средиземноморскому поясу ЛьвовскоКишиневский перикратонный прогиб. В кембрии осушилась его северовосточная часть район Мезенской синеклизы а на западе он распространился в пределы западной части Советской...
26694. Геологическая характеристика и палеогеографические условия осадконакопления отложений девона, карбона и перми Восточно-Европейской платформы. Полезные ископаемые 126 KB
  В пределах ВолгоУральской области с нижневизейскими песчаными толщами связаны месторождения нефти. Месторождения нефти и газа ВЕП связаны как с палеозойскими так и мезозойскими отложениями. Месторождения бурых углей находятся в Подмосковье где они приурочены к низам визейского яруса. В ВолгоУральской антеклизе с отложениями нижнего карбона связаны крупные месторождения углей.
26695. Сибирская платформа: границы и основные структурные элементы. Геологическое строение фундамента. Полезные ископаемые 109 KB
  Некоторая часть пород принадлежит к первичноосадочным компонентам продукты переотложения первичных кор выветривания. Оленёкский выступ представлен нижнепротерозойскими терригенными отложениями метаморфизированными смятыми в пологие складки. В отложениях архея много обломочного кварцевого и глиноземистого материала – источник магматические породы кислого и среднего состава. Главные результаты: впервые вскрыт и детально изучен наиболее полный разрез триасовых и юрских отложений; опровергнуты представления о непрерывном уплотнении...
26696. Алтае-Саянская область: геологическое строение и история развития. Полезные ископаемые 81 KB
  АлтаеСаянская область: геологическое строение и история развития. АлтаеСаянская горная страна охватывает горные сооружения Восточного и Западного Саян Кузнецкого Алатау Горной Шорин и Горного Алтая. Восточный Саян – сложная морфоструктура сформированная на древнейших образованиях АлтаеСаянского региона. Стратиграфия и тектоника Горные породы представлены комплексами скальных вулканогенных образований сосредоточенных в восточной части Алтае – Саянского региона и нескальных осадочных несцементированных грунтов в составе которых по...
26697. Основные тектонические элементы северо-западной части Тихоокеанского подвижного пояса 387 KB
  Основные тектонические элементы северозападной части Тихоокеанского подвижного пояса. Формирование ОхотскоЧукотского вулканоплутонического пояса происходило в раннем мелупалеогене. С вулканитами тесно пространственно и генетически связаны интрузии гранитоидов и более основных пород занимающие до 20 площади пояса. СРЕДИЗЕМНОМОРСКИЙ ПОДВИЖНЫЙ ПОЯС В состав Средиземномосркого подвижного пояса в пределах бывшего Советского Союза входят складчатые сооружения Карпат Горного Крыма Большого и Малого Кавказа Копетдага так называемая...