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

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

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

    Nastroenie New Member

    Joined:
    30 Jan 2009
    Messages:
    5
    Likes Received:
    0
    Reputations:
    0
    помогите с лабой на delphi 7. Дана строка символов. В строке имеется несколько символов ‘.’. Выделить подстроку между первой и последней точкой. красиво оформить
     
  2. Nastroenie

    Nastroenie New Member

    Joined:
    30 Jan 2009
    Messages:
    5
    Likes Received:
    0
    Reputations:
    0
    Матрица A(n,m) содержит вещественные числа. Определить количество столбцов и их номера, в которых сумма максимального и минимального элементов больше числа b.
    пытался сделать эту лабу основное задание получилось, но проблема с контролем ввода данных в компоненты. вот что вышло:

    unit Unit2;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, Grids, Menus;

    type
    TForm2 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;

    procedure StringGrid1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);

    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form2: TForm2;

    implementation

    uses Unit1;

    {$R *.dfm}



    procedure TForm2.StringGrid1Click(Sender: TObject);
    Var
    i,j: integer;
    begin
    with StringGrid1 do
    begin
    i:=0;
    for j:=1 to RowCount - 1 do
    Cells[i,j]:= IntToStr(J);
    J:=0; {строка 0}
    For I:=1 to ColCount - 1 do
    Cells[i,j]:= IntToStr(i);
    end;
    end;

    procedure TForm2.Button1Click(Sender: TObject);
    Var
    max,min: real;
    i,j,k: integer;
    P: Boolean;
    begin {как сделать этот момент более рационально
    или после вывода ShowMessage программа не завершалась, и не закрывалась а была возможно доконца заполнить матрицу}
    with StringGrid1 do
    begin
    for i:= 1 to RowCount-1 do
    for J:=1 to ColCount-1 do
    if Cells[j,i]=''
    then p:=True;
    if p=True
    then ShowMessage('Заполните матрицу полностью!');
    K:=0;
    for i:= 1 to ColCount-1 do
    Begin
    Min:= StrToFloat(Cells[i,1]);
    for j:=1 to RowCount-1 do
    if StrToFloat(Cells[i,j])< min
    then Min:= StrToFloat(Cells[i,j]);
    Max:= StrToFloat(Cells[1,1]);
    for j:=1 to RowCount - 1 do
    if StrToFloat(Cells[i,j])> max
    then Max:= StrToFloat(Cells[i,j]);
    If Max+Min> StrToFloat(Form1.Edit3.Text)
    then
    Begin
    k:=K+1;
    Edit2.Text:=Edit2.Text + ' ' + FloatToStr(i)+ ',';
    end;
    end;
    Edit1.Text:=FloatToStr(k);
    end;
    end;


    procedure TForm2.StringGrid1KeyPress(Sender: TObject; var Key: Char);
    begin
    if not (Key in ['0','1','2','3','4','5','6','7','8','9','-',','])
    then Key:=#0
    end;

    end.
     
  3. kyoko

    kyoko Member

    Joined:
    17 Aug 2008
    Messages:
    137
    Likes Received:
    74
    Reputations:
    9
    Помогите пожалуйста!

    на с++

    Разработать алгоритм и написать программу решения СЛАУ методом Гаусса с частичным выбором ведущего элемента.

    Требования к программе:
    1.Программа должна позволять задавать порядок матрицы с клавиатуры.
    2.Коэффициенты матрицы и вектора свободных членов должны задаваться либо случайным образом, либо с клавиатуры.
    3.Программа должна иметь возможность подставить вектор полученного решения в систему для проверки правильности полученных результатов.
     
    #1163 kyoko, 17 Mar 2009
    Last edited: 17 Mar 2009
  4. 043nKRuT0y

    043nKRuT0y Elder - Старейшина

    Joined:
    31 Oct 2007
    Messages:
    226
    Likes Received:
    8
    Reputations:
    0
    Народ кто нибудь дайте пожалуйста алгоритм Транспонирования матрицы на С++ ! Транспонирование нужно проводить как над квадратной матрицей так и над не квадратной !
     
    #1164 043nKRuT0y, 17 Mar 2009
    Last edited: 17 Mar 2009
  5. fker

    fker Member

    Joined:
    26 Nov 2008
    Messages:
    135
    Likes Received:
    64
    Reputations:
    -1
    1 person likes this.
  6. criz

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

    Joined:
    4 Nov 2007
    Messages:
    293
    Likes Received:
    40
    Reputations:
    6
    может поможет: http://forum.vingrad.ru/forum/topic-158562.html
     
  7. MRAK9

    MRAK9 Member

    Joined:
    29 Jul 2007
    Messages:
    115
    Likes Received:
    26
    Reputations:
    0
    Помогите пожалуйста...
    Собсна сама задачка:
    Дан массив b из 10 элементов организовать новый массив элементы которого расположены в обратном порядке
    (На паскале)
     
  8. lll6

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

    Joined:
    29 Feb 2008
    Messages:
    83
    Likes Received:
    15
    Reputations:
    5
    Пожалуйста
    Code:
    program massiv_perevertish;
      const n=10;
      var a,b:array [1..n] of word;
          x:word;
    begin
      writeln ('Массив b');
      for x:=1 to n do begin
       b[x]:=random(100);
       write(b[x]:4);
      end;
      for x:=1 to n do 
       a[x]:=b[n+1-x];
      writeln;
      writeln ('Массив a');
      for x:=1 to n do
       write (a[x]:4);
    end.
     
    1 person likes this.
  9. FindeR

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

    Joined:
    15 Nov 2006
    Messages:
    623
    Likes Received:
    138
    Reputations:
    20
    Госпади, ну и задачи...
    Code:
    program test;
    
    var b:array[1..10] of integer;
    a: array[1..10] of integer;
    c,i:integer;
    
    begin
    for i:=1 to 10 do b[i]:=random(200);
    
    c:=11;
    for i:=1 to 10 do begin
    c:=c-1;
    a[c]:=b[i];
    end;
    
    end.
     
  10. Gray_Wolf

    Gray_Wolf Active Member

    Joined:
    7 Mar 2009
    Messages:
    377
    Likes Received:
    135
    Reputations:
    10
    Я бы писал так:

    Code:
    const n=10;
    var a:array[1..n] of integer;
    b: array[1..n] of integer;
    i:integer;
    
    begin
       for i:=1 to n do begin
          b[i]:=random(100);
          write(b[i]:4);
       end;
       writeln();
       for i:=1 to n do begin
          a[i]:=b[n-i+1];
          write(a[i]:4);
       end;
       writeln();
    end.
    
     
  11. Alekzzzander

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

    Joined:
    5 Sep 2007
    Messages:
    278
    Likes Received:
    36
    Reputations:
    0
    на турбопаскале....помогите написать пару задачек

    Code:
    Пpогpамма. Дана непустая оследовательность слов из стpоч-          ных pусских букв; между соседними словами - запятая, за           последним словом - точка. Напечатать в алфавитном поpядке          все звонкие согласные буквы, котоpые входят более чем в           одно слово.  
    вторая задачка
    Code:
    Даны два предложения, состоящие не менее чем  из  5 слов.     Слова каждого предложения заменить на  совпадающие с ними      по длине слова из другого предложения  (Заменять на соот-     ветствующие по счёту слова - например, второе слово  пер-     вого предложения из 5 букв заменить  на  второе встретив-     шееся слово из 5 букв во втором).  
    и последняя
    Code:
    type строка=array [1..16] of char;           дата=record число:1..31;                       месяц:1..12;                       год:1900..1979                 end;           анкета=record фамилия:строка;                         пол:(муж, жен);                         деньрожд:дата                  end;           группа=array [1..25] of анкета;      Описать процедуру печ (Гр,Бук), печатающую все фамилии лю-      дей из группы Гр,  начинающиеся с литературы Бук,  и  даты      рождения этих людей.  
     
  12. Stawridka

    Stawridka New Member

    Joined:
    9 Jan 2009
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0
    Необходимо зашифровать(RSA) видео или аудио файл. По RSA вопросов нет, а вот как изменять видео или аудио? (Delphi)
     
  13. GOODmen

    GOODmen Member

    Joined:
    8 Nov 2008
    Messages:
    45
    Likes Received:
    76
    Reputations:
    10
    в строке записаны слова вперемешку с целыми числами.подсчитать кол.и сумму всех чисел в строке.например для строки qwerty45easdf54 результат должен быть 2 и 99-два целых числа,сумма которого равна 99-ти.
    тут нужно использовать входной и выходной файл (input.txt and output.txt)
    лабы на free pascale ...
    парни плиз помогите завтра сдавать аж три лабы,а ни одной нету...
    хотя бы эту,если кто может реально помоч с еще двумя то стукни в аську 409829
    зарание благодарю
     
  14. lll6

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

    Joined:
    29 Feb 2008
    Messages:
    83
    Likes Received:
    15
    Reputations:
    5
    Отрицательные числа могут быть? Если нет, то вот вариант, если да, то напиши.
    Code:
    program symma;
      var str,str1:string;
          n,len,x,s,k:word;
          err:integer;
          f:text;
    begin
      assign (f, 'input.txt');
      reset (f);
      readln (f,str);
      close (f);
      len:=length(str);
      n:=1;
      while n<=len do begin
       if (str[n]>'0') and (str[n]<'9') then str1:=str1+str[n] else if str1>'' then begin k:=k+1; Val(str1, x, err); s:=s+x; str1:=''; end;
       n:=n+1;
      end;
      if str1>'' then begin k:=k+1; Val(str1, x, err); s:=s+x; str1:=''; end;
      assign (f, 'output.txt');
      rewrite(f);
      writeln (f,'Количество: ',k);
      writeln (f,'Сумма: ',s);
      close (f);
    end.
     
    1 person likes this.
  15. xrun

    xrun New Member

    Joined:
    27 Mar 2007
    Messages:
    10
    Likes Received:
    1
    Reputations:
    0
    Здравствуйте, помогите пожалуйста: Нужна програмка на Delphi по табулированию функции, где F(x,a)= a*X^4+B*Ln(x^2+B^2) табулируемая функция.
    B-число, Табулирование нужно выполнить при заданных значениях:
    Xn,Dx,N - где начальное значение, шаг и количество значений изменяемых с данным шагом соответсвенно
    An,Ak,Da - где начальное, конеченое значения и шаг соответственно.
    Мне бы хотя бы просто примерную схему набросать, буду очень благодарен.
     
  16. GOODmen

    GOODmen Member

    Joined:
    8 Nov 2008
    Messages:
    45
    Likes Received:
    76
    Reputations:
    10
    Можете еще помоч?
    нужно вывести несколько строк треугольника паскаля,используя не более одного одномерного массива(Т.е хранить только текущую строку)

    и еще одна

    тоже вывести треугольник паскаля использую формулу биноминальных коэфициэнтов.Факториал реализовать РЕКУРСИВНО)
    Зарание преблагодарен
     
    2 people like this.
  17. 043nKRuT0y

    043nKRuT0y Elder - Старейшина

    Joined:
    31 Oct 2007
    Messages:
    226
    Likes Received:
    8
    Reputations:
    0
    Все таки может кто то помочь с транспонированием матрицы !? Квадратную матрицу - транспонирую без проблем , а вот с не квадратной - не выходит !

    2 fker : Зашел я на топик что ты указал , и посмеялся ) Народ даже вопрос не сообразил , объясняли мне что приведены выше в топике код транспонирует и не квадратную матрицу - хотя ето не так )))
     
    1 person likes this.
  18. GOODmen

    GOODmen Member

    Joined:
    8 Nov 2008
    Messages:
    45
    Likes Received:
    76
    Reputations:
    10
    http://forum.antichat.ru/showpost.php?p=1178896&postcount=1193
    UP выручайте
     
    4 people like this.
  19. .::BARS::.

    .::BARS::. Elder - Старейшина

    Joined:
    13 Oct 2007
    Messages:
    379
    Likes Received:
    45
    Reputations:
    10
    Привет... помогите решить ньютоном!

    [​IMG]
     
  20. DREASTY

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

    Joined:
    19 Nov 2007
    Messages:
    38
    Likes Received:
    21
    Reputations:
    1
    Программный эмулятор менеджера виртуальной страничной памяти

    параноя
     
    #1180 DREASTY, 21 Mar 2009
    Last edited: 1 Nov 2010
Thread Status:
Not open for further replies.