Member
Статус: Не в сети Регистрация: 17.10.2003 Откуда: Киев
на курсовую нужен простейший текстовый редактор на ассемблере под дос. Написать естественно не прошу:D, может у кого завалялся исходник? заранее спасибо
Member
Статус: Не в сети Регистрация: 23.04.2006 Откуда: Москва
Задали нам сделать в qbasic две задачи:
1)Ввести одномерный массив I={13,4,-2,6,7,-1,-5,2,-3,4}. Вычислить и вывести m[0]n[0]+m[1]n[1]+...+m[k]n[k], где m[0],m[1],...m[p]-отрицательные элементы массива I, взытые в порядке их следования; n[0],n[1],...n[q]-положительные элементы массива I взятые в обратном порядке их следования; k=min{p,}.
2)Строка содержит дату в формате "mm-dd-yyyy", где mm-месяц, dd-день, yyyy-год. Проверить корректность задания даты и получить строку с датой в формате "dd.mm.yy", где yy-две последние цифры года.
Первую задачу я вроде сделал:
CLS
INPUT "Введите N";N
DIM A(1 to N)
DIM B(1 to N)
DIM C(1 to N)
FOR I=1 to N
Print "A(";I;")=";
Input A(I)
NEXT I
FOR I=1 to N
PRINT "A(";I;")="; A(I); SPC(2)
Next I
Print
For I=1 to N
If A(I)<0 THEN
k=k+1
B(k)=A(I)
END IF
NEXT I
For I=N to 1 STEP -1
IF A(I)>0 THEN
L=L+1
C(L)=A(I)
END IF
Next I
For I=1 to N
S=S+B(I)*C(I)
Next I
Print "Сумма";S
END
Но она почему то не работает:( А вот со второй задачей еще хуже:вообще не знаю как делать. Помогите сделать эти две задачи кто знает!:oops:
просмотрщик изображений на Delphi наподобии ACDSee
Уважаемые читатели подкиньте если есть сие чудо или сделайте это вроди не сложная вешь, просто друг просил найти ...
требования к проге чтобы открывала кучу маленьких эскизов в одном окне из дериктории а при нажатии на искиз открывалось полное изображение ну и так по мелочи можите присоединить слайд шоу их .
очень прошу помогите, зарание СПАСИБО !
вот мыло куда скинуть makgaiver@gmail.com
Member
Статус: Не в сети Регистрация: 28.01.2005 Откуда: UKRAINE KIEV
Люди помогите пожайлуста с программкой, мне надо написать програму: Кодирование (прямой код, дополнительный код, модифициронный код) , сложения. На Delphi
Member
Статус: Не в сети Регистрация: 16.08.2004 Откуда: Москва
Помогите написать прогу на Turbo Pascale, надо чтобы в массиве из 10 цифр выбиралось наибольшее и наименьшие значение по модулю, я сделал чтоб выбиралось просто макс и мин значениа а как сделать по модулю, помогите плз
Вот что получилось
Цитата:
program minmax; uses crt; const n=10; var A:array[1..n] of integer; max,min,i,v,k: integer; begin clrscr; for i:=1 to n do begin write('A[',i,']'); readln(A[i]); end; min:=A[1]; max:=min; i:=2; while i<n do begin k:=A[i]; v:=A[i+1]; if k>v then begin if k>max then max:=k; if k<min then min:=v; end else begin if v>max then max:=v; if k<min then min:=k; end; i:=i+2; end; if A[n]>max then max:=A[n]; if A[n]<min then min:=A[n]; writeln('max=',max,' ','min=',min); readkey; end.
Junior
Статус: Не в сети Регистрация: 09.05.2005 Откуда: Moscow City
Тут возникли проблемы с программами по ассемблеру
Собственно вот 2 штуки
1. Определить, содержит ли байт данных в кодовом сегменте в разрядах 6-2 двоичную комбинацию 11010. Если да, то сформировать код в регистре ВН следующим образом : сумма тетрад исходного байта, если значение старшейй тетрады больше младшей, разность тетрад в противном случае.
Если полученный в ВН код меньше 40, инвертировать его.
2. В области кодового сегмента размещен массив двухбайтных данных. Данные, значения которых находятся в интервале от -20 до 20 заменить на противоположные по знаку и в однобайтном формате записать в другую область.
Все проги односегментные, т.к. потом надо делать .сом
Вот мои соображения:
Код:
.386 preved segment use32 assume cs:preved org 100h M1: mov ax,preved mov cs,ax mov al,ds:[a] and al,01111100b cmp al,01101000b jne M2 mov al,ds:[a] mov ah,al ror ah,4 and ax, 0000111100001111b cmp ah,al jl M3 add ah,al mov bh,ah M3: sub ah,al mov bh,ah M2: cmp bh,40 jge M4 not bh M4: int 20h a db (?) preved ends end M1
и вторая
Код:
.386 preved segment use32 assume cs:preved Org 100h M1: mov ax,preved mov cs,ax mov cs,ax mov CX,10 mov SI,0 mov DI,0 M2: cmp cs:[mass+SI],-20 jg M3 inc SI inc SI jmp M5 M3: cmp cs:[mass+SI],20 jl M4 inc SI inc SI jmp M5 M4: neg cs:[mass+SI] mov al,cs:[mass+SI] mov cs:[mass2+DI] inc DI M5: loop M2 int 20h mass dw 10 dup (?) mass2 db 10 dup (?) preved ends end M1
Member
Статус: Не в сети Регистрация: 28.01.2005 Откуда: UKRAINE KIEV
(рус)
Для периодической функции f(x) с периодом T=2L
1)Записать ряд Фурье S(X) построить график частичной суммы S40(x).Найти f(M2) S(M1) S(M2)
2) разложить функцию f(х) на промежутке (0,L) в ряде Фурье S(x) по косинусам, построить график частичной суммы S(40)
3)Разложить функцию f(х) на промежутке (0,L) в ряд Фуре S(X) по синусам, построить график частичной суммы S40(x)
(укр)
Для заданої періодичної з періодом T=2L функції f(x) :
1)Записать ряд фурє S(x), побудувати графік часткової суми S40(x). Знайти f(M1) f(M2) S(M1) S(M2)
2)розкласти функцію f(х) на проміжку (0,L) в ряд Фурє S(x) по косинусах, побудувати графік часткової суми
S(40)
3)Розкласти функцію f(х) на проміжку (0,L) в ряд Фурє
S(X) по синусах, побудувати графік часткової суми S40(x)
#77
Люди вот это задание помогите зделать. ПЛЗ
Можно зделать в мат каде http://twt.mpei.ac.ru/MAS/Worksheets/Fourier.mcd Но я не знаю как эту функцию записать в МАт каде. Если не трудно можете помочь.
Кто-нибудь знает, как сделать программу выводящие время, в которой 1 минута равна 1 настоящей секунде.
Если да то выложите код либо на ТурбоПаскале, либо на Делфи.
Примерно так
2006.05.11 15:21 через секуду
2006.05.11 15:22
Member
Статус: Не в сети Регистрация: 28.03.2004 Откуда: Surgut
Товарищи, помогите пжалст. Вот дали К.р. сделать еще давно , а сдавать сейчас - типа мы все якобы прошли и умеем все это делать но почемуто из моих знакомых никто не в курсе как это делать...
Вобщем вот, выполнить в Excel-е , хотябы натолкните на мысль...:
Код:
Для уравнения x^(1\3) + lgx = 1,56 получена итерационная формула x<i>=10^(1,56-(x<i-1>))^(1\3) Определить корень уравнения с точностью E=10^-3 если x<0>=2
Там где написано <...> имеется ввиду нижний индекс, там где ^ - степень.
Я пока сосканю и позже выкину сюда скан ато трудно наврено понять задание...
Здравствуйте, уважаемые программисты. Помогите пожалуйста нерадивому студенту с курсовой. Писать конечно ее не нужно, я бы просто хотел, чтобы вы помогли мне понять суть задачи и набросать примерный алгоритм.
-------------------------------------------------
Дано:
придумать как работать с постоянными деревьями
persistent
что то типа примера:
1 шаг - дерево пустое
2 шаг - 1 элемент
3 шаг - еще 1 элемент добавили
--------------------------------------------------
Для начала ничего не нашел про постоянные деревья. Что это за звери такие? И что они едят? Вот.
Или же как альтернативный вариант:
-------------------------------------------------
Дано:
имеется множество элементов
1 4 3 2 5
модифицировать поля в элементах так, чтобы элементы могли входить в разные деревья
-------------------------------------------------
Буду признателен за помощь по любому из этих заданий.
Заранее спасибо!
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения