Розробка та виконання програм на мові Pascal

Мета: систематизація знань, формування вмінь і навичок, розробки та виконання на ЕОМ найпростіших програм на мові Pascal.

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

Програма на мові Pascal складається:

- розділ оголошень;

- розділ текстів процедур і функцій;

- розділ основного блоку.

Розділ оголошень

program заголовок програми:

{ $…} глобальні директиви компілятора:

uses підключаємі бібліотеки:

label розділ оголошення глобальних міток:

const розділ оголошення глобальних констант:

type розділ оголошення глобальних типів:

var розділ оголошення глобальних змінних:

Розділ текстів процедур і функцій

procedure (function)

label розділ оголошення локальних міток:

const розділ оголошення локальних констант:

type розділ оголошення локальних типів:

var розділ оголошення локальних змінних:

begin основний блок процедури або функції:

end;

Розділ основного блоку програми.

begin основний блок програми:

end.

Програми діляться на прості(лінійні), розгалужені та циклічні. В простих програмах відсутні будь-які перевірки умов та використовуються лінійні оператори. В розгалужених можуть бути оператори умовного та безумовного переходу.

Умовні:

скорочена форма IF умова THEN опер.

повна форма IF умова THEN опер.1 ELSE опер. 2

Оператор безумовного переходу – GOTO «мітка».

Оператор множинного вибору:

CASE вираз OF

мітка1: опер. 1;

мітка2: опер. 2;

END;

Розрізняють три способи організації циклів:

1) цикл з параметром (FOR .. TO .. DO);

2) цикл з післяумовою(REPEAT UNTIL);

3) цикл з передумовою(WHILE .. DO).

Індивідуальне завдання.

Варіант №3.

Скласти та виконати на ЕОМ програми розв’язування слідуючих задач:

Задача 1.

Обчислити та вивести на очищений екран з К-ї позиції L-го рядка в форматованому вигляді значення вихідних даних та результатів обчислення виразу:

Обчислити значення виразу на ЕОМ для значень:

A=-6, b=6.4, c=8.85, k=20, l=10

Задача 2.

Обчислити значення даної функції, використовуючи оператори IF_THEN, IF_THEN_ELSE (два варіанти програми):

Виконати для: a=-2.3, b=-8, t1=-4.5, t2=1.2*10-3, t3=4.3

Задача 3.

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

Для значень Х із проміжку Х=[-3,5] з кроком h=1.2

Скласти програми, використавши всі структури циклів.

Задача 1:

program zanattia3;

uses crt;

const

k=20;

l=10;

a=-6;

b=6.4;

c=8.85;

var

f:real;

begin

clrscr;

f:=(exp(a)+2*ln(b+c))/(arctan(b))+a*b;

gotoxy(k,l);

textcolor(2);

write('Вiдповiдь : ');

textcolor(3);

write(f:7:5);

textcolor(14);

write(' при а=-6, в=6.4, с=8.85');

end.

Р Е З У Л Ь Т А Т И Р О Б О Т И П Р О Г Р А М И :

______________________________________________________________________________

Вiдповiдь : -34.54943 при а=-6, в=6.4, с=8.85

______________________________________________________________________________

Задача 2:

program zanattia3_variant1;

uses crt;

const

a=-2.3;

b=-8;

t1=-4.5;

t2=1.2e-3;

t3=4.3;

var

y,t:real;

function obch(t:real):real;

begin

if t>3 then obch:=exp(t)/ln(t);

if t3 then obch:=exp(t)/ln(t) else

if t______________________________________________________________________________

Задача 3:

program zanattia3_variant1;

uses crt;

var

y:real;

x:real;

h:real;

begin

clrscr;

x:=-3;

h:=1.2;

repeat

y:=2*sqr(x-1)+3;

writeln(' y=',y:7:5,' при x=',x:7:5);

x:=x+h;

until x>5;

end.

Р Е З У Л Ь Т А Т И Р О Б О Т И П Р О Г Р А М И :

______________________________________________________________________________

y=35.00000 при x=-3.00000

y=18.68000 при x=-1.80000

y=8.12000 при x=-0.60000

y=3.32000 при x=0.60000

y=4.28000 при x=1.80000

y=11.00000 при x=3.00000

y=23.48000 при x=4.20000

______________________________________________________________________________

program zanattia3_variant2;

uses crt;

var

y:real;

x:real;

h:real;

begin

clrscr;

x:=-3;

h:=1.2;

while x8 9 2 2 3

Висновок: на практичній роботі я систематизував знання, вміння та навички по роботі з масивами, як двомірними, так і одномірними, навчився працювати з матрицями та операціями з ними.

Заняття №5.

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

Мета: систематизація та поглиблення знань, вмінь і навичок, розробки програм з використанням процедур та функцій.

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

Підпрограма – це пойменована, логічно закінчена група операторів, яку можна викликати для виконання довільну кількість разів з різних місць програми.

В мові Pascal в ролі підпрограм використовуються процедури і функції. Функція представляє собою групу операторів, в результаті виконання яких обчислюється одне значення, що присвоюється значенню функції.

Опис функції здійснюється за допомогою ключового слова FUNCTION ім’я, а в дужках змінні.

Процедура на відміну від функції може повертати в програму одне, декілька або не повертати жодного значення. В заголовку після ключового слова PROCEDURE ім’я, а в дужках змінні зі своїми описами.

Індивідуальне завдання.

Варіант №13.

Скласти програму на мові Pascal розв’язку даної задачі та виконання її на ЕОМ. Передбачивши виведення на очищений екран результатів обчислень, супроводивши їх необхідними поясненнями.

Задача 1.

Дано масив С(5,4) . Зформувати новий масив К, кожний елемент якого дорівнює відповідному елементу масива С, поділеному на факторіал суми його індексів. Надрукувати масив К по рядках, підрахувавши кількість його елементів, значення яких меньше одиниці.

Задача 2.

Знайти суму від’ємних елементів та середнє значення додатніх елементів масивів: L (6), B (5), H(7) цілих чисел, використовуючи процедури.

Задача 1:

program var_1_1;

uses crt;

var

c,k:array [1..5,1..4] of real;

i,j:integer;

m:byte;

function facktorial(x:integer):real;

var

i:integer;

facktorial1:real;

begin

facktorial1:=1;

if i

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать