Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Методичка з інформатики.doc
Скачиваний:
21
Добавлен:
20.12.2018
Размер:
1.33 Mб
Скачать
  1. Запис арифметичних виразів. Константи цілого, дійсного, булівського та символьного типу.

А) Потрібно знати: пріоритет арифметичних та логічних операцій, правила запису арифметичних виразів, вбудованих функції та констант різного типу.

Б) Потрібно вміти: записувати на мові Паскаль задані математичною мовою вирази, що містять складні функції, обчислювати вирази, що записані мовою Паскаль.

Література.

1) А.Ф.Верлань, н.В.Апатова. Інформатика (підручник для учнів 10-11 класів середньої загальноосвітньої школи).- Київ, «Форум», 2000.

2) В.Л.Руденко, О.М.Макарчук, М.О.Патланжоглу. Практичний курс інформатики.- Київ, «Фенікс», 1997. – 304 с.

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

4) Т.П.Караванова. Збірник задач з програмування. 750 задач з розв’язками.

Контрольні запитання та завдання

Завдання 1. Дати відповіді на запитання:

  • Що називають арифметичними виразами у Паскалі?

  • Над якими величинами можна виконувати операції div, mod?

  • Які правила запису арифметичних виразів у Паскалі?

Завдання 2. Записати вирази на мові Паскаль:

1) 2)

3) 4)

5) 6)

7) 8)

9) 10)

11) 12)

Завдання 3. Записати вирази у вигляді звичайних алгебраїчних формул:

  1. a*b*c-a/(n*m)/(a+b/2);

  2. a*b/(c+d)+(c-d)/b*(a+b);

  3. (a/(1+b/(2*x))+c)/(1-sqr(sqrt(a)));

  4. x/(1+sqr(x)/(2+x*sqr(x)/3));

  5. (x*sin(y+*(2+k))+1)/(0.7-x/(y+sqr(z)))*x/(a+b).

Завдання 4. Нехай А=5, В=4, С=3 та P=0,5. Обчислити значення арифметичних виразів:

1) (A+B)/C·P; 2) (A+B)/C/P;

3) (A+B)/(C·P); 4) -A·B+sqr(C)+0.5 .

Завдання 5. Дати відповідь на запитання:

  1. Знайти значення функції Y(X) при заданому X. Використовувати стандартні функції. Обрахувати Y11=[Y], де [ ] означають цілу частину числа; Y22=[Y+0.5] - заокруглення.

  2. Записати вираз, який залежить від координат точки X1 і Y1 і приймає значення True, якщо точка належить заданій області, і False, якщо не належить. Скласти програму, результат вивести на екран.

  3. Функції, які відсутні в списку стандартних функцій мови Pascal, потрібно виразити через ті, які маємо.

  4. Виведення значення виразу в даній точці організувати, використовуючи оператор WriteLn.

Опорний конспект

Над цілими операндами можна виконувати наступні арифметичні

операції: складання, віднімання, множення, ділення, отримання залишку

від ділення. Знаки цих операцій:

+ - * div mod

Результат арифметичної операції над цілими операндами є вели-

чину цілого типа. Результат виконання операції ділення цілих величин

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

залишку від ділення - залишок від ділення цілих. Наприклад:

17 div 2 = 8, 3 div 5 = 0.

17 mod 2 = 1, 3 mod 5 = 3.

Операції відношення, застосовані до цілих операндів, дають результат

логічного типа TRUE або FALSE ( істина або брехня ).

У мові ПАСКАЛЬ є наступні операції відношення: рівність =,

нерівність <> , менше, належність in.

Вирази входять до складу багатьох операторів мови ПАСКАЛЬ, а також можуть бути аргументами вбудованих функцій.

Розглянемо приклади програм обчислення значення виразів.

1) Виведення значення виразу

program vika;

var x,y:real;

BEGIN

writeln('input x'); readln(x);

y:=(7.5*x)/(1+(x*x)/(1.99+3*x*x*x)/(5*x))-ln(abs(x-sqrt(1+x*x)));

writeln('y= ',y:0:4);

readln;

END.

2) Виведення значення виразу

program we1;

uses crt;

var x,y :real;

begin

clrscr;

gotoxy(21,8); writeln('Введыеь значення X');

readln(x);

y:=exp(abs(4*x-sqr(x)/2))+(sqr(x)-8.698)/(3*(sqr(x)+1));

writeln('Значення y=',y:8:4);

readln;

end.

Приклад програми, яка обчислює Y(X) = 3–x+1 ∙ SIN(X) при заданому Х, друкує Y11, Y22 і перевіряє належність точки з координатами (X1,Y1) заданій фігурі.

Вхідні дані: X = –1.5, X1 = 0.5, Y1 = 1.2.

Program Tob ;

Var X,X1,Y1,Y:Real;

Begin

Write(‘Введіть Х:’);

ReadLn(X);

Y:=Exp((-X+1)*Ln(3))*Sin(X);

WriteLn(‘При Х=‘,Х:8:3,’ Y=‘,Y:8:4);

WriteLn(‘Y11=‘,Trunc(Y):4,’ Y22=‘,Round(Y):4);

Write(‘Введіть координати: X1, Y1’); ReadLn(X1,Y1);

WriteLn((X1>=0) and ((Y1>=0) and (sqr(X1)+sqr(Y1)<=1));

WriteLn(‘ ’:10,’Програму склав Іванов П.В.’);

End.