Інформатика. Лабораторна робота з Інформатика та обчислювальна техніка. Робота № 525987

Перехід до торгівельного партнера Binance

Інформатика

Інформація про навчальний заклад

ВУЗ:

Національний університет Львівська політехніка

Інститут:

Інститут телекомунікацій, радіоелектроніки та електронної техніки

Факультет:

ЗІ

Кафедра:

Радіоелектроніки та електронної техніки (РЕПС)

Інформація про роботу

Рік:

2024

Тип роботи:

Лабораторна робота

Предмет:

Інформатика та обчислювальна техніка

Варіант:

2 11

Завантажити

Частина тексту файла (без зображень, графіків і формул):

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 dijsny chastuny drygogo chusla'); readln(a1); writeln('vvedit yjavny chastuny drygogo chusla'); readln(b1); writeln('natusnit 1(2) dlja predstavlennja'); writeln('rezyltaty v pokaznukovij(alhebrajishnij) formi'); readln(h); m:=sqrt(sqr(a1)+sqr(b1)); r:=(a*a1 + b*b1)/(m*m); k:=(a*b1- b*a1)/(m*m); 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 Стефанишин Ігор

Лабораторна робота Інформатика та обчислювальна техніка

miroslav275

27.04.2014 02:04-

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, або зареєструйтесь.

Ділись своїми роботами та отримуй миттєві бонуси!

Маєш корисні навчальні матеріали, які припадають пилом на твоєму комп'ютері? Розрахункові, лабораторні, практичні чи контрольні роботи — завантажуй їх прямо зараз і одразу отримуй бали на свій рахунок! Заархівуй всі файли в один .zip (до 100 МБ) або завантажуй кожен файл окремо. Внесок у спільноту – це легкий спосіб допомогти іншим та отримати додаткові можливості на сайті. Твої старі роботи можуть приносити тобі нові нагороди!

поділитись