Звіт з практики з Turbo Pascal

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

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

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

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

Постачання задачи.

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

|1. a = | x=47,8 | |(x+y/(5+x))/|y-sinx+x|+5arctgx|y=-5,5 | | |u=2,3 | | |v=0,8 | |2. b= etgu+1 lnarcsinv [pic] | |.

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

program zadanie₁; uses crt; var x, y, u, v: real; a, b: real; begin clrscr; 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.95 995 0475E+01.

b=-6.700 034 5276E-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 |з |3 |6 |З |5|2 |4 |FALSE |.

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

program zadanie₂; uses crt; const log=false; var k, l, m:integer; a, b, c, d, e, f: real; s1, s2,s3,s4:char; begin clrscr; 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, «», з, «», d, «», e, «», f); writeln («» :18, «задана ширина поля »); writeln («A= «, a:5:2, «B= «, b:5:2, «З= «, 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.340 000 0000E+02 4.00E+00 5.00E+00 6.00E+00 7.0 00000E+00 8.00E+00 задана ширина поля A=234.00 B= 4.00 З= 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: q w e r логічна змінна дорівнює FALSE.

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

Разветвляющие структури. Оператор IF з GO TO, THEN, ELSE.

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

Організуйте введення та виведення п’яти цілих позитивних чисел a, b, з, p, q. Визначивши залишок До від розподілу на 9 величини М, рівної [pic]вычислите значення функции.

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

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

program zadanie₃; uses crt; var a, b, c, p, q, k, m:integer; x, y: real; begin clrscr; writeln («Протокол роботи »); writeln («Запровадьте вихідні дані: »); readln (a, b, c, p, q, x); writeln («a= «, a, «, b= «, b, «, з= «, з, «, p= «, p, «, q= «, q, «, x= «, x:6:3); m:=(a+b+c+p) divx 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₄; uses crt; const n=10; var z: array [1.n] of integer; a, b, i:integer; begin clrscr; writeln («Запровадьте через прогалину 10 чисел »); for i:=1 to n do begin readln (z[i]); if z[i]>0 then a:=a+1; if z[i].