Организация подпрограмм в Паскале. Задание

• Название: Организация подпрограмм в Паскале. Задание
• Дата: 07.12.2018
• Размер: 173.81 Kb.
• Имя файла: 3_2.docx
• Тип: Документы; #59214

Организация подпрограмм в Паскале.

Задание:


Написать подпрограмму для вычисления ординаты точки М(х,у), принадлежащей графику функции

Определить принадлежит ли точка М(х,у) заданной области и выдать на экран соответствующее сообщение.

Используя эту подпрограмму решить задачу для

• 
  введенного с клавиатуры значения x;
  
• 
  для изменённого по заданному закону х1= 0.5х +1.5.
  

Математическая формулировка задания:



y должно принадлежать D

Результат счета на ЭВМ: Текст программы:


Текст программы:

Program Lab2;

uses CRT;

var x,y:real;

Procedure surface (x:real);

var y:real;

begin

y:=-sqrt(1-x*x)-exp(2*x);

writeln('y=',y:3:3);

if (x<=0) and (x>=-2) and (y>=3.5*x-7 )

then writeln('Точка х принадлежит заданной области')

else writeln ('Точка х не принадлежит заданной области')

end;

begin

writeln('Тема: Организация подпрограмм в паскале');

writeln('Вариант 23');

writeln('Хамурзина СТ4-17-1á');

writeln('y:=-sqrt(1-x*x)-exp(2*x);');

writeln('Введите координаты точки');

write('x=');

read(x);

surface(x);

x:=2.1*x-0.5;

writeln('Новые координаты точки');

writeln('x1=',x);

surface(x);

end.

Lab 2
Блок-схема программы:


surface (x,y)

Тема, В-23, ФИ, группа



Координата точки х, х=



(x<=0), (x>=-2),

(y<=3.5*x-7)

surface (x,y)

у=

surface (x,y)

-

+

end

точка принадлежит заданной области

точка не принадлежит заданной области

end

Новые координаты точки, х=

х=2.1*x-0.5

х