Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформатика
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
ІТРЕ
Факультет:
ЗІ
Кафедра:
Радіоелектроніки та електронної техніки (РЕПС)
Інформація про роботу
Рік:
2014
Тип роботи:
Лабораторна робота
Предмет:
Інформатика та обчислювальна техніка
Варіант:
8
Частина тексту файла (без зображень, графіків і формул):
1.ПОСТАНОВКА ЗАДАЧІ.
Одне число потрібно ввести в алгебраїчній формі число 1 інше в показниковій число 2 . Потім число в показниковій формі перевести в алгебраїчну. Віднімаємо ці числа, та за допомогою оператора «case» даємо можливість користувачу вибрати форму представлення результату числа 3.
2. РОЗРОБКА СТРУКТУРИ ДАНИХ.
№п(п
Позначення
Ім’я
Тип
Призначення, опис
1
r
a
дійсна
Дійсна частина числа 3
2
k
b
дійсна
уявна частина числа 3
3
a
a
дійсна
Дійсна частина першого числа
4
b
b
дійсна
Уявна частина першого числа
5
A1
a
дійсна
Дійсна частина другого числа
6
B1
b
дійсна
Уявна частина другого числа
7
M
|M|
дійсна
Модуль другого числа
8
f
f
дійсна
Кут другого числа
9
M1
|M|
дійсна
Модуль другого числа
10
g
f
символьна
Кут другого числа
3.РОЗРОБКА АЛГОРИТМУ.
H T
T H T
H
T
10
4. РОЗРОБКА ПРОГРАМИ.
program lab5;
var
r,k,a,b,a1,b1,M,f,m1,g:real;
h:integer;
begin
writeln('vvedit dijsny chastuny pershoho chusla'); readln(a);
writeln('vvedit yjavny chastuny pershoho chusla'); readln(b);
writeln('vvedit modyl drygogo chusla'); readln(M);
writeln('vvedit kyt f drygogo chusla'); readln(f);
writeln('natusnit 1(2) dlja predstavlennja');
writeln('rezyltaty v pokaznukovij(alhebrajishnij) formi');
readln(h);
a1:=M*cos(f); b1:=M*sin(f); r:=a-a1; k:=b-b1;
case h of
1: begin m1:=sqrt(sqr(k)+sqr(r));
if r>=0 then
g:=arctan(k/r);
if (r<0) and (k<0) then g:=arctan(k/r)-pi;
if (k>=0) and (r<0) then g:=arctan(k/r)+pi;
Write('Z1-Z2=',m1:8:3,'*EXP(');
If g<0 then
Write ('-i*', Abs(g):8:3 ,')')
else Write ('i*',(g):8:3,')')
end;
2: begin
if (k>0) then writeln('Z1-Z2=',r:8:3,'+i',k:8:3);
if (k<0) then writeln('Z1-Z2=',r:8:3,'-i',abs(k):8:3)
else writeln('Z1-Z2=',r:8:3); end; else writeln('pomulka ');
end; readln;
end.
5. ТЕСТУВАННЯ ТА НАЛАГОДЖЕННЯ.
Висновок: я засвоїв поняття комплексного числа( Z = a + jb),форм його подання, порядку виконання елементарних операцій з комп лексними числами (додавання, віднімання, множення, ділення), на буття навиків програмування дій з комплексними числами, зак ріплення навиків застосування структурованих змінних. Ознайомився з оператором «case».
Міністерство освіти і науки україни
НУ «Львівська Політехніка»
Кафедра інформатики
ЛАБОРАТОРНА РОБОТА №5.
ПРОГРАМУВАННЯ ЕЛЕМЕНТАРНИХ ОПЕРАЦІЙ З КОМПЛЕКСНИМИ ЧИСЛАМИ.
Підготував
студент
групи РТ-12
Ковач
Тарас
05.05.2014 22:44
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора