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

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

Thread Status:
Not open for further replies.
  1. Fo)(a

    Fo)(a New Member

    Joined:
    7 Apr 2009
    Messages:
    7
    Likes Received:
    1
    Reputations:
    5
    Algol Спасибо большое =)
     
  2. KIR@PRO

    KIR@PRO from Exception

    Joined:
    26 Dec 2007
    Messages:
    826
    Likes Received:
    291
    Reputations:
    359
    2Algol
    поч. тебе репы добавить низя?
     
    _________________________
  3. Algol

    Algol New Member

    Joined:
    29 May 2002
    Messages:
    1,759
    Likes Received:
    4
    Reputations:
    0
    Карма такая :cool:
     
  4. Qwazar

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

    Joined:
    2 Jun 2005
    Messages:
    989
    Likes Received:
    904
    Reputations:
    587
    А зря :) "Назвался юзером - получай в репу"
     
  5. bug1z

    bug1z Member

    Joined:
    7 May 2009
    Messages:
    61
    Likes Received:
    18
    Reputations:
    1
    Привет!
    В общем такое задание:
    Нужно написать программу, которая имитирует начальный вид банкомата о.О
    писать надо на Visual Basic

    Собстна что означает "имитирует начальный вид банкомата"??
    И как это реализовать?
    Спасибо!
     
  6. DiMb9IH

    DiMb9IH New Member

    Joined:
    1 Jan 2008
    Messages:
    5
    Likes Received:
    0
    Reputations:
    0
    Нужно написать 4 програмки на c#(1 курс). Оплата договорная, писать icq 7два9756

    прилагается ксерокопия методички
     
    #1406 DiMb9IH, 16 May 2009
    Last edited: 16 May 2009
  7. ~NeiTRoN~

    ~NeiTRoN~ Elder - Старейшина

    Joined:
    3 Jul 2008
    Messages:
    64
    Likes Received:
    2
    Reputations:
    0
    Лаба на С

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

    MRAK9 Member

    Joined:
    29 Jul 2007
    Messages:
    115
    Likes Received:
    26
    Reputations:
    0
    собственно мессага

    нужно построить график функции x*x*x*x-13*x*x+36 в заданом интервале(вводится с клавиатуры

    //PASCAL
     
    #1408 MRAK9, 16 May 2009
    Last edited: 18 May 2009
    1 person likes this.
  9. snAKe33

    snAKe33 Active Member

    Joined:
    10 Feb 2009
    Messages:
    13
    Likes Received:
    169
    Reputations:
    24
    Delphi

    Что не правильно, не работает программа..помогите исправить ошибки
    Code:
    unit fazenda_;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Edit1: TEdit;         // расстояние
        Edit2: TEdit;         // цена литра бензина
        Edit3: TEdit;         // потребление бензина на 100 км
        CheckBox1: TCheckBox; // True - поездка туда и обратно
        Button1: TButton;     // кнопка Вычислить
        Label4: TLabel;       // поле вывода результата расчета
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        procedure EditKeyPress(Sender: TObject; var Key: Char);
        procedure Button1Click(Sender: TObject);
     
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
    var
        Edit: TEdit;
    begin
        Edit := Sender as TEdit;
        // в поле Edit можно ввести только дробное число
        case Key of
        '0'..'9': ; // цифры
        #8:       ; // клавиша <Backspace>
        '.',',':  begin
                    Key := DecimalSeparator;
                    if Pos(DecimalSeparator,Edit.Text) <> 0
                        then Key := #0;
                  end;
        #13: // клавиша <Enter>
            case Edit.Tag of
            1:  // клавиша нажата в поле Edit1
                Edit2.SetFocus; // фокус в поле Edit2
            2:  // клавиша нажата в поле Edit1
                Edit3.SetFocus; // фокус в поле Edit3
            3:  // клавиша нажата в поле edit3
                Button1.SetFocus; // фокус на кнопку Button1
            end;
        end;
    end;
    
    // щелчок на кнопке Вычислить
    procedure TForm1.Button1Click(Sender: TObject);
    var
      rast : real; // расстояние
      cena : real; // цена
      potr : real; // потребление на 100 км
      summ : real; // сумма
      mes: string;
    begin
      // здесь возможно исключение типа EConvertError
      // в случае, если пользователь отставит
      // одно из полей ввода незаполненным
      try
            rast := StrToFloat(Edit1.Text);
            cena := StrToFloat(Edit2.Text);
            potr := StrToFloat(Edit3.Text);
        except
        on EConvertError do
        begin
            ShowMessage('Данные надо ввести во все поля!');
            // попытаемся найти пустое поле
            if Length(Edit1.Text) = 0
                then Edit1.SetFocus
            else if Length(Edit2.Text) = 0
                    then Edit2.SetFocus
                    else Edit3.SetFocus;    
            exit;
        end;
      end;
    
      summ := (rast / 100) * potr * cena;
      mes := 'Поездка на дачу';
    
      if  CheckBox1.Checked  then
      begin
          summ := summ * 2;
          mes := mes + ' и обратно';
      end;
    
      mes := mes + 'обойдется в ' + FloatToStrF(summ,ffGeneral,4,2)
                 + ' руб.';
      Label4.Caption := mes;
    end;
    
    end.
     
    #1409 snAKe33, 17 May 2009
    Last edited by a moderator: 17 May 2009
    9 people like this.
  10. PreVarioS

    PreVarioS New Member

    Joined:
    8 Aug 2005
    Messages:
    22
    Likes Received:
    1
    Reputations:
    0
    Народ, а бейсик решаете?)
     
  11. Algol

    Algol New Member

    Joined:
    29 May 2002
    Messages:
    1,759
    Likes Received:
    4
    Reputations:
    0
    Только в военное время :D
     
  12. KaZ@NoVa

    KaZ@NoVa Elder - Старейшина

    Joined:
    5 Jul 2008
    Messages:
    368
    Likes Received:
    438
    Reputations:
    -16
    . Посмотри тут, в принципе не сложно:( зделай сам) http://books.kulichki.com/data/pascal/pas1/6_2_5.htm
     
    1 person likes this.
  13. Staratel

    Staratel Member

    Joined:
    3 Feb 2009
    Messages:
    0
    Likes Received:
    7
    Reputations:
    0
    "Народ, а бейсик решаете?)"
    Могу помочь
     
  14. Flame of Soul

    Flame of Soul Elder - Старейшина

    Joined:
    25 May 2007
    Messages:
    185
    Likes Received:
    146
    Reputations:
    45
    для MRAK9

    Проверить всю правильность кода возможности нету так как моя видиокарта почему-то не хочет работать с GRAPH в режиме совместимости. Можно конечно было сделать и через VGA256, но так уж принято чертить графики через GRAPH.

    y:=x*x*x*x-13*x*x+36; - оставила так как есть, ибо не хочется заморачиваться на преоброзовании и округлении типов. Если будет необходимость работать с real и считать степени по человечески то вот формула y:=exp(ln(X) *4)-13*Sqr(x)+36;

    Исходный код:

    PHP:
    program kl;
    uses Graph;
    var 
    dv,mv,i,x,y,ta,tbinteger;
    begin
      write
    ('vvedite pervoe znachenie diaposona: ');
      
    read(ta);
      
    write('vvedite vtoroe znachenie diaposona: ');
      
    read(tb);
      
    DV:=Detect;
      
    InitGraph(DV,MV,'C:\TP7\UNITS\GRAPH');
      for 
    i:=ta to tb do
      
    begin
        x
    :=i;
        
    y:=x*x*x*x-13*x*x+36;
        
    LineTo(x,y);
      
    end;
      
    read(x);
      
    ClozeGraph;
    end.

    Если кажется что линиями слишком грубо, то можете сделать через точки, только не забывайте преобразовывать типы:

    PHP:
    x:=ta;
    While 
    x<=tb do
      
    begin
        y
    :=exp(ln(X) *4)-13*Sqr(x)+36;
        ...
        ...
        
    PutPixel(xy15);
        
    x:=x0.01;
      
    end;
    Процедуры и функции модуля CRAPH

    Процедуры.


    * Arc (X,Y:Integer; U1, U2, R:Word)

    Строит дугу окружности текущим цветом с текущими параметрами линии. X, Y – координаты центра дуги; U1 – угол до начальной точки дуги, отсчитываемый против часовой стрелки от горизонтальной оси, направленной с лева на право; U2 – угол до конечной точки дуги, отсчитываемый так же, как U1; R – радиус дуги.


    * Bar (X1, Y1, X2, Y2:Integer)
    Строит прямоугольник, закрашенный текущим цветом с использованием текущего стиля (орнамента, штриховки). X1, Y1, X2, Y2 – координаты левого верхнего и правого нижнего углов прямоугольника.


    * Bar3D (X1, Y1, X2, Y2:Integer; Glubina: Word; Top:Boolean)
    Строит параллелепипед, используя текущий стиль и цвет. X1, Y1, X2, Y2 – координаты левого верхнего и правого нижнего углов передней грани; Glubina – ширина боковой грани (отсчитывается по горизонтали); Top – признак включения верхней грани (если True – верхняя грань вычерчивается, False – не вычерчивается).


    * Circle (X, Y: Integer; R: word)
    Рисует текущим цветом окружность радиуса R с центром в точке (X, Y).


    * ClearDevice
    Очищает графический экран, закрашивает его в цвет фона.


    * ClearViewPort
    Очищает выделенное графическое окно, закрашивает его в цвет фона.


    * CloseGraph
    Закрытие видеорежима. Когда все запланированные графические работы выполнены, необходимо выйти из графического режима. Это делается с помощью не имеющей параметров процедуры ClozeGraph. В процессе выполнения эта процедура освобождает память, распределенную под драйверы графики, файлы шрифтов и промежуточные данные, и восстанавливает режим работы адаптера в то состояние, в котором он находился до выполнения инициализации системы.


    * Ellipse (X, Y: Integer; U1, U2, XR, YR: Word)
    Рисует дугу эллипса текущим цветом. X, Y – координаты центра эллипса; U1, U2 – углы до начальной и конечной точек дуги эллипса (см. процедуру Arc); XR, XY – горизонтальная и вертикальная полуоси эллипса.


    * Fill Ellipse (X, Y: Integer; U1, U2, XR, YR: Word)
    Рисунт заштрихованный эллипс, используя X, Y как центр и XR, YR как горизонтальную и вертикальную полуоси эллипса.


    * FillPoly (N: Word; Var PolyPoints)
    Рисует и штрихует многоугольник, содержащий N вершин с координатами в поле PolyPoints.


    * InitGraph (Var Driver, Mode:Integer; Path: String)
    InitGraph(DV,MV,'C:\TP7\UNITS\GRAPH'); Организует переход в графический режим. Переменные Driver и Mode содержат тип графического драйвера и его режим работы. Третий параметр определяет маршрут поиска графического драйвера. Если строка пустая (т.е. равна ’’), считается, что драйвер находится в текущем каталоге. Смотрите у Вас где находится файл GRAPH.TPU


    * Line (X1, Y1, X2, Y2:Integer)
    Рисует линию от точки X1, Y1, до точки X2, Y2.


    * LineTo (X,Y:Integer)
    Рисует линию от текущего указателя к точке X, Y.


    * MoveTo (X,Y:Integer)
    Смещает текущий указатель к точке X, Y.


    * OutTextXY (X,Y:Integer; TextString: String)
    Выводит текст в заданное место экрана.


    * PieSlice (X,Y:Integer; U1, U2, Radius: Word)
    Строит сектор круга, закрашенный текущей штриховкой и цветом заполнения. X, Y – координаты центра сектора круга; U1 и U2 – начальный и конечный углы сектора, отсчитываемые против часовой стрелки от горизонтальной оси, направленной в право; Radius – радиус сектора.


    * PutPixel (X,Y:Integer; Color: Word)
    Выводит точку цветом Color с координатами X, Y.


    * Rectangle (X1, Y1, X2, Y2)
    Рисует контур прямоугольника, используя текущий цвет и тип линий. X1, Y1 – координаты левого верхнего угла прямоугольника; X2, Y2 - координаты левого правого нижнего угла прямоугольника.


    * Sector (X, Y: Integer; U1, U2, XR, YR: Word)
    Рисует и штрихует сектор эллипса радиусом XR, YR с центром в X, Y от начального угла U1 к конечному углу U2.


    * SetBkColor (Color: Word)
    Устанавливает цвет фона.


    * SetColor (Color: Word)
    Устанавливает основной цвет рисования.


    * SetFillStyle (Pattern, Color: Word)
    Устанавливает образец штриховки и цвета.


    * SetLineStyle (LineStyle, Pattern, Thickness: Word)
    Устанавливает толщину и цвет линии.


    * SetTextStyle (Font, Direction, CharSize: Word)
    Устанавливает текущий шрифт, направление (горизонтальное или вертикальное) и размер текста.


    * SetViewPort (X1, Y1, X2, Y2:Integer; ClipOn: Boolean)
    Устанавливает прямоугольное окно на графическом экране. Параметр ClipOn определяет “отсечку” элементов изображения, не умещающихся в окне.


    Функции.

    GetMaxX и GetMaxY
    Возвращает значения максимальных координат экрана в текущем режиме работы соответственно по горизонталь и вертикали.

    * GraphResult
    Возвращает значение GrOk, соответствующее коду 0, если все графические операции программы выполнились без ошибок, или возвращает числовой код ошибки (от -1 до -14).
     
    1 person likes this.
  15. MCSnake

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

    Joined:
    11 Jun 2008
    Messages:
    87
    Likes Received:
    25
    Reputations:
    0
    народ помогите плиз на V Basic решить задачу, есди можно то исходники в ПМ на ссылку скачивания скиньте плиз, очень буду благодарен
    y=1!+2!+3!+...+n! (n>1); до n=10
     
  16. vtkt

    vtkt New Member

    Joined:
    6 Dec 2007
    Messages:
    8
    Likes Received:
    2
    Reputations:
    0
    Народ....Блиет по программированни...задачу на С++ сделал а вот с Ассемблером больште проблемы...

    Прошу помочь в написаниие надо сделать на ассемблере
    Задача:

    Ввести в строку символьных данных,задавая буфер равный 15 словам.Заменить в этой строке нечетные символы на символ "J".Выдать полученную строку символов.

    Пжлст....нужно оячень скоро

    Заранее благодарен!
     
  17. Spy2000

    Spy2000 New Member

    Joined:
    9 May 2009
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    Доброго времени суток!
    Необходимо написать(C#) простенький менеджер горячих клавиш(запуск файла, открытие текстового документа итд).
    Есть заготовка - как отлавливать сами нажатия. Нужно дописать их обработку и проверку.
    http://webfile.ru/3626453
    Заранее спасибо!
     
  18. Suteki

    Suteki Member

    Joined:
    18 May 2009
    Messages:
    10
    Likes Received:
    7
    Reputations:
    12
    Простые числа

    Нужен код с++ для вычисления 100 Простыч чисел с индексами от 10 миллионов (10 000 000) до 1 миллиард (1 000 000 000).

    т.е. как пример: простые числа: 2, 3, 5, 7, 11, 13, 17
    Число 11 имеет индекс - 5

    Гугл дал код:
    Code:
    /*
      -: Copyright © 1999-2003 AY-programs. All Rights Reserved. :-    
                      E-mail: [email protected] 
    -------------------------------------------------------------------------------------
     Programma poiska prostih chisel.
    
       Po-umolchaniu programma poluchaet dannie iz "input.txt": chislo, do kotorogo 
    nujno nayti vse prostie chisla. Resultat vivodit v "output.txt". Kluchem -l programma 
    nachnet rabotat' v rejime polnogo razbora(s klaviaturi poluchaet imena vhodnogo i 
    vihodnogo fila, po okonchanii raboti vivodit ih na ekran). Cherez komandnuu stroku 
    ona mojet poluchat' imena vhodnogo i vihodnogo fila.
    -------------------------------------------------------------------------------------
    
    */
    #include <stdio.h>
    #include <string.h>
    #include <stdlib.h>
    
    #define STR_FILE_IN_NAME "input.txt"
    #define STR_FILE_OUT_NAME "output.txt"
    int MkOutFile(FILE *f_in, FILE *f_out);
    bool bAll=false;
    
    int main(int argc, char* argv[])
    {
    	char sFInName[256]=STR_FILE_IN_NAME, sFOutName[256]=STR_FILE_OUT_NAME, *pNothingDo;
    	FILE *f_in, *f_out;
    	char cRead;
    	if(argc>1){
    		if((argv[1][0]=='-')&&(argv[1][1]=='l')&&(argv[1][2]=='\0')){
    			bAll=true;
    		} else {
    			pNothingDo=strcpy(sFInName,argv[1]);
    			if(argc>2) pNothingDo=strcpy(sFOutName,argv[2]);
    		}
    	}
    	//----------------begin all---
    	if(bAll){
    		printf("Input name of Input File:");
    		scanf("%s",sFInName);
    		printf("Input name of Output File:");
    		scanf("%s",sFOutName);
    	}
    	//----------------end all-----
    	f_in=fopen(sFInName,"r");
    	f_out=fopen(sFOutName,"w");
    	if (!f_in){
    		printf("Error: can't open file with name %s\n", sFInName);
    		if(bAll) scanf("%c", &cRead);
    		return -1;
    	}
    	if (!f_out){
    		printf("Error: can't open file with name %s\n", sFOutName);
    		if(bAll) scanf("%c", &cRead);
    		return -1;
    	}
    	if(MkOutFile(f_in, f_out)>=0){
    		printf("Program was finished successfully!\n");
    	} else {
    		printf("Program was finished unsuccessfully!\n");
    	}
    	fclose(f_in);
    	fclose(f_out);
    	//----------------begin all---
    	if(bAll){
    		double dRead;
    		f_in=fopen(sFInName,"r");
    		f_out=fopen(sFOutName,"r");
    		printf("Input File:\n");
    		while(fscanf(f_in, "%lg", &dRead)==1){
    			printf("%lg ",dRead);
    		}
    		printf("\n");
    		printf("Output File:\n");
    		while(fscanf(f_out, "%lg", &dRead)==1){
    			printf("%lg ",dRead);
    		}
    		printf("\n");
    		fclose(f_in);
    		fclose(f_out);
    	}
    	if(bAll) scanf("%c", &cRead);
    	//----------------end all-----
    	return 0;
    }
    
    int MkOutFile(FILE *f_in, FILE *f_out) //osnovnaya funktsiya
    {
    	long int iSimple;
    	if(fscanf(f_in, "%ld", &iSimple)!=1) return -1; 
    	if(iSimple<=1) return 1;
    	if (iSimple==2) {
    		fprintf(f_out,"%d\n",2);
    		return 1;
    	}
    	if (iSimple==3) {
    		fprintf(f_out,"%ld\n",2);
    		fprintf(f_out,"%ld\n",3);
    		return 1;
    	}
    	long int *aiSimples = new long int[(iSimple/2)+1];
    	if(!aiSimples) return -2;
    	long int iNOS = 2;
    	long int iCandidat;
    	aiSimples[0]=2;
    	aiSimples[1]=3;
    	fprintf(f_out,"%ld\n%ld\n",2,3);
    	iCandidat=3;
    	iCandidat+=2;
    	while(iCandidat<=iSimple){
    		long int iNSravn = 1;
    		bool bYes = true;
    		while((aiSimples[iNSravn]*aiSimples[iNSravn])<=iCandidat){
    			if(!(iCandidat%aiSimples[iNSravn])){
    				bYes=false;
    				break;
    			}
    			iNSravn++;
    		}
    		if(bYes){
    			iNOS++;
    			aiSimples[iNOS-1]=iCandidat;
    			fprintf(f_out,"%ld\n",aiSimples[iNOS-1]);
    		}
    		iCandidat+=2;
    	}
    	delete [] aiSimples;
    
    	return 1;
    }
    
    /*
      -: Copyright © 1999-2003 AY-programs. All Rights Reserved. :-    
                      E-mail: [email protected] 
    */
    Программа выдает последнее число - 1 010 065 393
    У этого числа индекс немного выше 50 000 000

    вычисленные значения:
    Code:
    [COLOR=YellowGreen]10 000 000 	179,424,673
    20 000 000	373,587,883
    30 000 000 	573,259,391
    40 000 000 	776,531,401
    50 000 000 	982,451,653[/COLOR]
     
  19. Djezul

    Djezul New Member

    Joined:
    8 Dec 2008
    Messages:
    43
    Likes Received:
    2
    Reputations:
    0
    Народ помогите решить немного задач на паскале, моет я и о многом прошу, но думаю для большинства это не составит труда, если можно то побыстрее, в пятницу надо уже сдать. Задачи не сложные.
    Вот условия:
    1. Дана строка. Подсчитать самую длинную последовательность подряд идущих букв а.
    2. 1. Расстояние между двумя словами равной длины – это количество позиций, в которых различаются эти слова. В заданном предложении найти пару слов заданной длины с максимальным расстоянием.
    3. Дан текстовый файл с расширением inp, в котором каждая строка содержит последовательность действительных чисел. Выяснить, будут ли последовательности возрастающие. Результат анализа (Да или Нет) записать в выходной файл с расширением out (построчно).
    4. В данной действительной квадратной матрице порядка n отсортировать строку, в которой расположен элемент с наименьшим значением. Предполагается, что такой элемент единственен. Во входном файле с расширением mas, в первой строке дан размер матрицы n, а в следующих n строках и n столбцах записаны элементы матрицы. Результат выполнения программы вывести на экран.
    5. Создать типизированный файл Task5.txt с возможностью добавления, содержащий сведения о веществах: название вещества (текст(10), его удельный вес (действительное) и проводимость (проводник, полупроводник, изолятор) (текст[13]). Необходимо создать отчет (использовать подпрограммы):
    a) выписать удельные веса и названия всех полупроводников и вывести на экран с заголовком "Полупроводники";
    b) выбрать данные о проводниках с удельным весом не более 10 и вывести на экран после информации о полупроводниках, вставив заголовок "Проводники";
    c) вывести все содержимое типизированного файла в текстовый файл Task5.sol.
    Пример входного файла Task5.txt:
    Фарфор 2.3 изолятор
    Железо 7.9 проводник
    Золото 19.3 проводник
    Кремний 2.3 полупроводник
    Железо 7.9 проводник
    Стекло 2.5 изолятор
     
    #1419 Djezul, 20 May 2009
    Last edited: 20 May 2009
  20. 043nKRuT0y

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

    Joined:
    31 Oct 2007
    Messages:
    226
    Likes Received:
    8
    Reputations:
    0
    Есть задачка :
    С клавиатуры вводится число - сумма денег n>7 !!! Нужно узнать можно ли выплатить эту суму купюрами по 5 и по 3 ??? Хотя если подумать то любую сумму можна выдать этими купюрами ! Все таки хотелось бы удивить толковое и короткое кишение на С++

    Заранее СПС !
     
Thread Status:
Not open for further replies.