Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

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

Название: Програмування на Pascal и в MS Excel
Раздел: Рефераты по информатике
Тип: контрольная работа Добавлен 09:05:11 11 мая 2011 Похожие работы
Просмотров: 18 Комментариев: 3 Оценило: 0 человек Средний балл: 0 Оценка: неизвестно     Скачать

Зміст

Завдання 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.

Дано:

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

y і = N / (K + x i ); 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

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

Дано:

x i = x 0 + 0,4i , де

i = 0, 1, 2, 3, …

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

x 0 = 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 +a1 x+a2 x2 = 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
(∑Δ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 с.

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений07:55:29 19 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
11:30:24 29 ноября 2015
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
09:45:32 29 ноября 2015

Работы, похожие на Контрольная работа: Програмування на Pascal и в MS Excel

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(150903)
Комментарии (1842)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru