Информатика 1. Составление программы для нахождения значения функции двух переменных на Паскале

• Название: Составление программы для нахождения значения функции двух переменных на Паскале
• Дата: 06.10.2018
• Размер: 67.05 Kb.
• Имя файла: Информатика 1.docx
• Тип: Документы; #52612

МИНОБРНАУКИ РОССИИ

Санкт-Петербургский государственный

электротехнический университет

«ЛЭТИ» им. В.И. Ульянова (Ленина)

Кафедра Математического обеспечения и применения ЭВМ.

отчет

по лабораторной работе №1

по дисциплине «Информатика»

Тема: Составление программы для нахождения значения функции двух переменных на Паскале.

Студент гр. 7803		Бердников А.В.
Преподаватель		Сидоров Ю.Н.

Санкт-Петербург

2017
1.Содержательная постановка задачи.
Написать программу, вычисляющую значение функции:

a=|x-y|(sin²z+tg(z))
Входные данные должны быть вещественными числами, а z +90,cos+0, так как решение будет лежать в области мнимых чисел.

№	x	y			A=
			f	w
1	2	5	1	2	Вещественных решений нет
2	-30	0	6	8	-15
3	8	34	21	4	39
4	6	6	4	5	0
5	5	-3	1	0	Вещественных решений нет
6	-4	-2	4	4	-2.44
7	9	5	5	20	6
8	7	4	5	2	Вещественных решений нет
9	-3	8	2	8	16.5
10	43	-60	3	0	Вещественных решений нет

2.Формальная постановка задачи.

Дано: x,y,z Є R

Вычислить a=|x-y|(sin²z+tg(z)), где a€R

Область определения отображения z +90, cos+0

3.Алгоритмизация.



4.Типы и строение данных

program lab;

var a: real;

x: real;

y: real;

z: real;

b: real;

f: real;

w: real;

e: real;

begin

writeln ('Для получения "a", введи значения для переменных "x","y","z"');

write('x='); read(x);

write('y='); read(y);

writeln('z=f*pi/w');

write('f=');read(f); write(f); write('*pi/'); read(w);

z:=f*pi/w;

if w=0 then

begin

writeln('Ответ лежит в области комплексныхz чисел ');

exit;

end

else

e:=(cos(z));

a:=abs(x-y)*(sqr((sin(z)))+ ((sin(z)))/(cos(z)));

if (e<0.02) and (e>0) then

begin

writeln('Ответ лежит в области комплексных чисел ');

exit;

end

else

begin

write('a=',a);

end

end.