lt; lt; endl;} main ()
{setlocale (LC_ALL, Russian ); a, c, d [N]; lt; lt; Введіть a= raquo ;; gt; gt; a; lt; lt; Введітес= raquo ;;
cin gt; gt; c; lt; lt; Введіть елементи масиву lt; lt; endl;
for (inti=1; i lt;=N; i ++)
{cout lt; lt; d [ lt; lt; i lt; lt; ]= raquo ;; gt; gt; d [i];} (a, c, d);
_ getch ();
return 0;}
Програма мовою програмування Сі для float
# include stdafx.h
# include lt; iostream gt;
# include lt; conio.h gt ;; N=4; (floata, floatc, floatd [])
{float g, k, l, z; Y=0;=2 * c;=a * a + 1; lt; lt; g= lt; lt; 2 * lt; lt; c lt; lt; = Raquo; lt; lt; g lt; lt; endl; lt; lt; k= lt; lt; a * a lt; lt; + 1 lt; lt; = Raquo; lt; lt; k lt; lt; endl; (inti=1; i lt;=N; i ++)
{l=d [i]/4; lt; lt; i lt; lt; ) lt; lt; l [ lt; lt; d [i] lt ; lt; ]= lt; lt; d [i] lt; lt; /4= lt; lt; l lt; lt; endl;=(g - l)/k; lt; lt; z [ lt; lt; d [i] lt; lt; ]= lt; lt; z lt; lt; endl;=Y + z; lt; lt; endl;} lt; lt; Y= lt; lt; Y lt; lt; endl;} main ()
{setlocale (LC_ALL, Russian ); a, c, d [N]; lt; lt; Введіть a= raquo ;; gt; gt; a; lt; lt; Введітес= raquo ;;
cin gt; gt; c; lt; lt; Введіть елементи масиву lt; lt; endl;
for (inti=1; i lt;=N; i ++)
{cout lt; lt; d [ lt; lt; i lt; lt; ]= raquo ;; gt; gt; d [i];} (a, c, d);
_ getch ();
return 0;}
Блок схема
Рис. 1
3. Програмування
.1 Програма на Асемблері УМ
start 0
lda cc2pc0c0comp c12artart, a; i:=i + 1c3, xlda yword 20word 2word 0word 1word 3word 4word 12word 2word 0word 20124-16333eec1k, xc4opokyyEx77
Блок схема
Рис. 2
3.2 Підпрограма введення і виведення цілих чисел на Асемблері IBM
Підпрограма введення
Блок схема
Рис. 3
Підпрограма на мові програмування Асемблер IBMPC
InputIntprocah, 0ahdi, didx, offset buff; адресбуфера21h; приймаємо рядок
movdl, 0ah, 0221h
; виводимо переклад рядка і обробляємо
; вміст буфера, offset buff + 2; беремо адресу початку рядка [si], - raquo ;; якщо перший символ мінусii1, 1; встановлюємо прапор; і пропускаємо його: xorax, ax, 10; підставу СC: movcl, [si]; беремо символ з буфера, 0dh; перевіряємо чи не останній він
; якщо символ не останній, то перевіряємо його
; на правильність, 0 raquo ;; коли введено неправильний символ lt; 0, 9 raquo ;; коли введено неправильний символ gt; 9, 0 raquo ;; робимо з символу число; множимо на 10, cx; додаємо до решти; покажчик на наступний сімволii2; повторюємо: movdx, offseterror; якщо була помилка, то виводимо повідомлення про
; цьому і виходімah, 0921h20h; всі символи з буфера оброблені число
; знаходиться в ax: cmp di, 1; якщо встановлено прапор, тоii3; робимо число негативним
ii3: ret incorrect number $
buffdb 6,7 Dup (?)
3.2 Підпрограма на мові програмування Асемблер IBMPC
Процедура виведення
OutIntprocnear; ===== Процедура виведення, ax; перевіряємо число на знак.oi1, ax; eсли воно негативне, виведемо мінус і
; залишимо його модуль, 02hdl, - 21h, cx: xorcx, cx; кількість цифр будемо тримати в CX, 10; підставу сс. 10 для десятеричной і т.п .: xordx, dx; ділимо число на підставу сс, в залишку
; виходить остання цифра; відразу виводити її не можна, тому збережемо
; її в стек
; а з приватним повторюємо те ж саме, відокремлюючи
; від нього чергову, ax; цифру справа, поки не залишиться нуль, що
; означає, що дальшеoi2; зліва лише нулі
; ======== Висновок =========
mov ah, 02h: pop dx
adddl, 0 raquo ;; витягаємо чергову цифру, переводимо її в
; символ і виводім21hoi3; повторимо ...
