Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
ЛАБ.РОБОТИ-1 семестр.doc
Скачиваний:
1
Добавлен:
10.11.2019
Размер:
713.22 Кб
Скачать

Лабораторна робота №3

Тема роботи : Лінійні алгоритми і програми на алгоритмічній мові Pascal.

Мета роботи : Формування умінь створення лінійних алгоритмів і програм на алгоритмічній мові високого рівня Pascal.

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

Лінійною називається програма, в якій всі оператори виконуються послідовно один за одним.

Структура лінійної програми складається із:

  • заголовка program <ім’я програми>;

  • розділів описової частини:

    • uses - приєднання бібліотек та модулів;

    • label - оголошення міток (позначок);

    • const - оголошення сталих;

    • type - опис типів;

    • var - оголошення змінних;

    • procedure - оголошення процедур;

    • function - оголошення функцій користувача;

  • виконуваної частини: begin

<розділ команд>;

end.

Розділ команд складається з команд присвоєння, введення аргумента чи аргументів, обчислення значень функції за заданими залежностями і виведення результатів обчислень.

При складанні лінійних програм необхідно :

  • скласти графічний алгоритм;

  • виконати ідентифікацію змінних;

  • скласти програму мовою Pascal, передбачивши введення аргумента і виведення проміжних результатів обчислень, значення аргумента та функції;

  • налагодити програму;

  • розв’язати задачу на ЕОМ в діалоговому режимі

2. Хід роботи

2.1. Постановка задачі.

Скласти графічний алгоритм і програму для обчислення

Значення сталих величин: f=1863.4; r1=61.4; r2=4.51; Q=2.1.105

Значення аргумента: P=4.173

2.2. Графічний алгоритм наведений на рис. 1. 1

Рис. 1. Графічний алгоритм

2.3. Таблиця ідентифікації змінних

Змінна

Ідентифікатор

g

r1

r2

p

f

G

R1

R2

P

рі

Q

P1

F

2.4. Програма мовою Pascal та результати обчислень

Program лінійна_програма;

Const f=1863.4;R1=61.4;R2=4.51;Q=210000;pi=3.14;

Var P,P1,G:real;

Begin

write('Введіть аргумент ');

read(P1);

P:=F/(pi+sqr(R1));

G:=Q*sqrt(P/P1)*ln(R1/R2);

write('Результати обчислень: ');

write('P1=',P1:6:3,' P=',P:6:3,' G=',G:8:3);

end.

Введіть аргумент 4.173

Результати обчислень: Р1=4.173 Р=0.494 G=188636.011

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

1. Для чого призначена команда READ?

2. Для чого призначена команда WRITE?

3. З яких розділів складається програма мовою Pascal?

4. В якому розділі описують сталі?

5. В якому розділі описують змінні?

6. Які є типи змінних?