i/4; {опис констант} = 5;
var, p, y: real; {опис змінних}: byte;
clrscr;: = (x +0.8)/x; {підготовка до циклу}: = 1; i: = 1 to n do {параметр циклу, змінюється від 1 до n}
p: = p * sqrt (b + cos ((x) * i)); {цикл}
y: = 4.2 * x + p; {обчислення y}
write ('відповідь');
writeln ('y =', y: 5:3); {висновок на екран отриманих результатів}.
. Контрольний розрахунок
Відповідь y = 6,403.
ЗАВДАННЯ № 3
1. Постановка завдання
Обчислити значення функції:
В
Робочий набір вихідних даних:
Хнач = 0; Х = 0,5; а = 1,01; N = 10.
2. Таблиця ідентифікаторів
Позначення в задачеИдентификаторНазначениеN a Xнач Хn
dxісходние данниеx yx yРезультат рішення задачіiiСчетчік циклу
. Текст программиex_1_3;
{Завдання на обчислення таблиці значень функції}
uses CRT;
const
n = 10; a = 1.01; {опис констант}
xn = 0; dx = 0.5; line = '******************************* *********** ';
var, y: real; {опис змінних}
i: byte;; {очищення екрана}
x: = xn; {підготовка до циклу}; {надрукує порожній рядок} ('таблицю значень функції');;; (line); {надрукує смужку у вигляді зірочок}
writeln ('| X | Y |'); (line); i: = 1 to n do
begin: = sqrt (a +2.8 * x)/(sqrt (x) +2.8 + x);
writeln ('!', x: 5:2, '!', y: 5:2, '!');: = x + dx;;
writeln (line);.
. Контрольний розрахунок
В
2. КОНТРОЛЬНІ ПИТАННЯ ДО ЗАВДАНЬ № 1, № 2 І № 3
1. Структура програми в Турбо Паскалі. p align="justify"> Структура програми в Турбо Паскалі складається з заголовка програми і тіла програми, що закінчується крапкою. Структуру програми можна показати таким чином:
(Тема програми)
Program Ім'я програми,
(Розділ вказівки використовуваних модулів)
Uses (Список використовуваних модулів)
(Розділ описів)
Label (опис міток)
const (опис констант)
type (опис типів)
var (опис змінних)
procedure
function
(Розділ операторів (Операторний блок))
begin (початок пр...