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

Інформатика

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

ВУЗ:

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

Інститут:

ІТРЕ

Факультет:

ЗІ

Кафедра:

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

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

Рік:

2014

Тип роботи:

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

Предмет:

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

Варіант:

Завантажити

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

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 символьна Кут першого числа 11 M2 |M| дійсна Модуль другого числа 12 F1 f дійсна Кут першого числа 3.РОЗРОБКА АЛГОРИТМУ. H T T H T H T 10 4. РОЗРОБКА ПРОГРАМИ. program lab5; var r,k,a,b,a1,b1,M,f,m1,g,m2,f1:real; h:integer; begin writeln('vvedit modyl pershoho chusla'); readln(M1); writeln('vvedit kyt f pershoho chusla'); readln(f1); 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); a:=M2*cos(f1);b:=M2*sin(f1); 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 Колпаков Сергій

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

miroslav275

05.05.2014 22:47

Коментарі

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

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

поділитись