Контрольная работа: Програмування на Pascal и в MS Excel

Зміст

Завдання 1

Завдання 2

Завдання 3

Завдання 4

Завдання 5

Список використаної літератури

 


Завдання 1

Скласти блок-схему і програму, згідно варіанту К=8.

Дано А = 9; В = 26.

Обчислити значення функції

 

Рішення:

Складемо блок-схему задачі (рис.1)



Рис.1.

Программа.

program ROZGAL1;

{$APPTYPE CONSOLE}

uses

SysUtils;

VAR A, B, C, D: INTEGER;

W: REAL;

BEGIN

WRITELN ('Введіть A, B');

READLN (A, B);

C: = A mod 3;

D: = B mod 5;

IF C=0 THEN W: = SQR (A) *SQR (B) *B

ELSE IF D=0 THEN W: = 1 - SQRT (B)

ELSE W: =0;

WriteLn (' W=',W: 7: 3);

ReadLn;

ReadLn

end.

Контрольний приклад (рис.1): A= 9, B= 26, W= 1423656.000.

Рис.1.

 

Завдання 2

Дано: Масив. Тип елементів масиву - INTEGER; кількість елементів масиву - 10.

Знайти: знайти добуток останніх 5 елементів масиву.

Рішення:

програмування pascal програма лістинг

Задано вектор А, який містить n елементів. Математично описати умову задачі, розробити схему алгоритму, скласти таблицю символічних імен та програму на мові Turbo Pascal згідно варіанту №23. Обчислення добутку останніх чотирьох елементів та суми перших трьох елементів масиву.

Алгоритм наведений на рис.2.1.

Рис.2.1.

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

program Dodut_2;

{$APPTYPE CONSOLE}

uses

SysUtils;

VAR N, I,P: INTEGER; X: ARRAY [1.10] OF INTEGER;

BEGIN

WRITELN ('Введіть кількість елементів масиву');

READLN (N);

FOR I: =1 TO N DO

BEGIN

WRITELN ('Введіть', I,'елемент масиву');

READLN (X [I]);

END;

P: =1;

FOR I: =N-4 TO N DO

BEGIN

P: =P*X [I];

end;

WRITELN ('Dobut = ', P);

READLN;

READLN

end.

Контрольний приклад (рис.2.2)

Рис.2.2


Завдання 3

Побудувати інтерполяційний багаточлен Лагранжа відносно N = 10 i K = 8.

Дано:

xi = x0 + 0,4i, (і = 0, 1, 2,3);

yі = N/ (K + xi); x0 = 0,05N

Рішення.

Таблиця 3.1

і 0 1 2 3

хі

0,5 0,9 1,3 1,7

уі

1,18 1,12 1,08 1,03

Обчислимо коефіцієнти Лагранжа для n = 4 та i = 0, 1, 2, 3.

;

;

;

.

;

L3 (x) =

() +

() + () +

()

Одержали багаточлен третього ступеня. Якщо потрібно знайти значення функції, якого немає у таблиці (наприклад х = 0,2), те підставивши у багаточлен замість х значення 0,2, отримаємо функцію y = f (0,2). Якщо тільки одноразове потрібно знайти значення y = f (х), те багаточлен Лагранжа будувати не потрібно. У формули коефіцієнтів Лагранжа замість х треба підставити число 0,2 або якесь інакше, і всі коефіцієнти перетворяться у число, тоді за формулами Лагранжа знайдемо відповідне значення функції.

 

Завдання 4

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

Дано:

 

xi = x0 + 0,4i, де

i = 0, 1, 2, 3, …

yi = N/ (K+xi) = 10/ (8+xi); N=10, K=8

x0 = 0,05N = 0,05*10 = 0,5

 

Рішення.

Маємо експериментальну залежність теплоємності пропану (газ) від температури:

Xi K

0,5 0,9 1,3 1,7 2,1 2,5 2,9

Yi Дж/кг*град

1,18 1,12 1,08 1,03 0,99 0,95 0,92

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

Проміжні обчислення зручно проводити після укладання таблиці 4.1

i Xi Yi Xi^2 Xi^3 Xi^4 XiYi Xi^2*Yi
1 0,5 1,18 0,25 0,13 0,06 0,59 0,29
2 0,9 1,12 0,81 0,73 0,66 1,01 0,91
3 1,3 1,08 1,69 2, 20 2,86 1,40 1,82
4 1,7 1,03 2,89 4,91 8,35 1,75 2,98
5 2,1 0,99 4,41 9,26 19,45 2,08 4,37
6 2,5 0,95 6,25 15,63 39,06 2,38 5,95
7 2,9 0,92 8,41 24,39 70,73 2,66 7,72
11,9 7,2662 24,71 57,239 141,17 11,871 24,03513

Згідно з таблицею 4.1 система рівнянь має вигляд:

0

+ 11,9а1

+ 24,71а2

= 7,2662

11,9а0

+ 24,71а1

+ 57,239а2

= 11,871

24,71а0

+ 57,239а1

+ 141,17а2

= 24,035

Розв’язок системи рівнянь дає значення коефіцієнтів:

а0 = 1,244304

а1 = - 0,14307

а2 = 0,010466;

Та емпіричну залежність:

f (x) = a0+a1x+a2x2 = 1,2443 - 0,143x + 0,01x2

Підставляючи у одержаний багаточлен експериментальні значення Хі одержимо Уіемп і ці результати занесемо до таблиці:

1 2 3 4 5 6 7

Уіемп

1,1754 1,124 1,076 1,0313 0,99 0,952 0,917417

Обчислимо середньоквадратичні відхилення:

,

.

Обчислимо коефіцієнт варіації V:

%

Так як V менше ніж 5%, те якість апроксимації задовільна.

 

Завдання 5

Обчислити за методом Рунге-Кути рівняння y’ = 1 - sin (3,8x + y) + 8,2y/ (2 +x) на відрізку [0, 1] з кроком h = 0,2. Проводимо обчислення згідно з моделлю (у MS Excel) - таблицею 5.1, результати занасемо до таблиці 5.2.


Таблиця 5.1

i Xi Yi f (Xi, Yi) k=h*f (Xi, Yi) Δyi
0 0 0 = (1-SIN (4,2*B2+C2) + (9*C2) / (2+B2)) =$H$2*D2 =E2
=B2+$H$2/2 =$C$2+E2/2 = (1-SIN (4,2*B3+C3) + (9*C3) / (2+B3)) =$H$2*D3 =2*E3
0,1 =$C$2+E3/2 = (1-SIN (4,2*B4+C4) + (9*C4) / (2+B4)) =$H$2*D4 =2*E4
0,2 =$C$2+E4 = (1-SIN (4,2*B5+C5) + (9*C5) / (2+B5)) =$H$2*D5 =E5
         (∑Δyi) /6 = =СУММ (F2: F5) /6
1 0,2 =C2+F6 = (1-SIN (4,2*B7+C7) + (9*C7) / (2+B7)) =$H$2*D7 =E7
0,3 =$C$7+E7/2 = (1-SIN (4,2*B8+C8) + (9*C8) / (2+B8)) =$H$2*D8 =2*E8
0,3 =$C$7+E8/2 = (1-SIN (4,2*B9+C9) + (9*C9) / (2+B9)) =$H$2*D9 =2*E9
0,4 =$C$7+E9 = (1-SIN (4,2*B10+C10) + (9*C10) / (2+B10)) =$H$2*D10 =E10
         (∑Δyi) /6 = =СУММ (F7: F10) /6
2 0,4 =C7+F11 = (1-SIN (4,2*B12+C12) + (9*C12) / (2+B12)) =$H$2*D12 =E12
0,5 =C12+E12/2 = (1-SIN (4,2*B13+C13) + (9*C13) / (2+B13)) =$H$2*D13 =2*E13
0,5 =C12+E13/2 = (1-SIN (4,2*B14+C14) + (9*C14) / (2+B14)) =$H$2*D14 =2*E14
0,6 =C12+E14 = (1-SIN (4,2*B15+C15) + (9*C15) / (2+B15)) =$H$2*D15 =E15
         (∑Δyi) /6 = =СУММ (F12: F15) /6
3 0,6 =C12+F16 = (1-SIN (4,2*B17+C17) + (9*C17) / (2+B17)) =$H$2*D17 =E17
0,7 =C17+E17/2 = (1-SIN (4,2*B18+C18) + (9*C18) / (2+B18)) =$H$2*D18 =2*E18
0,7 =C17+E18/2 = (1-SIN (4,2*B19+C19) + (9*C19) / (2+B19)) =$H$2*D19 =2*E19
0,8 =C17+E19 = (1-SIN (4,2*B20+C20) + (9*C20) / (2+B20)) =$H$2*D20 =E20
         (∑Δyi) /6 = =СУММ (F17: F20) /6
4 0,8 =C17+F21 = (1-SIN (4,2*B22+C22) + (9*C22) / (2+B22)) =$H$2*D22 =E22
0,9 =C22+E22/2 = (1-SIN (4,2*B23+C23) + (9*C23) / (2+B23)) =$H$2*D23 =2*E23
0,9 =C22+E23/2 = (1-SIN (4,2*B24+C24) + (9*C24) / (2+B24)) =$H$2*D24 =2*E24
1 =C22+E24 = (1-SIN (4,2*B25+C25) + (9*C25) / (2+B25)) =$H$2*D25 =E25
         (∑Δyi) /6 = =СУММ (F22: F25) /6

 

Таблиця 5.2

i Xi Yi f (Xi, Yi) k=h*f (Xi, Yi) Δyi
0 0 0 1 0,2 0,2
0,1 0,1 0,931691291 0,18633826 0,37267652
0,1 0,0932 0,908355637 0,18167113 0,36334225
0,2 0,1817 0,890218624 0,17804372 0,17804372
         (∑Δyi) /6 = 0,18567708
1 0,2 0,1857 0,904522599 0,18090452 0,18090452
0,3 0,2761 1,081106963 0,21622139 0,43244279
0,3 0,2938 1,149748994 0,2299498 0,4598996
0,4 0,4156 1,693191948 0,33863839 0,33863839
         (∑Δyi) /6 = 0,23531422
2 0,4 0,421 1,716008878 0,34320178 0,34320178
0,5 0,5926 2,699266577 0,53985332 1,07970663
0,5 0,6909 3,143773118 0,62875462 1,25750925
0,6 1,0497 5,048927359 1,00978547 1,00978547
         (∑Δyi) /6 = 0,61503385
3 0,6 1,036 4,988911447 0,99778229 0,99778229
0,7 1,5349 7,088323278 1,41766466 2,83532931
0,7 1,7449 7,815812632 1,56316253 3,12632505
0,8 2,5992 9,672890552 1,93457811 1,93457811 1,93457811
         (∑Δyi) /6 = 1,48233579
4 0,8 2,5184 9,488588937 1,89771779 1,89771779
0,9 3,4672 10,93883865 2,18776773 4,37553546
0,9 3,6122 11,31513484 2,26302697 4,52605394
1 4,7814 14,91515958 2,98303192 2,98303192
         (∑Δyi) /6 = 2,29705652

Список використаної літератури

1. Цибрій Л.В. Методичні вказівки до вивчення мови програмування Турбо Паскаль для студентів всіх спеціальностей. Дніпропетровськ: ПДАБА, 2001, - 40 с.

2. Ершова Н.М., Скрипник В.П., Цибрий Л.В., Шибко О.Н. Лабораторный практикум по программированию на алгоритмическом языке Турбо Паскаль. - Днепропетровск, ПГАСА, 2001. - 23 с.

3. Фаронов В.В. Turbo Pascal 7.0. Начальный курс. Учебное пособие, - М.: Номидж, 1997, - 616 с.

4. Фаронов В.В. Турбо Паскаль 7.0. Практика программирования. Учебное пособие. - М.: "Ноллидж", 1997. - 432 с.

5. Руденко В.Д., Макарчук О.М., Патланжоглу М.О. Практичний курс інформатики /За ред.В.М. Мадзігона. - К: Фенікс, 1997.

6. Інформатика та комп'ютерна техніка: Навч. - метод. посібник / За заг. ред.О.Д. Шарапова. - К.: КНЕУ, 2002. - 534 с.

7.Я.М. Глинський. Інформатика: Навч. посібник для загальноосвітніх навчальних закладів. - Львів: "Деол", 2002. - 256 с.

8. Фигурнов В. Є. IBM PC для пользователя. - М.: Финансы и статистика, 1996.

9. Гурин Н.И. Работа на персональном компьютере: Справочное пособие. Минск: Беларусь, 1995 - 224 с.

10. Мюллер Дж., Нортон П. Полное руководство по Windows 95 Питера Нортона. / Пер. с англ. - М.: "Издательство БИНОМ", 1998. - 784 с.

11. Стинсон К. Эффективная работа в Windows 95: Пер. с англ. - СПб: Питер, 1996.

12. Єршова Н.М. Інформатика: Конспект лекцій. - Дніпропетровськ, ПДАБА, 2003.

13. Єршова Н.М., Скрипник В.П., Шибко О.М. Методичні вказівки до виконання лабораторних робіт з дисципліни "Інформатика і комп'ютерна техніка" для студентів усіх спеціальностей". - Дніпропетровськ, ПДАБА, 2003. - 64 с.

14. Методичні вказівки до курсу лекцій з дисципліни "Інформатика і комп'ютерна техніка". Для економічних фахів 6.050100 част.3/С.М. Семенець, І.М. Ільєв - Дніпропетровськ: ПДАБА, 2005. - 25 с.

15. Вишня В.Б., Косиченко О.О. Практикум з основ інформатики: Для студентів, курсантів та слухачів усіх форм навчання. - Дніпропетровськ, Юрид. академія М-ва внутр. справ, 2005. - 140 с.

Разностные схемы для уравнения переноса на неравномерных сетках
Министерство образования и науки Российской Федерации Федеральное агентство по образованию Государственное образовательное учреждение высшего ...
Пусть область изменения аргумента x есть отрезок G={0=x=1}. Разобьем этот отрезок точками xi=i=h, i=0,n на n равных частей длины h=1/n каждая.
Сеточные функции можно рассматривать как функции целочисленного аргумента, являющегося номером узла сетки, т. е. y=y(xi)=y(i). Далее мы будем писать y(xi)=yi.
Раздел: Рефераты по информатике, программированию
Тип: дипломная работа
Редактирование и отладка программ с помощью Pascal
АКТЮБИНСКИЙ ПОЛИТЕХНИЧЕСКИЙ КОЛЛЕДЖ ОТЧЕТ ПО УЧЕБНОЙ ПРАКТИКЕ Выполнил: Журмухамедов Марат Проверила: Гайсагалеева Б.М. АКТОБЕ 2010 г. ДНЕВНИК ДАТА ...
Команды Read, Readln, Write, Writeln.
readln(h);
Раздел: Рефераты по информатике, программированию
Тип: отчет по практике
Система математических расчетов MATLAB
ГОСУДАРСТВЕННЫЙ ИНЖЕНЕРНЫЙ УНИВЕРСИТЕТ АРМЕНИИ MATLAB УЧЕБНОЕ ПОСОБИЕ Гаспарян Олег Николаевич Д.т.н, с.н.с 2005 СОДЕРЖАНИЕ Система математических ...
[r, p, k] = residue(b, a)
yi = interp1(x, y, xi, method)
Раздел: Рефераты по информатике, программированию
Тип: учебное пособие
Числові методи
МІНІСТЕРСТВО ОСВІТИ УКРАЇНИ ЧЕРНІВЕЦЬКИЙ ДЕРЖАВНИЙ УНІВЕРСИТЕТ ІМ. Ю. ФЕДЬКОВИЧА КОНТРОЛЬНА РОБОТА з дисципліни " Числові методи " Варіант 16. Виконав ...
for(k=0; k<n; k++) // шукаємо головний елемент, мах за модулем
t=B[l]; B[l]=B[k]; B[k]=t;}
Раздел: Рефераты по информатике, программированию
Тип: контрольная работа
Разработка системы управления асинхронным двигателем с детальной ...
МIНIСТЕРСТВО ОСВIТИ УКРАЇНИ Державна Гiрнича Академiя України Кафедра Автоматизацiї виробничiх процесiв ПОЯСНЮВАЛЬНА ЗАПИСКА ДО ДИПЛОМНОГО ПРОЕКТУ На ...
... первые три элемента первого, второго и третьего столбцов представляют собой направляющие косинусы соответственно осей Xi, Yi, Zi в системе 0; три элемента четвертого столбца - это ...
for k:=1 to 5 do h[k]:=x[k];
Раздел: Рефераты по технологии
Тип: реферат