Контрольні питання

1. Особливості виконання досліджуваних операторів: циклів, умовних, введення-висновку.

2. Процедури і функції. Формальні і фактичні параметри. Передача в параметрах масивів.

3. Розмірність масивів. Контроль за коректним розподілом пам'яті для масивів.

4. Двовимірні масиви. Рядки і стовпці. Розташування в пам'яті двовимірних масивів.

Список використаної і літератури, що рекомендується

1. Абрамов С.А., Гнєздилова Г.Г., Капустіна Е.Н., Селюн М.И. Задачі по програмуванню. М., 1988.

2. Абрамов С.А., Зима Е.В. Начоло информатики. М., 1989.

3. Вирт Н. Алгоритми + структури даних = програми. М., 1985.

4. Голуб Н.Г., Кириленко Е.Г. Алгоритмічні мови і програмування: Навчальний посібник, частина 1. ХАИ, 1997.

5. Грогоно П. Програмування мовою Паскаль. М., 1982.

6. Джонс Ж., Харроу К. Рішення задач у системі Турбо Паскаль. М., 1991.

7. Йенсен К., Вирт Н. Паскаль: посібник для користувача. М., 1989.

8. Касьянов В.Н., Сабельфельд В.К. Збірник завдань по практикуму на ЕОМ. М., 1986.

9. Мизрохи С.В. TURBO PASCAL і объктно-ориентированное програмирование. М., 1992.

10. Пильщиків В.Н. Збірник вправ по мові Паскаль. М., 1989.

11. Прайс Д. Програмування мовою Паскаль: Практичний посібник. М., 1987.

12. Фаронов В.В. Турбо Паскаль 7.0. Початковий курс. Навчальний посібник. М., 1997.

13. Фаронов В.В. Турбо Паскаль 7.0. Практика програмування. Навчальний посібник. М., 1997.

14. Фірмова документація і комп'ютерні довідники (файли допомоги типу HELP).

Додаток 1

Приклад виконання лабораторної роботи № 1

ЛІСТИНГ ПРОГРАМИ Work1.pas

program Work1;

{ Обчислити варіант

3 arctg(b) + c*b - a/4

x= ------------------------

12*c + a - b

}

Uses CRT;

Label L1;

var

a,b,x,x1,x2 : Real;

c : Integer;

ch : Char;

{Обчислення знаменника з перевіркою його на нуль}

function Flag (a,b:real; c:Integer; Var x2:Real) : Boolean;

Begin

Flag:=True;

x2:= 12.0*c + a - b; {12*c приведе до помилки при c>abs(32767.0/12)}

if x2=0 then

Begin

Writeln('Ділення на нуль!!!!!!!! Повторіть введення.');

Flag:=False;

Exit;

End;

End;

{Обчислення арифметичного виразу}

function F (a,b,x2:real; c:Integer) : Real;

Var x1 : Real;

Begin

x1:= ArcTan(b)+c*b-a/4;

F:=x1/x2

End;

{Введення значення змінної С з перевіркою його на припустимий діапазон}

Procedure InputC(Var c:integer);

Var cL:Real;

Begin

Repeat

Write('Введіть значення c=====>');

Readln(cL);

Until (cL>=-32768)and(cL<=32767);

c:=trunc(cL)

End;

{Головна програма}

begin

Repeat

ClrScr;

Writeln(' Варіант 30');

Writeln(' arctg(b) + c*b - a/4');

Writeln(' x= ------------------------');

Writeln(' 12*c + a - b');

Writeln;

L1:

Write('Введіть значення a=====>');

Readln(a);

Write('Введіть значення b=====>');

Readln(b);

InputC(c);

if Flag(a,b,c,x2) then Writeln ('x=',F(a,b,x2,c))

else goto L1;

Writeln('Знову? (y/n)');

ch:=ReadKey;

Until (ch='n') or (ch='N');

end.

Розглянемо поетапне виконання лабораторної роботи №1.

У даному завданні необхідно обчислити значення арифметичного виразу (варіант 30), що є часткою від ділення виразу в чисельнику на вираз у знаменнику.

Для одержання результату необхідно зробити наступне:

1. Ввести значення змінних, які входять у даний вираз (a, b, c).

2. Перевірити, чи знаходяться цілочисельні змінні (у даному випадку тільки c) у діапазоні допустимих значень.

3. Обчислити знаменник з перевіркою його на нуль (тому що ділення на нуль НЕПРИПУСТИМЕ).

4. Обчислити вираз.

5. Вивести результат обчислення.

Програмі привласнене ім'я Work1, ім'я файлу - Work1.pas:

• У фігурних дужках написані коментарі - у даному випадку номер варіанта і вид виразу.

• Далі після зарезервованого слова Uses написане ім'я стандартного модуля середовища Turbo Pascal - CRT (докладніше - див. Додаток. 9).

• Потім описана мітка L1.

• У полі опису Var змінні a,b,x,x1,x2 оголошені як Real, змінна з как Integer, змінна ch как Char ( типи даних - див. [4]).

• Далі іде опис функцій Flag, F і процедури Input.

• Записана головна програма, що викликає потрібні процедури і функції, відповідно до алгоритму розв’язання задачі.

Обчислимо знаменник з перевіркою його на нуль за допомогою функції Flag (основні поняття функції і процедури подані в [4]). Функція Flag описана як Boolean і приймає два значення True (якщо знаменник НЕ дорівнює нулю) чи False (якщо знаменник дорівнює нулю). У заголовку функції використовуємо параметри:

• вхідні змінні a,b,c, значення яких передається з основної програми у функцію Flag;

• вихідну змінну x2, значення якої обчислюється (це - знаменник виразу) і передається в основну програму.