Звіт по практиці по Turbo Pascal

Практичне завдання № 1

Записати вираз на мові Паскаль. Використання стандартних функцій.

Оператор присвоєння.

Мета завдання
Освоєння найпростіших конструкцій мови Паскаль.
Отримання навичок роботи з числами. Використання стандартних функцій,арифметичних операцій для запису математичних виразів мовою
Паскаль.
Отримання практичних навичок роботи над помилками. Освоєння синтаксисумови Паскаль.

Постачання завдання

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

| 1. a = | x = 47,8 |
| (x + y/(5 + x))/| y-sinx + x | 5 arctgx | y =- 5,5 |
| | U = 2,3 |
| | V = 0,8 |
| 2. b = etgu 1 lnarcsinv | |

Лістинг програми

program zadanie_1;uses crt;var x, y, u, v: real; a, b: real;beginclrscr; x: = 47.8; y: =- 5.5; u: = 2.3; v: = 0.8; writeln ( 'Протокол роботи програми'); writeln ( 'обчислення значень a і b'); a: = (x + y/(5 + sqrt (x)))/abs (y-sin (x) + sqrt (x)) +5 * arctan (x); b: = exp (sin (u)/cos (u) +1) * ln (arctan (v/sqrt (1-v * v))); writeln ( 'a =', a); writeln ( 'b =', b); writeln ( 'кінець рахунку'); readln; readln;end.

Протокол роботи програми

обчислення значень a і b

a = 3.0959950475E +01

b =- 6.7000345276E - 02

кінець рахунки

У цій програмі були використані наступні стандартні функції:sin (x), cos (x), abs (x), sqr (x), sqrt (x), arctan (x), exp (x), ln (x).

Зокрема через функції: arctan (x), sin (x), cos (x), були вираженітакі тригонометричні функції як arcos (x), tg (x).

У ході роботи помилок допущено не було.

Практичне завдання № 2

Організація введення/виведення стандартних типів даних

Мета завдання
1. Освоєння найпростішої структури програми.
1. Отримання навичок в організації введення/виводу значень стандартних типів даних.
2. Отримання практичних навичок роботи в інтерактивному (діалоговому) режимі.
Постановка завдання

Організувати введення/виведення даних заданих типів, передбачте висновки звідповідними заголовками.

| | цілі числа | | Дійсні числа |
| | | Формат | | формат |
| 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 |
| N | до | ста | ш | до | Ст | ш | зна | сі | печать |
| | Чи | нда | та | чи | ан | | ків | мв | Булевського |
| у | че | ртн | р | че | да | та | | ол | змінно |
| а | ст | ий | й | ст | рт | р | с | ов | й |
| р | у | | н | у | ни | та | ле | | |
| і | | | а | | й | н |. | | |
| а | | | | | | а | | | |
| н | | | п | | | | | | |
| т | | | о | | | | | | |
| а | | | л | | | п | | | |
| | | | Я | | | о | | | |
| | | | | | | Л | | | |
| | | | | | | Я | | | |
| 13 | 3 | c | 3 | 6 | C | 5 | 2 | 4 | FALSE |

Лістинг програми

program zadanie_2;uses crt;const log = false;var k, l, m: integer; a, b, c, d, e, f: real; s1, s2, s3, s4: char;beginclrscr; writeln ( 'Введіть цілі числа K, L, M:'); read (k, l, m); writeln ('': 30, 'цілі числа'); writeln ('',' стандартна форма ',' ': 18,' задана ширина поля '); writeln ('', k,' ', l,' ', m,'': 30,' K = ', k: 3,' L = ', l: 3 , 'M =', m: 3); writeln; writeln ('': 25, 'Введіть речові числа A, B, C, D, E, F:'); readln (a, b, c, d, e , f); writeln ('': 20, 'стандартна форма'); writeln ('', a, '', b, '', c, '', d, '', e, '', f); writeln ('': 18, 'задана ширина поля'); writeln ( 'A =', a: 5:2, 'B =', b: 5:2, 'C =', c: 5:2, ' D = ', d: 5:2,' E = ', e: 5:2,'
F = ', f: 5:2); writeln; writeln (' Введіть символи S1, S2, S3, S4: '); readln (s1, s2, s3, s4); writeln (' символьні змінні: '); writeln ( 'S1 =', s1, 'S2 =', s2, 'S3 =', s3, 'S4 =', s4); writeln ( 'друк символьних змінних з шириною поля 5:'); writeln (s1: 5, s2: 5, s3: 5, s4: 5); writeln ( 'логічна змінна дорівнює', log); readln; readln;end.

Протокол роботи

Введіть цілі числа K, L, M:
1
2
3 цілі числастандартна форма задана ширина поля
1 2 3 K = 1 L = 2 M = 3

Введіть речові числа A, B, C, D, E, F:
234 4 5 6 7 8 стандартна форма
2.3400000000E +02 4.0000000000E +00 5.0000000000E +00 6.0000000000E +00
7.00000
00000E +00 8.0000000000E +00 задана ширина поля
A = 234.00 B = 4.00 C = 5.00 D = 6.00 E = 7.00 F = 8.00

Введіть символи S1, S2, S3, S4:qwerсимвольні змінні:
S1 = q S2 = w S3 = e S4 = rдрук символьних змінних з шириною поля 5: qwerлогічна змінна дорівнює FALSE

Практичне завдання № 3

розгалужуються структури. Оператор IF з GO TO, THEN, ELSE

Мета завдання
1. Отримання навичок у використанні умовного оператора при написанні програм.
2. Розбір та знайомство із завданнями, для вирішення яких використовується умовний оператор.
Постановка завдання

Організуйте введення і виведення п'яти цілих позитивних чисел a, b, c, p,q. Визначивши залишок К від поділу на 9 величини М, що дорівнює обчислітьзначення функції

y = arctg4, 7x/(x2-secx)-xcosx, при к = 0 y = 2sinx, при к = 1 y = cos (| ax2 + b | -1), при до = 2

Лістинг програми

program zadanie_3;uses crt;var a, b, c, p, q, k, m: integer; x, y: real;beginclrscr; writeln ( 'Протокол роботи'); writeln ( 'Введіть вихідні дані:'); readln (a, b, c, p, q, x); writeln ( 'a =', a, ', b =', b, ', c =', c, ', p =', p, ', q =', q, ', x =', x: 6:3); m: = (a + b + c + p ) div q; k: = m mod 9; if k = 0 then begin y: = sqrt (arctan (4.7 * x)/x * x-sin (x))-exp (cos (x) * cos (x) * ln (x)); writeln ( 'К = 0, значення змінної Y одно', y: 6:3); end; if k = 1 then begin y: = exp (sin (x) * ln (2)) ; writeln ( 'К = 1, значення змінної Y одно', y: 6:3); end; if k = 2 then begin y: = cos (abs (a * x * x + b) -1); writeln ( 'К = 2, значення змінної Y одно', y: 6:3); end; if k> 2 then writeln ( 'Значення змінної Y невизначеним тому що К> 2'); readln;end.

Протокол роботи

Введіть вихідні дані:

4 a = 2, b = 3, c = 76, p = 3, q = 76, x = 4.000

К = 1, значення змінної Y одно 0.592

У цій програмі було використано чотири оператори IF у скороченійформі.

При роботі над даною програмою помилок допущено не було.

Практичне будинок № 4

Рішення задач, описуваних алгоритмами циклічної структури з використанням одновимірних масивів.

Мета завдання
1. Отримання практичних навичок роботи з одновимірним масивом.
1. Закріплення навичок в організації введення/виводу значень одновимірного масиву.
2. Отримання практичних навичок роботи в інтерактивному (діалоговому) режимі.
3. Робота з діагностичними повідомленнями транслятора при виконанні програм з одновимірним масивом.
Постановка завдання

Організуйте введення/виведення одновимірного масиву, передбачте висновоквідповідними заголовками.

У масиві (zi), i = 1, 2, ... , 10 є позитивні і негативніелементи. Підрахувати кількість негативних і позитивних елементів.
Вирішити завдання для двох наборів даних: а. -5,25,17,18,20, -10, -9, -5,12,23; Б.15, 20,15,4, -8, -5, -20, -43, -9, -- 25;

Лістинг програми

program zadanie_4;uses crt;const n = 10;var z: array [1 .. n] of integer; a, b, i: integer;beginclrscr; writeln ( 'Введіть через пробіл 10 чисел'); for i: = 1 to n do begin readln (z [i]); if z [i]> 0 then a: = a +1; if z [i]