If(x>=120) and

(x<=520) and(y<=180)and(y>=130) or

(s0<= 64398.7578)

thenwriteln ( 'Точка принадлежит области')

elsewriteln ( 'Точка не принадлежит области');

TextOut(x+10,y, 'T');

circle (x,y,5);

TextOut(400,250, '1');

TextOut(240,250, '1');

Line (400,230,400,240);

Line (240,230,240,240);

Line (320,30,325,40);

Line (320,30,315,40);

Line (520,240,510,235);

Line (520,240,510,245);

Line (120,240,520,240);

TextOut(510,250, 'x');

Line (320,30,320,260);

TextOut(330,30, 'y');

Line (240,180,320,240);

Line (120,180,240,180);

Line (320,240,400,180);

Line (400, 180,520, 180);

Line (120, 180,120, 130);

Line (520, 180,520, 130);

Line (120, 130,520, 130);

FloodFill(125,135,clSilver);

FloodFill(500,135,clSilver);

SetPenColor(clSilver);

Line (120, 180,120, 130);

Line (520, 180,520, 130);

Line (120, 130,520, 130);

readln;

END.

 

Графическое изображение программы приведено на рисунке 1.

 

Рисунок 1 – Графическое представление программы

 

 

 

ЗАДАНИЕ 2

В языке Паскаль по сравнению с математическим понятием выражение имеет свои особенности. Выражение строится из констант, переменных, функций и операций над ними. допускается использование круглых скобок. Частным случаем выражения являются просто константа, переменная или функция. По типу входящих в него значений, выражения могут быть различными: арифметическими, логическими, строковыми. В языке Паскаль не для всех математических операций есть такие же обозначения. Для облегчения работы программиста наиболее распространённые алгоритмы разработаны фирмой-производителем языка Паскаль и поставляются вместе с языком. Они хранятся в специальной библиотеке и называются стандартными или встроенными функциями. достаточно знать, как записывается функция и аргумент. Аргументы большинства стандартных функций записываются в скобках, чтобы транслятор языка Паскаль мог распознать имя вызываемой функции. Встроенные функции можно использовать в выражениях. Аргументом может быть константа, переменная или выражение.

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

В данном примере для вычисления бесконечной суммы вводим функцию для вычисления факториала. Записываем процедуру writeln для введения числа х. После чего вводим цикл repeat…until для вычисления бесконечной суммы. В цикле записываем данное выражение с учетом функции для факториала и заданной точности равной 0.01, после чего выводим полученное значение суммы на экран.

 

 

Код программы для задания 2 приведен ниже:

programzadacha2;

vark,k1:integer;

x,e,u,s: real;

Functionfun(k:integer):longint;