МІНІСТЕРСТВО ЗВ'ЯЗКУ
САНКТ-Петербурзький державний університет
ТЕЛЕКОМУНІКАЦІЙ ім. проф. М.А. Бонч-Бруєвича
ФАКУЛЬТЕТ
ВЕЧІРНЬОГО І журналістики
Контрольна робота
з інформатики
Архангельськ 2009
Завдання № 1
1. Постановка завдання
Обчислити значення функції
Робочий набір вихідних даних: а = -1,2, х = 4,1
2. Таблиця ідентифікаторів
позначення у використовувана для завдання значення аргументаууПеременная, використовувана для зберігання значення обчислюється функції
3. Текст програми CRT; {підключення модуля CRT}
const a = -1.2; {оголошення константи а }
var x, y: real; {оголошення змінних х і у
дійсного типу}
begin {початок основної програми}
clrscr; {процедура clrscr очищає екран}
writeln ('Введіть x'); {висновок на екран тексту Введіть х }
readln (x); {зчитується значення, введене c
клавіатури і присвоюється змінної х }
if (x <5) and (sin (x) <> -1)
then y: = (a * sin (x)/cos (x) +5)/(sin (x) +1); {якщо умова істинно, то
змінної у присвоюється значення
вираження}
if (x> = 5) and (x <10) then
y: = sqrt (sqr (x-7)); {якщо умова істинно, то
змінної у присвоюється значення
вираження}
if (x> = 10) and (x <> 11)
then y: = a * ln (abs (x-11)); {якщо умова істинно, то
змінної у присвоюється значення
вираження}
if (x = 11) or ((x <5) and (sin (x) = -1)) writeln (Значення функції не існує)
else writeln ('при x =', x: 5: 2, 'y =', y: 5: 2); {якщо умова х = 11 або
істинно, то виводиться повідомлення Значення функції не існує, інакше виводяться на екран значення змінних х і у. Під кожне значення виділяєть...
