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

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

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

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

    Joined:
    15 Dec 2007
    Messages:
    35
    Likes Received:
    8
    Reputations:
    -4
    Спасибо, а не мог ты б рассказать мне математическую сущьность этого алгоритма. Т.е. почему так?
     
  2. Delimiter

    Delimiter Banned

    Joined:
    8 Apr 2005
    Messages:
    317
    Likes Received:
    173
    Reputations:
    12
    ну сущности то нет!
    Ведь это есть "тупое" раскидывание на 2 группы, суть его сводится к
    ЕСЛИ ЧЕЛОВЕК ЗНАЕТ ДРУГОГО ТО ЕГО В ДРУГУЮ ГРУППУ!
     
  3. Stern

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

    Joined:
    13 Mar 2007
    Messages:
    75
    Likes Received:
    5
    Reputations:
    0
    Язык паскаль......девушка припахала........

    Даны: n, матрица a(2n*2n). Матрица а естественным образом развивается на 4 блока n*n:
    1 | 2
    -----
    3 | 4
    Поменять местами блоки 2 и 3. Исходные данные прочитать из файла. Результаты вывести в новый файл
     
  4. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    РЕАЛИЗАЦИЯ

    Вот код, для массива заданного как константа:

    Code:
    program zamena;
    const
    	[COLOR=Blue][B]n=3;[/B][/COLOR]
    	[COLOR=Blue][B]k=n*2;[/B][/COLOR]
    a:array [1..k,1..k] of integer=	((0,2,1,2,5,6),
                                 	 (4,5,7,8,1,8),
                                 	 (0,6,2,3,3,4),
                              	 (5,6,1,9,7,1),
                              	 (1,2,3,4,5,6),
                              	 (6,5,4,3,2,1));
    Var
    	buff:integer;
    	i:integer;
    	j:integer;
    Begin
    For i:=1 to k Do
    		Begin
    			For j:=1 to k DO write(a[i,j],' ');
    			writeln;
    		end;
    
    	For i:=1 to k Do
    		Begin
    		For j:=n+1 to k Do
    			Begin
    				If i<=n then
    				Begin
    					buff:=a[i,j];
    					a[i,j]:=a[i+n,j-n];
    					a[i+n,j-n]:=buff;
    				End;
    			End;
    		End;
      writeln;
      writeln('RESULT:');
      writeln;
    	For i:=1 to k Do
    		Begin
    			For j:=1 to k DO write(a[i,j],' ');
    			writeln;
    		end;
      readln;
    	
    End.
    Ввод, вывод, думаю сам сможешь:) ;)

    Результат:

    [​IMG]
     
    #524 De-visible, 12 May 2008
    Last edited: 12 May 2008
  5. avton0m

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

    Joined:
    15 Dec 2007
    Messages:
    35
    Likes Received:
    8
    Reputations:
    -4
    Delimiter, вроде так вот?

    Code:
    #include <stdio.h>
    #include <stdlib.h>
    #include <iostream.h>
    #include <conio.h>
    
    #define N 4
    
    int m[N][N];
    void fill_m();
    void out_m();
    
    
    int cnt[N];
    
    int main()
    {
     fill_m();
     out_m();
    
     for(int i=0;i<N;i++) // idem po personam
     {
      for(int j=0;j<N;j++) // idem po znakomstvam
      {
      if(m[i][j]==1) cnt[i]++;
      }
     }
     int top_m=0; // bolshe vsego znak
     int max=0;
     for(i=0;i<N;i++)
     {
      if(cnt[i]>max) {max=cnt[i]; top_m=i;}
     }
    
    
     cout << "\n\nOdna gruppa:\n";
     for(int j=0;j<N;j++)
     {
      if(m[top_m][j]==0) cout << " " << j << " ";
     }
     cout << " & " << top_m << "\n";
    
     out_m();
    getch();
    return 0;
    }
    
    void fill_m()
    {
     for(int i=0;i<N;i++)
     {
      for(int j=0;j<N;j++)
      {
       cout << i << " with " << j <<": ";
       cin >> m[i][j];
      }
      cout << "\n";
     }
    }
    
    void out_m()
    {
     for(int i=0;i<N;i++)
     {
      for(int j=0;j<N;j++)
      {
      cout << m[i][j];
      }
     cout << "\n";
     }
    
    }
     
    #525 avton0m, 13 May 2008
    Last edited: 13 May 2008
  6. Stillik

    Stillik New Member

    Joined:
    29 Apr 2008
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    Помогите плз! Нада решить задачу:

    Составить программу, которая вводит предложение и заменяет все четырёхбуквенные слова на первый символ из этих слов!

    Заранее Спасибо!

    De-visible:Может ЯП уточнишь?
    Sorre, забыл, Pascal
     
    #526 Stillik, 14 May 2008
    Last edited: 14 May 2008
  7. B1t.exe

    B1t.exe Elder - Старейшина

    Joined:
    6 Nov 2006
    Messages:
    1,020
    Likes Received:
    128
    Reputations:
    23
    Привет народ !

    помогите кто небудь написать программу для зачета .. достали уже преподы :(
    программа можете написать на чем угодно, лишь бы выполнял следующие пункты:
     
  8. Stillik

    Stillik New Member

    Joined:
    29 Apr 2008
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    Кому интересно, я узнал как она решается!


    Code:
    program slova;
    Uses Crt;
    var
    stroka, slovo,s : string;
    i, max : integer;
    begin
    ClrScr;
    WriteLn('введите текст с любыми разделителями ');
    TextColor(Cyan);
    ReadLn(stroka);
    stroka:=stroka + '.';
    i:= 1; TextColor(LightGreen);
    while Length(stroka) <> 0 do
    begin
    
    if pos(copy(stroka,i,1),' ,.?!-:;') <> 0
    
    then begin
    slovo := copy(stroka,1,i-1);
    if length(slovo)=4 then
    begin
    s:=s+' '+slovo[1];
    end
    else s:=s+' '+slovo;
    delete(stroka,1,i);
    i := 1;
    end
    else i := i+1;
    end;
    writeln(s);
    ReadLn;
    
    end.
    De-visible: Не забывай теги
    Code:
    [/I][/COLOR][/SIZE]
     
    #528 Stillik, 15 May 2008
    Last edited by a moderator: 15 May 2008
  9. Sipitah

    Sipitah New Member

    Joined:
    12 May 2008
    Messages:
    4
    Likes Received:
    1
    Reputations:
    0
    Помогите написать 6 прог в паскале!!! очень срочно!!! ответы в личку!!!
    De-visible: Лучше дай ссылку на архив с заданиями!
     
    #529 Sipitah, 15 May 2008
    Last edited by a moderator: 15 May 2008
  10. Sipitah

    Sipitah New Member

    Joined:
    12 May 2008
    Messages:
    4
    Likes Received:
    1
    Reputations:
    0
    Надо найти сумму элементов последовательности x=(x1,x2,...,xn), начиная от первого отрицательного элемента и до конца последовательности!!!

    Надо составить прогу обработки массива (n=7). В эхо-проверке выводить его элементы по k штук в строке.

    Заранее благодарен!!!
     
  11. Sipitah

    Sipitah New Member

    Joined:
    12 May 2008
    Messages:
    4
    Likes Received:
    1
    Reputations:
    0
    ещё надо :

    Составьте процедуру Max_rearrange, находящую макс по модулю элемент в каждой строке квадратной матрицы A и осуществляющую его перестановку с соответствующим диагональным элементом !!!

    Тоже надо решить! оч. прошу!!!
     
  12. Garfi

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

    Joined:
    1 Feb 2008
    Messages:
    85
    Likes Received:
    23
    Reputations:
    0
    Code:
    uses crt;
    var a: array [1..100] of longint;
        i,k,n,s:integer;
    begin
    clrscr;
    
    {vvod elementov, k-kol-vo elementov}
    
    for i:=a[1] to k do
    if a[i]<0
    then i:=n;
    
    s:=0;
    begin
    for i:=a[n] to k do
    s:=s+a[i];
    end;
    
    writeln(s:5:2);
    readln;
    end.
    
    алгоритм набросал, дальше сам...
     
    1 person likes this.
  13. Sipitah

    Sipitah New Member

    Joined:
    12 May 2008
    Messages:
    4
    Likes Received:
    1
    Reputations:
    0
    Пасибки
     
    1 person likes this.
  14. Far2k

    Far2k New Member

    Joined:
    27 Mar 2008
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0
    Так никто и незнает как первую часть задачки сделать? (Паскаль)

    Разработать программу, которая позволяет найти площадь заштрихованной области:

    1.вычислить площадь заштрихованной области по формулам, сост.разработанные программы по заданным конфигурациям

    [​IMG]
     
  15. Kaban

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

    Joined:
    19 Mar 2006
    Messages:
    248
    Likes Received:
    78
    Reputations:
    14
    Привет, помогите пожалуйста с лабами по Delphi.

    1) Данны 3 массива целых чисел: (4*5), (5*5), (5*4). Вставить после первого столбца, содержащего хотя бы один нулевой элемент, столбец из единиц. Использовать StringGrid.

    2) Создать приложение, предлагающее пользователю ввести массив строк и выдающее минимальную длинну строки в массиве строк. Выделить самую короткую строку символом "!". Если строк с минимальной длинной несколько, выдать сообщение.

    3) Имеется список, элементами которого являются вещественные числа. Создать консольное приложение, описывающее подпрограмму, которая добавляет в начало списка элемент, равный минимальному элементу в списке.

    Помогите пожалуйста с этими лабами, а то я вообще не знаю Delphi и паскаль.
     
    1 person likes this.
  16. freddi

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

    Joined:
    5 Jul 2006
    Messages:
    399
    Likes Received:
    243
    Reputations:
    145
    вопрос от Undernative:

    на делфи. от меня и от него по +5 ))
     
    1 person likes this.
  17. krypt3r

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

    Joined:
    27 Apr 2007
    Messages:
    1,507
    Likes Received:
    389
    Reputations:
    101
    Code:
    program laba07;
    
    var
      p, cnt : integer;
      str, sub : string;
    
    begin
      write ('Vvedite stroku: ');
      readln (str);
      write ('Vvedite iskomuyu podstroku: ');
      readln (sub);
      cnt := 0;
      repeat
        p := pos (sub, str);
        if p > 0 then begin
          delete (str, 1, p + length (sub));
          inc (cnt);
        end;
      until p = 0;
      writeln ('Kolichestvo: ', cnt);
    end.
    
     
    1 person likes this.
  18. CorAX

    CorAX New Member

    Joined:
    28 Feb 2008
    Messages:
    18
    Likes Received:
    0
    Reputations:
    0
    Помогите плиз!
    Нужно аписать игру "Пулемёт" на с++.
    Правила игры. Пулемёт находится в нижнейчасти экрана, может перемещаться вправо и влево с помощью клавиш управлением курсора и стрелять. Слева направопо экрану перемещаются различные обьекты. При попадании из пулемёта объект взрывается.

    Разработать иерархию классов для представления пулемёта и различных (два- три) типов объектов.
     
  19. Delimiter

    Delimiter Banned

    Joined:
    8 Apr 2005
    Messages:
    317
    Likes Received:
    173
    Reputations:
    12
    2 CorAX

    С этим справиться не сложно. Просто тут в основном помогают тем, чей код может уместиться в качестве соурса! Ждать что будут делать проект заливать на слил.ру и выкладывать стцылку на него - ГЛУПО ! :D
     
    1 person likes this.
  20. Ping.Win

    Ping.Win New Member

    Joined:
    12 Aug 2007
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0
    Зачет горит, нужна программа на Java
    Создать двумерный массив и заполнить его сотней любых чисел и найти максимальное число. Помогите, есль не трудно, буду очень благодарен :)
     
Thread Status:
Not open for further replies.