• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

Київ 1998

МІНІСТЕРСТВО ОСВІТИ УКРАЇНИ

ДЕРЖАВНА АКАДЕМІЯ ЛЕГКОЇ ПРОМИСЛОВОСТІ УКРАЇНИ

МЕТОДИЧНІ ВКАЗІВКИ

ДЛЯ САМОСТІЙНОЇ ПІДГОТОВКИ ДО ЛАБОРАТОРНИХ РОБІТ З КУРСУ

"Основи програмування та алгоритмічні мови"

(частина перша)

Київ 1998

ОСВІТИ УКРАЇНИ

ДЕРЖАВНА АКАДЕМІЯ ЛЕГКОЇ ПРОМИСЛОВОСТІ УКРАЇНИ

МЕТОДИЧНІ ВКАЗІВКИ

ДЛЯ САМОСТІЙНОЇ ПІДГОТОВКИ ДО

ЛАБОРАТОРНИХ РОБІТ З КУРСУ

‘Основи програмування та алгоритмічні мови’

(частина перша)

для студентів спеціальності

‘Комп'ютерні системи проектування’

Затверджено

на засіданні кафедри

комп’ютерних технологій

проектування

Протокол N від 30.10.98р.

Київ 1998

Методичні вказівки для лабораторних робіт з курсу

‘Основи програмування та алгоритмічні мови’ (частина перша) для студентів спеціальності ‘Комп'ютерні системи проектування’

/укладачі: Чупринка В.І., Резніков С.А., Брюхович О.Є.

- К.: ДАЛПУ, 1998. - с. /

Укладачі: В.І. Чупринка

С.А. Резніков

О.Є.Брюхович

Вступ

Система програмування Turbo Pascal (TP) установлена практично на кожному другому персональному комп'юте-рі сімейства IBM PC. Спробуємо дати відповідь, чому алго-ритмічна мова TP користується такою популярністю.

1. TP є логічним розширенням мови Pascal, котра в сере-дині 80-х років одержала визнання та достатньо широку розповсюдженність.

2.Мова TP в природній та елегантній формі відобразила важливі сучасні концепсії технології розробки програм: розвинута система типів, орієнтація на принципи струк-турного програмування, піддержка процесу пошагової розробки.

3. TP сприяє запровадженню сучасної технології, основаної на принципі структурного програмування та пошаговому ме-тоді проектування програм і позволяє записувати достатньо складні програми в компактній та елегантній формі.

4. Мова TP дуже зручна для використання в різних додатках, в тому числі для розв'язування дуже великих та складних задач обчислювального та логічного характеру, символьної обробки, системного програмування.

5. TP може з успіхом виступати в ролі базової мови для навчання програмуванню.

ЛАБОРАТОРНА РОБОТА N1

ОРГАНIЗАЦIЯ РОБОТИ КОРИСТУВАЧА З ПЕОМ.

Мета роботи- засвоєння роботи з клавiатурою дисплея i порядку роботи на ПЕОМ.

Завдання для самостiйної пiдготовки.

1.Ознайомитися з розташуванням і призначенням клавiш клавiатури ПЕОМ.

2.Ознайомитися з порядком роботи на ПЕОМ.

3.Вивчити iнструкцiю по технiцi безпеки при роботi на ПЕОМ та її виконувати.

4.Ознайомитися з програмою обчислення площi трикутника.

Завдання до роботи.

1.Засвоїти роботу з клавiатурою, набираючи текст та виконуючи його редагування.

2.Набрати програму обчислення площi трикутника за формулою Герона та отримати результат.

3.Перевiрити вiрнiсть рiшення.

Приклад виконання роботи.

1. Набрати слідуючу программу:

Program Trey;

{ Обчислення площі трикутника зі сторонами а,в,с за формулою Герона: S=sqrt(p*(p-a)*(p-b)*(p-c)), де p=(a+b+c)/2 }

Var a,b,c,p,s:real;

f:text;

name:string[10];

Begin

Write('Вкажіть ім"я файла, в який будуть виводиться ');

write('вихідні дані та результати розрахунків або CON');

readln(name);

Assign(f,name);

Rewrite(f);

writeln(f,'Лабораторна робота N 1');

writeln(f,'Тема: Обчислення площі трикутника за');

writeln(f,' ф-лою Герона');

writeln(f,'Виконав студент групи БСП-96 Сидоров І.');

write('Введіть через інтервал розміри сторін ‘,

‘трикутника: ');

readln(a,b,c);

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln(f,' Якщо a=',a:3:1,' b=',b:3:1,' c=',c:3:1);

writeln(f,' то площа трикутника = ',s:6:2);

writeln(f);

readln;

close(f);

End.

Результати обчислень

Лабораторна робота N 1

Тема: Обчислення площі трикутника за

ф-лою Герона

Виконав студент групи БСП-96 Сидоров І.

Якщо a=20.0 b=30.0 c=16.0

то площа трикутника = 147.92

2. Виконати трансляцію програми. При наявності похибок внести

виправлення в текст програми.

3. Виконати програму і перевірити правильність роботи програми

на тестовому варіанті вихідних даних: при а=3, b=4, c=5 s=6.

ЛАБОРАТОРНА РОБОТА N2.

ПРОГРАМУВАННЯ АЛГОРИТМIВ ЛIНIЙНОЇ СТРУКТУРИ.

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

Завдання для самостiйної пiдготовки.

1.Вивчити:

-запис сталих, змiнних, стандартних функцiй;

-правила запису арифметичних виразiв;

-арифметичний оператор присвоєння;

-органiзацiю найпростiшого вводу-виводу даних.

2.Розробити алгоритм розв'язку у вiдповiдностi з завданням.

3.Скласти програму розв'язку задачi.

4.Пiдготувати текстовий варiант вихiдних даних та обчислити для їх вручну або за допомогою мікрокаль-кулятора значення обчислюваних у програмi величин.

Завдання до роботи

1.Обчислити на ПЕОМ значення змiнних з таблицi за розрахунковими формулами та наборам вихiдних даних.

На друк вивести значення вихiдних даних та результати обчислень, супроводжуючи вивiд поiменуванням кiнцевих змiнних.

2.Модифiкувати програму, а потiм її виконати на ЕОМ таким чином, щоб вивiд обчислюваних значень змiнних здiйснювався у вiдповiдностi з наступним розташуванням рядків:

*****************************

* РЕЗУЛЬТАТИ ОБЧИСЛЕНЬ *

*****************************

<пропуск 1-го рядка>

<iм'я>=.............

*******************

<iм'я> =..............

*********************

Приклад виконання роботи.

Program Konus;

{ Обчислення площі повної поверхні зрізаного конуса та

його об"єму за формулами: S=Pi*((r1+r2)*l+r1*r1+r2*r2)

та V=Pi*(r1*r1+r1*r2+r2*r2)*h/3.}

Var r1,r2,l,h,s,v:real;

f:text;

name:string[10];

Begin

Write('Вкажіть ім"я файла, в який будуть виводиться ');

write('вихідні дані та результати розрахунків або CON ');

readln(name);

Assign(f,name);

Rewrite(f);

writeln(f,'Лабораторна робота N 2');

writeln(f,'Тема: Програмування алгоритмів ');

writeln(f,' лінійної cтруктури');

writeln(f,'Виконав студент групи БСП-96 Сидоров І.');

write('Введіть через інтервал величини r1,r2,h та l : ');

readln(r1,r2,h,l);

S:=Pi*((r1+r2)*l+r1*r1+r2*r2);

V:=Pi*(r1*r1+r1*r2+r2*r2)*h/3;

writeln(f,' ':8,'**************************');

writeln(f,' ':8,'* РЕЗУЛЬТАТИ ОБЧИСЛЕНЬ *');

writeln(f,' ':8,'**************************');

writeln(f);

writeln(f,' Площа повної поверхні конуса = ',s:5:1);

writeln(f,' ************************************');

writeln(f,' ':20,'Oб"єм конуса = ',v:5:1);

writeln(f,' ':20,'********************');

writeln(f);

close(f);

readln

End.

Результати обчислень

Лабораторна робота N 2

Тема: Програмування алгоритмів лінійної

cтруктури

Виконав студент групи БСП-96 Сидоров І.

**************************

* РЕЗУЛЬТАТИ ОБЧИСЛЕНЬ *

**************************

Площа повної поверхні конуса = 4178.3

************************************

Oб"єм конуса = 12828.2

********************

Варіанти завдань.

1. Скласти програму для обчислення третьої сторони трикутника, якщо відомі дві сторони та кут між ними (теорема косинусів: c²=a²+b²-2ab*cos ).

2. Скласти програму для обчислення косинуса кута alfa, якщо відомі сторони трикутника a,b,c. (теорема косинусів: cos =(c²-a²-b²)/(2ab)).

3. Скласти програму для обчислення медіани трикутника, проведеної з вершини B, за формулою:

m=(( 2a²+2c²-b²)^1/2)/2, де a, b,c - сторони трикутника.

4. Скласти програму для обчислення висоти трикутника, проведеної з вершини B, за формулою:

h=2(p(p-a)(p-b)(p-c))^1/2)/b, де p=(a+b+c)/2 та

a,b,c - сторони трикутника.

5. Скласти програму для обчислення бісектриси трикутника, проведеної з вершини B, за формулою:

l=2((acp(p-b))^1/2)/(a+c), де p=(a+b+c)/2 та

a,b,c - сторони трикутника.

6. Скласти програму для обчислення площі трикутника за двома сторонами та кутом між ними, використо-вуючи формулу: S=ab*sin /2.

7. Скласти програму для обчислення площі трапеції за формулою:

S=(a+b)h/2, де a,b - основи трапеції та h - висота трапеції.

8. Скласти програму для обчислення радіуса описаного кола навколо трикуника за формулою: R=abc/S, де a,b,c-сторони трикутника, S=(p(p-a)(p-b)(p-c))^1/2 та p=(a+b+c)/2.

9. Скласти програму для обчислення радіуса вписаного кола в трикутник зі сторонами a,b,c за формулою: r=S/p,

де S=(p(p-a)(p-b)(p-c))^1/2 та p=(a+b+c)/2.

10. Скласти програму для обчислення сторони правельного многокутника за формулою: a=2R*sin( /n), де n-кількість сторін правельного многокутника, R - радіус описаного кола, =3.1415 .

11. Скласти програму для обчислення сторони правельного многокутника за формулою: a=2r*tg( /n), де n - кількість сторін правельного многокутника, r - радіус описаного кола, =3.1415 .

12. Скласти програму для обчислення площі поверхні прямокутного паралепіпеда зі сторонами a,b,c за формулою: S=2(ab+ac+bc).

13. Скласти програму для обчислення площі бічної по-верхні правельної піраміди зі стороною основи a, висотою бічної грані h та кількістю сторін n за формулою: S=nah/2.

14. Скласти програму для обчислення об'єму зрізаної піра-міди за формулою: V=h(Q₁+(Q₁*Q₂)^1/2+Q₂)/3, де h,Q₁ та Q₂ - відповідно висота та площі основ.

15. Скласти програму для обчислення площі бічної поверхні правельної зрізаної піраміди за формулою: S=(p₁+p₂)h/2, де p₁ та p₂ - периметри основ правельної піраміди та h – ви-сота бічної грані цієї піраміди.

16. Скласти програму для обчислення площі повної поверхні ціліндра з радіусом основи R та висотою H за формулою : S=2 *R*(R+H), де =3.1415 .

17. Скласти програму для обчислення повної поверхні кону-са за формулою: S= (R+L)R, де R - радіус основи кону-са, L - твірна конуса та =3.1415 .

18. Скласти програму для обчислення площі поверхні кулі за формулою S=4 *R³, де R - радіус кулі та =3.1415 .

19. Скласти програму для обчислення площі сферичного сегмента за формулою: S=2 *R*H, де R - радіус кулі,

H - висота сферичного сегмента та =3.1415 .

20. Скласти програму для обчислення об'єму прямокутного паралепіпеда за формулою: V=abc, де a,b,c - сторони цього паралепіпеда.

21. Скласти програму для обчислення об'єму піраміди за формулою:V=S*H/3,де S - площа основи піраміди та H - висота піраміди.

22. Скласти програму для обчислення об'єму конуса за формулою: V= *R²*H/3, де R - радіус основи, H - висота конуса та =3.1415 .

23. Скласти програму для обчислення об'єму циліндра за формулою V= *R²*H, де R - радіус основи, H - висота ци-

ліндра та =3.1415 .

24. Скласти програму для обчислення об'єму кульового сегмента за формулою: V= *H²*(3R-H), де R - радіус кулі, H - висота сегмента та =3.1415 .

25. Скласти програму для обчислення кульового сектора за формулою: V=2 *R²*H, де R - радіус кулі, H - висота сегмента та =3.1415 .

26. Скласти програму для обчислення синуса кута трикутника за двома сторонами a,b та площею трикутника, використовуючи формулу: sin =2S/ab.

27. Скласти програму для обчислення висоти трапеції за формулою: h=2S/(a+b), де a,b - основи трапеції та S -площа трапеції.

28. Скласти програму для обчислення площі трикутника за радіусом описаного кола R та сторонами a,b,c викорис-товуючи формулу: S=abc/R.

29. Скласти програму для обчислення площі трикутника за радіусом вписаного кола в трикутник та його сторонами a,b,c за формулою: S=r*p, де p=(a+b+c)/2.

30. Скласти програму для обчислення радіуса описаного кола навколо правельного многокутника за формулою: R=a/(2sin( /n)),

де n - кількість сторін правельного многокутника,

a - cторона правельного многокутника, =3.1415 .

31. Скласти програму для обчислення радіуса вписаного кола в правельний многокутник за формулою: r=a/(2tg( /n)), де n - кількість сторін та a - cторона многокутника, =3.1415 .

32. Скласти програму для обчислення суми основ трапеції с=a+b за формулою: c=2S/h, де a,b - основи трапеції,

h - висота трапеції та S -площа трапеції.

33. Скласти програму для обчислення висоти бічної грані правельної піраміди зі стороною основи a, площею бічної поверхні h та кількістю сторін n за формулою: h=nah/2.

34. Скласти програму для обчислення висоти зрізаної піра-міди за формулою: h=3V/(Q₁+(Q₁*Q₂)^1/2+Q₂), де V,Q₁ та

Q₂ - відповідно об'єм та площі основ.

35. Скласти програму для обчислення висоти бічної грані правельної зрізаної піраміди за формулою: h=2S/(p₁+p₂)h, де p₁ та p₂ - периметри основ правельної піраміди та

S - площа бічної поверхні цієї піраміди.

36. Скласти програму для обчислення висоти циліндра H за площею повної поверхні ціліндра S з радіусом основи R за формулою:H=S/(2 *R)-R, де =3.1415 .

37. Скласти програму для обчислення твірної конуса L за повною поверхнею конуса S та радіусом основи конуса R використовуючи формулу: R=S/( *R)-L, де =3.1415 .

38. Скласти програму для обчислення радіуса кулі R за площею поверхні кулі S за формулою R=(S/ )^1/2/2, де =3.1415 .

39. Скласти програму для обчислення висоти сферичного сегмента за формулою: H=S/(2 *R), де R - радіус кулі, S - площа сферичного сегмента та =3.1415 .

40. Скласти програму для обчислення висоти піраміди за формулою: H=3V/S, де S - площа основи піраміди та V - об'єм піраміди.

41. Скласти програму для обчислення радіуса основи конуса за формулою: R=(3V/H)^1/2, де V - об'єм конуса, H - висота конуса та =3.1415 .

42. Скласти програму для обчислення висоти конуса за формулою: H=3V/( *R²), де R - радіус основи, V - об'єм конуса та =3.1415 .

43. Скласти програму для обчислення висоти циліндра за формулою V= *R²*H, де R - радіус основи, V - об'єм циліндра та =3.1415 .

44. Скласти програму для обчислення радіуса кулі за об'ємом V та висотою кульового сегмента H використовуючи формулу: R=(V/( *H²)+H)/3, де V - об'єм та H - висота кульового сегмента, =3.1415 .

45. Скласти програму для обчислення радіуса кулі за об'ємом V та висотою кульового сектора H викори-стовуючи формулу: R=(V/(2 *H)^1/2, де =3.1415 .

46. Скласти програму для обчислення шляху, який пройде тіло при рівномірно-прискореному русі за T₁=10 сек, якщо S=at²/2+vt та a=g₁=4, v=v₁=6.

47. Скласти програму для обчислення прискорення, з яким рухалось тіло при рівномірно-прискореному русі, якщо a=(S-vt)/t² та S=S₁=100, t=T₁=5, v=v₁=5.

48. Скласти програму для обчислення часу, за який при рівномірно-прискореному русі тіло пройде шлях S=S₁=200 з прискоренням a=a₁=8 та початковою швидкістю v=0, якщо t=(s/a)^1/2.

49. Скласти програму для обчислення швидкості тіла V при рівномірно-прискореному русі з прискоренням a=a₁=3 через t=t₁=5cек руху, якщо його початкова швидкість v=v₁=4 та V=at+v.

50. Скласти програму для обчислення прискорення тіла при рівномірно-прискориному русі, якщо його початкова та кінцева швидкості відповідно дорівнюють v=v₀=2,V=v₁=10, де a=(V-v)/t та t=t₁=2.

51. Скласти програму для обчислення часу руху тіла при рівномірно- прискориному русі, якщо його початкова та кінцева швидкості відповідно дорівнюють v=v₀=2,V=v₁=10, де t=(V-v)/a та a=a₁=5.

52. Скласти програму для обчислення загальної ємкості С трьох послідовно з'єднаних конденсаторів з ємкостями С₁, С₂, С₃, де 1/С=1/С₁+1/С₂+1/С₃.

53. Скласти програму для обчислення об'єму при розширенні газу з постійним тиском, якщо температура його збільши-лась на 20 градусів та V=V₀*T₁/T₀, де V₀=v=10, T₀=T=230.

54. Скласти програму для обчислення температури газу при його розширенні з постійним тиском, якщо об'єм його збільшився вдвічі та T₁=V₁*T₀/V₀, де V₁=v=2V₀, T₀=T=230.

55. Скласти програму для обчислення об'єму при розширенні газу з постійною температурою, якщо тиск його зменшився вдвічі та V=V₀*p₀/p₁, де V₀=v=10, p₁=p=2p₀.

56. Скласти програму для обчислення тиску при розширенні газу з постійною температурою, якщо об'єм його збіль-шився вдвічі та p=V₀*p₀/v₁, де p₀=10, v₁=v=2v₀.

57. Скласти програму для обчислення температури газу при постійному об'ємі, якщо тиск його збільшився вдвічі та T₁=p₁*T₀/p₀, де p₁=p=2p₀, T₀=T=230.

58. Скласти програму для обчислення тиску газу при постійному об'ємі, якщо температура його збіль-шилася вдвічі та p₁=p₀*T₁/T₀, де T₁=T=2T₀, p₀=p=20.

59. Скласти програму для обчислення загального опору R трьох паралельно з'єднаних провідників з опорами R₁, R₂, R₃, де

1/R=1/R₁+1/R₂+1/R₃.

60. Скласти програму для обчислення величину спожитої електроенергії Q за t=t₀=600 сек, якщо напруга та струм в електричному колі відповідно дорівнюють I=I₀=10a та U=U₀=220v, де Q=IUt.

ЛАБОРАТОРНА РОБОТА N3.

ПРОГРАМУВАННЯ АЛГОРИТМIВ РОЗГАЛУЖЕНОЇ ТА ЦИКЛIЧНОЇ СТРУКТУРИ.

Мета роботи-оволодiння практичними навиками розробки, програмування обчислювального процесу розгалуженої та циклiчної структур,одержання подальших навикiв по вiдлад-цi i тестуванню програм.

Завдання для самостiйної пiдготовки

Завдання А

1.Вивчити можливостi мови програмування для реалiзацiї:

-умовної та безумовної передачi керування;

-обчислювального процесу розгалуженої структури.

2.Розробити алгоритм розв'язку поставленої задачі у вiдповiдностi з завданням.

3.Скласти програму розв'язку задачi.

4.Пiдготувати тести (число тестiв дорiвнює числу гiлок обчислювального процесу)для перевiрки вiрностi функцiювання програми.

Завдання Б.

1.Вивчити можливостi мови програмування для реалiзацiї:

-обчислювальних процесiв циклiчної структури з вiдомим числом повторювань в циклi;

-методу програмування-табулювання функцiї вiд одного аргументу (обчислювання значень функцiї при змiнi значень аргументу у заданому дiапазонi з кроком Dх).

2.Розробити алгоритм табулювання функцiї, визначеної у завданнi А.

3.Скласти програму табулювання функцiї.

Завдання до роботи

Завдання 1.

1.Скласти програму для обчислислення значення функцiї, заданої у відповідному варіанті завдання 1, яке приве-дене нижче.

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

2.Виконайте програму на ПЕОМ i протестуйте всi гiлки алгоритму.

Приклад виконання завдання 1.

Завдання 1. Обчислити значення функції для заданого аргумента.

Здійснити вивід значення заданого аргумента x та результату

обчислення значення функції S,

де:

Program Tree1;

Const a=2.6;

b=-0.39;

Var x,s:real;

f:text;

name:string[12];

Begin

Writeln('Вкажіть ім"я файла, в який будуть виводиться ');

Writeln('вихідні дані та результати розрахунків або’ ,

‘CON');

readln(name);

Assign(f,name);

Rewrite(f);

writeln(f,'Лабораторна робота N 3_1');

writeln(f,'Тема: Програмування алгоритмів ');

writeln(f,' циклічної та розгалуженої cтруктури');

writeln(f,'Виконав студент групи БСП-96 Сидоров І.');

Write('Вкажіть значення заданого аргумента X ');

Readln(x);

if x<2.8 then S:=(a+b)/(exp(x)+cos(x))

else if x<6 then S:=(a+b)/(x+1)

else S:=exp(x)+sin(x);

Writeln(f,'При значені X=',x:3:1,' функція S=',

s:3:1);

Writeln(f);

Close(f);

Readln

End.

Результати обчислень

Лабораторна робота N 3_1

Тема: Програмування алгоритмів циклічної та

розгалуженої структури

Виконав студент групи БСП-96 Сидоров І.

При значені X=10.0 функція S=22025.9

Варіанти завдання 1.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

Завдання 2.

1.Скласти програму таким чином, щоб обчислювалось багаторазово значення функцiї при змiнi аргумента у вказанному дiапазонi [a,b] та з заданним кроком h. Дані a,b,h задаються користувачем та вводяться з дисплея. Функцiя задається у відповідному варіанті завдання 2, яке приведене нижче.

2.Органiзувати вивiд значень аргумента i обчислюваль-ного значення функцiї у виглядi таблицi.

ТАБЛИЦЯ ЗНАЧЕНЬ ФУНКЦIЇ Y(x)

X Y

..... .....

..... .....

2.Виконайте на ЕОМ одержану програму.

Приклад виконання завдання 2.

Завдання 2. Обчислити значення функції для заданого аргумента в заданому діапазоні зміни [a,b] з кроком зміни h.

Здійснити вивід значення заданого аргументу y та результату обчислення значення функції S у вигляді таблиці, де:

Program Tree2;

Label l1;

Var x,y,xp,xk,hx,s:real;

i:integer;

f:text;

name:string[12];

Begin

Write('Вкажіть ім’я файла, в який будуть виводиться ');

write('вихідні дані або CON');

readln(name);

Assign(f,name);

Rewrite(f);

writeln(f,'Лабораторна робота N 3_2');

writeln(f,'Тема: Програмування алгоритмів циклічної та');

writeln(f,' розгалуженої структури');

writeln(f,'Виконав студент групи БСП-96 Сидоров І.');

Write('Вкажіть початкове значення заданого’,

’ аргумента X ');

Readln(xp);

Write('Вкажіть кінцеве значення заданого ‘,

‘аргумента X ');

Readln(xk);

Write('Вкажіть крок зміни аргумента X ');

Readln(hx);

Writeln (f,' ТАБЛИЦЯ ЗНАЧЕНЬ ФУНКЦIЇ S(x) ');

writeln(f);

writeln(f,' X Y S ');

writeln(f);

x:=xp;

L1:if x=0 then y:=0

else if x>0 then y:=exp(ln(x)/3)

else y:=-exp(ln(-x)/3);

if (y<0) or ((y>2)and(y<2.8)) or (y=6) or (y>20) then

writeln(f,' ',x:3:1,' ',y:5:3,' ','Ф.Н.B.')

else

begin

if (0<=y)and(y<=2) then S:=y/(exp(y)+cos(y))

else if (2.8<=y)and(y<6) then S:=(y-5)/(y+1)

else S:=exp(y)+sin(y);

writeln(f,' ',x:3:1,' ',y:5:3,' ',s:5:3)

end;

x:=x+hx;

readln;

if x<=xk then goto L1;

Writeln(f);

Close(f);

Readln

End.

Результати обчислень

Лабораторна робота N 3_2

Тема: Програмування алгоритмів циклічної та

розгалуженої структури

Виконав студент групи БСП-96 Сидоров І.

ТАБЛИЦЯ ЗНАЧЕНЬ ФУНКЦIЇ S(x)

X Y S

2.0 1.260 0.329

2.3 1.310 0.330

2.5 1.357 0.331

2.8 1.401 0.331

3.0 1.442 0.331

3.3 1.481 0.330

3.5 1.518 0.329

3.8 1.554 0.327

4.0 1.587 0.326

4.3 1.620 0.324

4.5 1.651 0.322

4.8 1.681 0.320

5.0 1.710 0.317

5.3 1.738 0.315

5.5 1.765 0.312

5.8 1.792 0.310

6.0 1.817 0.307

Варіанти завдання 2.

1. 5 , для ;

f =

, для ;

де та .

2. , для ;

u =

, для ;

де та .

3. , для ;

w =

, для ;

де та .

4. , для ;

z =

, для ;

де та .

5. , для ;

v =

, для ;

де та .

6.

, для ;

u =

, для ;

де та .

7. , для ;

w =

, для ;

де та .

8. , для ;

y =

, для ;

де та .

9. , для ;

v =

, для ;

де та .

10. , для ;

w =

, для ;

де та .

11. , для ;

f =

, для ;

де та .

12. , для ;

z =

, для ;

де та .

13. , для ;

w =

, для ;

де та .

14. , для ;

y =

, для ;

де та .

15. , для ;

v =

, для ;

де та .

16. , для ;

z =

, для ;

де та .

17. , для ;

y =

, для ;

де та .

18. , для ;

w =

, для ;

де та .

19. , для ;

f =

, для ;

де та .

20. , для ;

y =

, для ;

де та .

21. , для ;

f =

, для ;

де та .

22. , для ;

v =

, для ;

де та .

23. , для ;

w =

, для ;

де та .

24. , для ;

f =

, для ;

де та .

25. , для ;

u =

, для ;

де та .

26. , для ;

w =

, для ;

де та .

27. , для ;

v =

, для ;

де та .

28. , для ;

f =

, для ;

де та .

29. , для ;

y =

, для ;

де та .

30. , для ;

y =

, для ;

де та .

31. , для ;

y =

, для ;

де та .

32. , для ;

f =

, для ;

де та .

33. , для ;

y =

, для ;

де та .

34. , для ;

v =

, для ;

де та .

35. , для ;

y =

, для ;

де та .

36. , для ;

z =

, для ;

де та .

37. , для ;

z =

, для ;

де та .

38. , для ;

f =

, для ;

де та

Переглядів: 358