ты слишком паришься.Легко и просто можно отсортировать методом подсчета.Объясняю: создается дополнительный массив из нулей,затем читаются элементы входного массива, для каждого элемента входного массива инкриминируется массив из нулей.после этого делаем проход по массиву из нулей,и записываем число в массив входной. собсно код: Code: .model tiny .code org 100h start: ;vvod mov ah,0ah mov dx,offset massive-2 int 21h ;sortirovka metodom podscheta xor si,si xor ax,ax mov al,[len] sort: xor bx,bx mov bl,byte ptr [massive+si] inc [count+bx] inc si cmp si,ax jne sort xor si,si mov di,offset massive how: xor cx,cx mov cl,[count+si] test cx,cx jz increm mov ax,si rep stosb increm: inc si cmp si,256 jne how mov byte ptr es:[di],'$' ;vivod res-ta mov ah,9 mov dx,offset massive int 21h mov ah,7 int 21h cmp al,1 jnz quit quit: mov ah,4ch int 21h ret len db 0 massive db 255 dup(0) count db 256 dup(0) end start Прога сортирует буквы и цифры.фильтрацию уж сам доделаешь.
меня тут ошарашили новостью что в суботу мне ехать на облостную олимпиаду по информ(11 класс). воще я на них обиделся за второе место по городу и собирался неехать, но похоже придётся. и воще не готовился вообщем может ктонить кинуть десяток нормальных олимпиадных заданий такого уровня? паскаль если что, хотя всёровно на делфи напишу) ЗЫ. в гугле забанили, заранее благодарен. зыы.хз как буду егэ по русскому здавать)
у меня есть двумерный массив, который заполняется в ходе работы программы и значения записываются в мемо, как сделать обратный процесс? чтоб из мемо значения в массив клались
Нужно сделать 2 Контрольных роботы по дискретной математике роботу оплачу ... Кому интересно стучите в ПМ
Работаем на лабах в delphi с компонентами wordApplication и ExcelApplication,дынные выводим в OLEContainer. Проблема: при выводе листа Excel не выводятся пустые ячейки. Задача: сделать так чтоб пустые ячейки тож выводились(( Кто знает?
Ему нужно было сделать компонент Edit+Label а не просто проект, в котором на форме лежит Edit и Label
Тест Ответе пожалуйста на вопросы, я знаю что есть гугл но мне хотелось бы получить краткий и правильный ответ тех кто хорошо разбирается на эти вопросы, буду благодарен. 1.Какая функция преобразует значение типа String в значение типа Integer? 2.Какую функцию можно использовать для отображения на экране стандартного диалогового окна с заданным сообщением и кнопкой OK? 3.Вы хотите чтобы при вводе любого текста в поле TEdit все символы текста отображались знаком '?'. Какое свойство компонента Edit вам необходимо изменить? 4.Вам необходимо, чтобы определенное событие происходило через каждые 10 секунд. Для этого следует установить значение Interval компонента TTimer равным=? 5.В какой секции кода модуля, для создания класса, следует сделать запись следующего вида: type TNewClass=Class(ParentClass); end; 6.Выберите синтаксис комментария, который вы не можете использовать в Delphi? 7.После применения функции Sqrt(4) получено значение 8.Укажите тип данных, определяющий целые величины 9.Раздел объявления типов начинается с зарезервированного слова 10.Исполняемая часть модуля обозначается зарезервированным словом 11.Интерфейсная часть модуля обозначается зарезервированным словом 12.Для вызова процедуры необходимо записать следующий оператор 13.Зарезервированное слово inherited применяется для 14.Зарезервированное слово dynamic используется для 15.Конструктор объекта вызывается как 16.Какая функция открывает текстовый файл, для добавления записи в его конец? 17.Комбинацию каких клавиш необходимо нажать чтобы получить список имен доступных объектов или их свойств? 18.Какая функция возвращает время создания или изменения файла F? 19.Какой элемент среды программирования Delphi содержит программный код 20.Расширение главного файла проекта Delphi.... ЗЫ: Хоть ето и тест но без вариантов ответов(думаю для вас ето не проблем гуры по делфи ), завтра мне его надо сдавать помогите пожалуйста.
1. IntToStr, IntToStrDef (возможно Val, если имеется в виду процедура) 2. MessageDlg - если функция, ShowMessage - если процедура 3. PasswordChar 4. 10000 5. interface 6. ГДЕ ВАРИАНТЫ, БЛЕАТЬ? 7. 2 8. Byte,Word,Integer,LongInt,ShortInt 9. Var 10.implementation 11.interface 12.ГДЕ ВАРИАНТЫ, БЛЕАТЬ? 13.чтобы вызвать родительский метод 14.объявления метода, который можно переопределить в наследниках 15.constructor (ГДЕ ВАРИАНТЫ, БЛЕАТЬ?) 16.Append 17.ГДЕ ВАРИАНТЫ, БЛЕАТЬ? 18.FileAge 19.Модуль 20.*.dpr
1)strtoint 2)msgdlg(MB_OK)\MessageBox(h,mes,cap,MB_ok) 3)предполагаю что свойство passwordchar надо изменить 4)10000 5)после uses 6)не совсем понятен вопрос. 7)2 8)Word,Byte,LongInt,ShortInt,Integer 9)type 10)implementation 11)interface 12)имя стандартной или пользовательской процедуры 13)для вызова родительского метода 14)объявление метода 15)constructor 16)append 17)зависит от среды. 18)FileAge 19)модуль 20)dpr
Нашел в этом форуме этот код: Code: .model tiny .code org 100h start: ;vvod mov ah,0ah mov dx,offset massive-2 int 21h ;sortirovka metodom podscheta xor si,si xor ax,ax mov al,[len] sort: xor bx,bx mov bl,byte ptr [massive+si] inc [count+bx] inc si cmp si,ax jne sort xor si,si mov di,offset massive how: xor cx,cx mov cl,[count+si] test cx,cx jz increm mov ax,si rep stosb increm: inc si cmp si,256 jne how mov byte ptr es:[di],'$' ;vivod res-ta mov ah,9 mov dx,offset massive int 21h mov ah,7 int 21h cmp al,1 jnz quit quit: mov ah,4ch int 21h ret len db 0 massive db 255 dup(0) count db 256 dup(0) end start Что-то нифига не понял, что там происходит.
Нужна помощь Code: #include <stdio.h> #include <math.h> #define SIZE 23 int main() { int n; printf("Введите номер размер матрицы слагаемого "); scanf("%d",&n); int a[SIZE][SIZE]; if(!n%2){return 0;} //Обнуление for(int i=0;i<n;i++){ for(int f=0;f<n;f++){ a[i][f]=0; } } int i,f,sdvig,col_vstr=1; sdvig=i=f=n/2; for(int elem=1; i<n;i++){ for(;f<col_vstr+sdvig;f++){ a[i][f]=elem++; } col_vstr+=2; f=--sdvig; } printf("\n"); for(int i=0;i<n;i++){ for(int f=0;f<n;f++){ if(a[i][f]<10){ printf("%d ",a[i][f]); }else{ printf("%d ",a[i][f]); } } printf("\n"); } return 0; } объясните плз что означает f++ и i++?? и что какие операторы выполняют? если вам не сложно,заранее благодарен...
