Создать модуль из функций и процедур для благоустройства: 1 одномерного массива за ростом. 2 одномерного массива за спадением. 3 Двумерного массива за ростом (по строкам). 4 Двумерного массиваза ростом (по столбикам) 5 двумерного масива за спадением ( по строкам). 6 двумерного масива за спадением (по столбикам).
Привет всем. Нужно сделать 3 несложные лабы, типа создать приложение, отправляющее POST-запросы и в нем применить методы противодействия перебору паролей. Цену обсудим. Пишите в личку, кто сможет сделать.
Решить задачу Коши методом Рунге-Кутта четвертого порядка, разделив интервал на 10 частей. y" + 3y' - y/x = x + 1 y(1,2) = 0,6 y'(1,2) = 1, [1,2; 2,2]
Всем привет... Задачки по математике в матлабе кто нить решает??? пишите в 446524962 О цене договоримся
Добрый день всем умам этого портала, хочу попросить Вас о помощи так как в асемблере особо умом не блещу, а на носу акредетация моего техникума и контрольные уже выдают. Кто может помогите пожалуйста решить данное задание: ASM --------- Вычислить Х= - (С + 2А + 4В + В), где А, В, С, Х- целые знаковые числа занимающие слово, на программу реализующую данную формулу. Распишем формулу по отдельным операциям: АХ ← А ; значение А в регистре АХ АХ ← 2 *( АХ ) ; 2А в АХ АХ ← ( АХ ) + А ; 3А в АХ ВХ ← В ; В в ВХ ВХ ← 5 + ( ВХ ) ; В+5 в ВХ ВХ ← (ВХ ) / 2 ; ( В+5) / 2 в ВХ АХ ← (BX ) + ( AX ) ; 3А+( В+5 ) / 2 в АХ АХ ← ( АХ ) - С ; 3А+( В+5 ) / 2 - С в АХ АХ ← ( АХ ) -1 ; 3А+( В+5 )/2 - С - 1 в АХ Х ← ( АХ ) ; 3А+( В+5 )/2 - С - 1 в Х Кто может помогите пожалуйста
Сообственно ещё по ASM Дан массив из 10 слов, которые вмещают целые числа, нужно заменить все негативные числа нулями. Массив байт. ------------------------ Текст программы: data segment max dw ? mass dw 10,24,76,479-347,281,-24,70,124,97 data ends code segment assume cs: code, ds: data start: mov ах, data mov ds, ах ; lea bx, mass ; mov cx, 10 ; mov ах [bx] ; eg: cmp [bx], ах ; jl no ; mov ах [bx] ; no: inc bx ; inc bx ; loop beg mov max, ах quit: mov ах,4C00h ; int 21h ; code ends end start Помогите пожалуйста.
Разработать блок-схему алгоритма задания Дана целочисленная квадратная матрица n*n 1) Найти номера столбцов элементы которых образуют убывающую последовательность. Номера вывести на печать. 2) Номера выделенных столбцов возвести в квадрат и вывести на печатать, расположив по возрастанию. буду очень благодарен если кто поможет)
Задчку в pascale помогите реализовать! 1. Дана матрица из 3 строк и 6 столбцов. Элементы каждого столбца представляют длины трех сопряженных ребер одного из 6 прямоугольных параллелепипедов. Отпечатать номер каждого столбца, которым задан параллелепипед большего объема, чем объем шара с заданным радиусом R,V=4/3ПR³ и число таких столбцов.
>>serhio<< : Code: Program Neprogram; Var mas:array[1..3,1..6] of real; i,m,n,kolvo:integer; shar,v,r:real; Begin // Задаем рандомно матрицу[m,n] с элементами [1,10] // randomize; for m:=1 to 3 do for n:=1 to 6 do mas[m,n]:=trunc((11-1)*random+1); // Отображаем получившуюся матрицу // writeln('Ispolzuemaia matrica:'); for m:=1 to 3 do begin writeln(' '); for n:=1 to 6 do begin write(mas[m,n]); write(' '); end; end; writeln; writeln; // Считаем объем шара с заданным радиусом // write('Vvedte R shara: '); repeat readln(r); until r>0; shar:=4*3.14*r*r*r/3; writeln; writeln('Obiem shara = ',shar); writeln; //проверяем произведение столбцов // for n:=1 to 6 do begin v:=1; for m:=1 to 3 do v:=v*mas[m,n]; if v>shar then begin write('Stolbec ',n,' '); kolvo:=kolvo+1; end; end; writeln; writeln; writeln('Kolichestvo stolbcov: ',kolvo); End. Результат работы: Code: Ispolzuemaia matrica: 2 3 4 9 8 3 1 5 8 4 10 5 1 6 2 2 9 5 Vvedte R shara: 3 Obiem shara = 113.04 Stolbec 5 Kolichestvo stolbcov: 1
Delphi 7 Доброй ночи. Понадобилась помощь в написании программы. Поджимает сильно время. Очень прошу помочь, завтра уже сдавать её. Составить список, содержащий сведения об N студентах. Для каждого учащегося указать: - фамилия; - ИНН (идентификационный номер налогоплательщика); - дата выдачи Свидетельства о постановке на учет в налоговом органе; - дата рождения; - год поступления в университет; - курс; - группа; - количество семестров обучения; - оценки каждой сессии по всем семестрам. Информацию о каждом студенте оформить в виде записи. Совокупность записей объединить в массив. Составить программу, которая обеспечивает ввод исходных данных, об-работку и вывод на экран информации в соответствии с вариантом задания, приведенного в таблице Из таблицы: Упорядочить список студентов по среднему баллу последней сданной сессии и вывести его на экран. N = 4 Снизу приведу программу-пример указанную в методичке, может поможет чем-то. Разработать программу для обработки информационного массива данных по группе студентов из 30 человек. Для каждого студента указаны фамилия и оценки по пяти дисциплинам. Необходимо вычислить средний балл и упорядо-чить список студентов группы по убыванию среднего балла. Code: PROGRAM PRIM2; USES CRT; TYPE STR=RECORD FAM: STRING [30]; B1,B2,B3,B4,B5: 2..5; SB: REAL END; VAR TBL: ARRAY [1..25] OF STR; Y:STR; I,J,K,M:INTEGER; X,R:REAL; PR:BYTE; BEGIN CLRSCR; REPEAT WRITELN ('Введите число студентов'); READLN (M); FOR I:= 1 TO M DO WITH TBL[I] DO BEGIN WRITELN('Введите фамилию'); READLN (FAM); WRITELN('Введите пять оценок студента'); READLN (B1,B2,B3,B4,B5); END; FOR I:= 1 TO M DO WITH TBL[I] DO SB:= (B1+B2+B3+B4+B5)/5; FOR I:= 1 TO M DO BEGIN K:=1; X:=TBL[I].SB; FOR J:=I TO M DO IF TBL[J].SB >=X THEN BEGIN K:=J; X:=TBL[J].SB; Y:=TBL[K]; TBL[K]:=TBL[I]; TBL[I]:=Y END; END; WRITELN ('Список студентов'); FOR I:=1 TO M DO WITH TBL[I] DO WRITELN (FAM, SB:4:2); WRITELN ('Обработать еще один список? 1-да 0-нет'); READLN(PR); UNTIL PR=0 END. Заранее спасибо
Code: type TStudent = record LastName: string; ITIN: string; ITINDate: TDate; Birthday: TDate; EnterDate: integer; Cource: integer; Group: integer; SemesterNumber: integer; Marks: array of integer; // оценки за последнюю сессию AverageMark: double; end; // TSudent var Students: Array of TStudent; procedure AddMark(M: integer; Number: integer); var tmp: integer; begin if (M in [2..5]) then begin tmp := Length(Students[Number].Marks); SetLength(Students[Number].Marks, tmp + 1); Students[Number].Marks[tmp] := M; end; end; procedure AddStudent(pLastName: string; pITIN: string; pITINDate, pBirthDay: TDate; pEnterDate, pCource, pGroup, pSemesterNumber: integer; M1: integer = 0; M2: integer = 0; M3: integer = 0; M4: integer = 0; M5: integer = 0); var tmp, stmp: integer; i: integer; begin tmp := length(Students); SetLength(Students, tmp + 1); with Students[tmp] do begin LastName := pLastName; ITIN := pITIN; ITINDate := pITINDate; Birthday := pBirthDay; EnterDate := pEnterDate; Cource := pCource; Group := pGroup; SemesterNumber := pSemesterNumber; AddMark(M1, tmp); AddMark(M2, tmp); AddMark(M3, tmp); AddMark(M4, tmp); AddMark(M5, tmp); stmp := length(Marks); AverageMark := 0; if (stmp <> 0) then for i := 0 to stmp - 1 do AverageMark := AverageMark + Marks[i]/stmp; end; // with end; procedure QSort(Left, Right: integer); // Left, Right - границы сортируемой области var i, j: integer; x: double; tmp: TStudent; begin i := Left; j := Right; // в качестве опорного элемента выбираем медиану сортируемой области x := Students[(Left + Right) div 2].AverageMark; repeat while x > Students[i].AverageMark do inc(i); while x < Students[j].AverageMark do dec(j); if i <= j then begin tmp := Students[i]; Students[i] := Students[j]; Students[j] := tmp; inc(i); dec(j); end; until i>j; if i < Right then QSort(i, Right); if j > Left then QSort(Left, j); end; procedure TForm1.ButtonAddClick(Sender: TObject); begin AddStudent(edName.text, edITIN.text, DateTimePickerITIN.Date, DateTimePickerBithday.Date, StrToInt(edYear.text), StrToInt(edCource.text), StrToInt(edGroup.text), StrToInt(edSNumber.text), StrToInt(edM1.text), StrToInt(edM2.text), StrToInt(edM3.text), StrToInt(edM4.text), StrToInt(edM5.text)); end; procedure TForm1.ButtonAddClick(Sender: TObject); begin QSort(0, length(Students)-1); end; Может быть что-то забыл, это всегда можно быстро подправить)
Спасибо мен и на этом, но тут возникла проблема. Задание выполняется в консольном приложении, тоесть без всяких компонентов, а там прога уже начинает ругаться с tdate Да и нельзя использовать процедуру, потому как процедуры и функции не были пройдены, препод не поймет просто как я сделал...
Ну вместо даты в формате TDate можно использовать строку) Главное определиться со способом хранения и ввода/вывода информации. А если без процедур, то можно сделать так: Code: ... var choise: char; begin repeat { Ввод всех данных о студенте } { фактически содержимое процедуры AddStudent } запрос на продолжение или прекращение ввода типа "y/n" после i-той операции ввода данных until choise = 'y'; { Содержимое процедуры QSort } { вывод результата } end.
Помогите разобраться с задачкай на Turbo Pascale!!! Задача: Сформировать квадратные матрицы {а ij} n,m, {b ij} k,l, где i<=(n,k), j<=(m,l), элементы которых определяются случайно из диапазона вещественных чисел от -50 до 50. Фактическое число строк (n,k) и столбцов (m,l) каждой матрицы вводить с клавиатуры. Создатть процедуру.