Студентам с лабораторными сюда (архивная - 2015)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by _Great_, 20 Jun 2007.

Thread Status:
Not open for further replies.
  1. tester8

    tester8 New Member

    Joined:
    25 Oct 2009
    Messages:
    6
    Likes Received:
    0
    Reputations:
    0
    Создать модуль из функций и процедур для благоустройства:
    1 одномерного массива за ростом.
    2 одномерного массива за спадением.
    3 Двумерного массива за ростом (по строкам).
    4 Двумерного массиваза ростом (по столбикам)
    5 двумерного масива за спадением ( по строкам).
    6 двумерного масива за спадением (по столбикам).
     
  2. ЛифчиС5СВ

    ЛифчиС5СВ Elder - Старейшина

    Joined:
    9 Mar 2007
    Messages:
    164
    Likes Received:
    141
    Reputations:
    12
    Привет всем.

    Нужно сделать 3 несложные лабы, типа создать приложение, отправляющее POST-запросы и в нем применить методы противодействия перебору паролей.

    Цену обсудим. Пишите в личку, кто сможет сделать.
     
  3. GenTao

    GenTao New Member

    Joined:
    10 Oct 2009
    Messages:
    123
    Likes Received:
    2
    Reputations:
    -3
    А на VB делает кто ? )
     
  4. bl00m

    bl00m New Member

    Joined:
    16 May 2009
    Messages:
    11
    Likes Received:
    0
    Reputations:
    0
    Решить задачу Коши методом Рунге-Кутта четвертого порядка, разделив интервал на 10 частей.

    y" + 3y' - y/x = x + 1

    y(1,2) = 0,6

    y'(1,2) = 1, [1,2; 2,2]
     
  5. ichechen

    ichechen New Member

    Joined:
    16 Oct 2009
    Messages:
    33
    Likes Received:
    4
    Reputations:
    8
    А VB.NET пойдет?
     
  6. lamer811

    lamer811 Elder - Старейшина

    Joined:
    8 Nov 2009
    Messages:
    130
    Likes Received:
    39
    Reputations:
    12
    Всем привет...
    Задачки по математике в матлабе кто нить решает???
    пишите в 446524962
    О цене договоримся
     
  7. Moodle

    Moodle New Member

    Joined:
    28 Nov 2009
    Messages:
    5
    Likes Received:
    0
    Reputations:
    0
    Добрый день всем умам этого портала, хочу попросить Вас о помощи так как в асемблере особо умом не блещу, а на носу акредетация моего техникума и контрольные уже выдают. Кто может помогите пожалуйста решить данное задание:
    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 в Х

    Кто может помогите пожалуйста
     
  8. Moodle

    Moodle New Member

    Joined:
    28 Nov 2009
    Messages:
    5
    Likes Received:
    0
    Reputations:
    0
    Сообственно ещё по 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

    Помогите пожалуйста.
     
  9. BitHack

    BitHack Elder - Старейшина

    Joined:
    14 Jan 2008
    Messages:
    47
    Likes Received:
    34
    Reputations:
    0
    Разработать блок-схему алгоритма задания
    Дана целочисленная квадратная матрица n*n
    1) Найти номера столбцов элементы которых образуют убывающую последовательность. Номера вывести на печать.
    2) Номера выделенных столбцов возвести в квадрат и вывести на печатать, расположив по возрастанию.

    буду очень благодарен если кто поможет)
     
  10. >>serhio<<

    >>serhio<< New Member

    Joined:
    10 Feb 2009
    Messages:
    40
    Likes Received:
    0
    Reputations:
    0
    Задчку в pascale помогите реализовать!
    1. Дана матрица из 3 строк и 6 столбцов. Элементы каждого столбца представляют длины трех сопряженных ребер одного из 6 прямоугольных параллелепипедов. Отпечатать номер каждого столбца, которым задан параллелепипед большего объема, чем объем шара с заданным радиусом R,V=4/3ПR³ и число таких столбцов.
     
  11. Syntaxys

    Syntaxys Elder - Старейшина

    Joined:
    2 Sep 2007
    Messages:
    61
    Likes Received:
    10
    Reputations:
    0
    >>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
    
    
     
    #1891 Syntaxys, 29 Nov 2009
    Last edited: 29 Nov 2009
    1 person likes this.
  12. GenTao

    GenTao New Member

    Joined:
    10 Oct 2009
    Messages:
    123
    Likes Received:
    2
    Reputations:
    -3
    Эм..даж не знаю.не кодил там.Visual Studio 2008 у нас юзят.
     
    1 person likes this.
  13. Ci5

    Ci5 Elder - Старейшина

    Joined:
    10 Oct 2006
    Messages:
    141
    Likes Received:
    100
    Reputations:
    -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.
    Заранее спасибо :rolleyes:
     
  14. StealthMaster

    StealthMaster Member

    Joined:
    3 Dec 2008
    Messages:
    52
    Likes Received:
    11
    Reputations:
    0

    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;
    
    

    Может быть что-то забыл, это всегда можно быстро подправить)
     
    #1894 StealthMaster, 30 Nov 2009
    Last edited: 30 Nov 2009
    1 person likes this.
  15. Ci5

    Ci5 Elder - Старейшина

    Joined:
    10 Oct 2006
    Messages:
    141
    Likes Received:
    100
    Reputations:
    -1
    Спасибо мен и на этом, но тут возникла проблема. Задание выполняется в консольном приложении, тоесть без всяких компонентов, а там прога уже начинает ругаться с tdate :( Да и нельзя использовать процедуру, потому как процедуры и функции не были пройдены, препод не поймет просто как я сделал... :(
     
  16. StealthMaster

    StealthMaster Member

    Joined:
    3 Dec 2008
    Messages:
    52
    Likes Received:
    11
    Reputations:
    0
    Ну вместо даты в формате TDate можно использовать строку) Главное определиться со способом хранения и ввода/вывода информации.
    А если без процедур, то можно сделать так:
    Code:
    ...
    var
      choise: char;
    begin
      repeat
        { Ввод всех данных о студенте }
        { фактически содержимое процедуры AddStudent }
        
         запрос на продолжение или прекращение ввода типа "y/n" после i-той операции ввода данных
      
      until choise = 'y';
    
      { Содержимое процедуры QSort }
    
      { вывод результата }
    
    end.
    
     
    1 person likes this.
  17. Ci5

    Ci5 Elder - Старейшина

    Joined:
    10 Oct 2006
    Messages:
    141
    Likes Received:
    100
    Reputations:
    -1
    Ясно. Дохимичили твой код, всё пашет. Спасибо еще раз
     
  18. >>serhio<<

    >>serhio<< New Member

    Joined:
    10 Feb 2009
    Messages:
    40
    Likes Received:
    0
    Reputations:
    0
    Помогите разобраться с задачкай на Turbo Pascale!!!
    Задача:
    Сформировать квадратные матрицы {а ij} n,m, {b ij} k,l, где i<=(n,k), j<=(m,l), элементы которых определяются случайно из диапазона вещественных чисел от -50 до 50. Фактическое число строк (n,k) и столбцов (m,l) каждой матрицы вводить с клавиатуры. Создатть процедуру.
     
  19. Epic wave

    Epic wave Member

    Joined:
    15 Mar 2009
    Messages:
    105
    Likes Received:
    72
    Reputations:
    -1
    Может есть у кого рабочая программа рисующая элементарную гистограмму? C++
     
  20. Moodle

    Moodle New Member

    Joined:
    28 Nov 2009
    Messages:
    5
    Likes Received:
    0
    Reputations:
    0
    Помогите кто то с асемблером посты №1931,1932 пожалуйста.
     
Thread Status:
Not open for further replies.