|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
31.10.2010, 17:32 | #1 |
Пользователь
Регистрация: 12.10.2010
Сообщений: 21
|
Подпрограммы
1) Если треугольник со сторонами a, b, с является равнобедренным, найти его площадь, в противном случае – периметр.
2) Дан массив из 6 элементов. Посчитать число соседств двух чисел разных знаков. идей вообще нет=( |
31.10.2010, 17:54 | #2 | ||
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Цитата:
I'm learning to live...
|
||
31.10.2010, 17:54 | #3 | ||
Пользователь
Регистрация: 20.09.2010
Сообщений: 38
|
Цитата:
У равнобедренного треугольника боковые стороны равны. Т.е. a=b. (если неизвестно, какая сторона являяется основанием - то проверить также варианты: b=c? a=c?) Если да - считаете площадь (половина произведения высоты на основание). Если нет - считаете периметр (a+b+c). Цитата:
Последний раз редактировалось Vergo; 31.10.2010 в 18:04. |
||
31.10.2010, 18:04 | #4 | ||
Пользователь
Регистрация: 12.10.2010
Сообщений: 21
|
Цитата:
Цитата:
|
||
31.10.2010, 18:27 | #5 | |
Пользователь
Регистрация: 20.09.2010
Сообщений: 38
|
Цитата:
|
|
31.10.2010, 18:29 | #6 |
Пользователь
Регистрация: 12.10.2010
Сообщений: 21
|
|
31.10.2010, 18:33 | #7 |
Пользователь
Регистрация: 20.09.2010
Сообщений: 38
|
узнать целую часть квадратного корня числа можно, вычитая из него все нечётные числа по порядку, пока остаток не станет меньше следующего вычитаемого числа или равен нулю, и сочтя количество выполненных действий. Например, так:
9 − 1 = 8 8 − 3 = 5 5 − 5 = 0 Выполнено 3 действия, квадратный корень числа 9 равен 3. |
31.10.2010, 18:39 | #8 | |
Пользователь
Регистрация: 12.10.2010
Сообщений: 21
|
Цитата:
|
|
31.10.2010, 19:23 | #9 |
Пользователь
Регистрация: 20.09.2010
Сообщений: 38
|
Пожалуйста:
Код:
Последний раз редактировалось Vergo; 31.10.2010 в 20:17. |
31.10.2010, 19:27 | #10 | |
Пользователь
Регистрация: 12.10.2010
Сообщений: 21
|
Цитата:
.386 .model flat, stdcall option casemap :none ; case sensitive ; ################################### ################################### ### include c:\masm32\include\windows.inc include c:\masm32\include\user32.inc include c:\masm32\include\kernel32.inc includelib c:\masm32\lib\user32.lib includelib c:\masm32\lib\kernel32.lib ; ################################### ################################### ### .data massA db 3,7, -21, -5, -8 buf db 8 dup(?) frmt db "треугольник%d",0 Title1 db "Лаб4",0 a db 2 b db 2 c db 3 P db 0; периметр p/2 db 0; полупериметр .code start: add P,a add P,b add P,c mov eax,P div 2 mov p/2, eax cmp a, b jn a cmp b,c jn a cmp a,c jn a invoke wsprintf,offset buf,offset frmt, P a:; поиск площади invoke wsprintf,offset buf,offset frmt, invoke MessageBoxA,0,offset buf, offset Title1,MB_OK invoke ExitProcess,0 end start Надо как то все это соеденить=) |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
подпрограммы!? | nolx | Помощь студентам | 0 | 31.05.2010 18:53 |
Подпрограммы-процедуры, подпрограммы-функции в Pascal | rishikesh | Помощь студентам | 19 | 18.05.2010 23:05 |
Подпрограммы | Журенова Катя | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 05.05.2009 22:21 |
ПОДПРОГРАММЫ! | Linker88 | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 21.04.2009 22:25 |