Програмування на 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.
Дано:
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,4
Оценок: 1001 (Средняя 5 из 5)
Наверняка у вас есть товары или услуги, продажа которых приносит вам максимальную прибыль. Для быстрого старта в сети вам необходимо создание посадочной страницы (одностраничного сайта), на которой будет размещена информация о маржинальных товарах/услугах интернет магазина. За 8 лет опыта разработки конверсионных страниц мы выработали оптимальную структуру, которая позволит привлекать через landing page больше продаж. На такую структуру «одевается» ваш контент — фирменный стиль, тексты, фотографии, уникальные торговые предложения, после чего страница выходит в свет. Разработка лендинга и запуск в сети — до 7 рабочих дней. Стоит отметить, что в разработку самой посадочной страницы входит и написание копирайтером продающих текстов для вашего бизнеса, чтобы каждый посетитель страницы захотел совершить покупку именно у вас. Результат: качественно разработаная продающая посадочная страница, которая готова приносить вам новых клиентов. © 2016 - 2022 BigEdu.ru
|