Помогите сделать "Описание программы" .:: CodingRUS ::. программирование по-русски на Delphi, C++, PHP, Prolog, GPSS

Услуги

• Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
• Заказать продвижение сайта
• Программа для рисования блок-схем
• Инженерный калькулятор онлайн
• Таблица сложения онлайн

Популярные статьи

OpenGL и Delphi...		65535
Форум на вашем ...		65535
21 ошибка прогр...		65535
HACK F.A.Q		65535
Бип из системно...		65535
Гостевая книга ...		65535
Invision Power ...		65535
Пример работы с...		65535
Содержание сайт...		65535
ТЕХНОЛОГИИ ДОСТ...		65535
Организация зап...		65535
Вызов хранимых ...		65535
Создание отчето...		65535
Имитационное мо...		65535
Программируемая...		65535
Эмулятор микроп...		65535
Подключение Mic...		65535
Создание потоко...		65535
Приложение «Про...		65535
Оператор выбора...		65535

Сейчас на сайте

Гостей: 9
На сайте нет зарегистрированных пользователей

Пользователей: 13,368

новичок: Goosprin

Новости

Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

База данных студентов на Delphi (файл записей) + Блок схемы

Моделирование автовокзала + Отчет + Блок схема

Изменения контуров и сортировка в двумерном массиве чисел на Turbo Pasca...

Просмотр темы

.:: CodingRUS ::. программирование по-русски на Delphi, C++, PHP, Prolog, GPSS | Программирование на Delphi | Разное

Автор Помогите сделать "Описание программы"

Sanal
Пользователь

Сообщений: 9
Зарегистрирован: 06.05.10

Опубликовано 03-06-2010 06:53

Вот проги...плиз помогите
http://letitbit.net/download/20159.20b959c1f9919e79b75546051/MGraph.rar.html
http://letitbit.net/download/82415.821f688fc3aed9b9055415f12/Graphs.rar.html

Изменил(а) Sanal, 03-06-2010 06:54

Автор RE: Помогите сделать "Описание программы"

Kest
Супер Администратор

Avatar пользователя

Сообщений: 226
Зарегистрирован: 01.01.70

Опубликовано 03-06-2010 08:44

Sanal написал:
Вот проги...плиз помогите
http://letitbit.net/download/20159.20b959c1f9919e79b75546051/MGraph.rar.html
http://letitbit.net/download/82415.821f688fc3aed9b9055415f12/Graphs.rar.html

смотря что ты имеешь ввиду под описанием? Блок схемы могу сделать, или комментарии проставить?

Я знаю, что ничего не знаю, но многие не знают и этого

Автор RE: Помогите сделать "Описание программы"

Sanal
Пользователь

Сообщений: 9
Зарегистрирован: 06.05.10

Опубликовано 03-06-2010 09:03

Посмотри здесь как надо сделать...

http://letitbit.net/download/95215.9514096256ffb042918275266/5.doc.html

Автор RE: Помогите сделать "Описание программы"

Kest
Супер Администратор

Avatar пользователя

Сообщений: 226
Зарегистрирован: 01.01.70

Опубликовано 03-06-2010 10:37

не скачивается

Я знаю, что ничего не знаю, но многие не знают и этого

Автор RE: Помогите сделать "Описание программы"

Sanal
Пользователь

Сообщений: 9
Зарегистрирован: 06.05.10

Опубликовано 03-06-2010 13:04

Дай мыло скину?

Автор RE: Помогите сделать "Описание программы"

Kest
Супер Администратор

Avatar пользователя

Сообщений: 226
Зарегистрирован: 01.01.70

Опубликовано 03-06-2010 13:12

Скачал посмотрел ты сам скриншотов проги не можешь сделать? )) нажимай кнопку Prt Scr и вставляй в ворд

Я знаю, что ничего не знаю, но многие не знают и этого

Автор RE: Помогите сделать "Описание программы"

Sanal
Пользователь

Сообщений: 9
Зарегистрирован: 06.05.10

Опубликовано 03-06-2010 13:14

Могу!!!нужны коменты....

Автор RE: Помогите сделать "Описание программы"

Kest
Супер Администратор

Avatar пользователя

Сообщений: 226
Зарегистрирован: 01.01.70

Опубликовано 03-06-2010 13:59

Например MGraph, процедура отрисовки графика:

procedure TMainForm.PaintGraphics(Func: string); {рисуем график функции на imgGraphic}

var Xaxis, Yaxis: integer; {положение осей на рисунке} i: integer; workfunc: TE; funcresult,j: Extended;

    Bitmap: TBitmap; strDiv: string; strDivPos: integer; XbeginDiv: Extended; flgPaint:boolean;

  {преобразователь в тип TPoint}

  function ToPoint(const x,y: integer): TPoint; begin Result.X := x; Result.Y := y; end;

begin

// устанавливаем начальные параметры

  Self.StatusBar.Panels[0].Text := 'Working...'; Self.StatusBar.Refresh; Bitmap := nil;

  try

    Bitmap := TBitmap.Create;

    Bitmap.Width := Self.FGraphicParam.PaintX+Self.FGraphicParam.Xborder*2;

    Bitmap.Height := Self.FGraphicParam.PaintY+Self.FGraphicParam.Yborder*2;

    Self.imgGraphic.Picture.Graphic := Bitmap;

    Self.imgGraphic.SetBounds(5,5,Bitmap.Width,Bitmap.Height);

  finally

    Bitmap.Free;

  end;



  {$IFDEF MSWINDOWS}

    Self.imgGraphic.Canvas.Brush.Color := clWhite;

    Self.imgGraphic.Canvas.Brush.Style := bsDense4;

  {$ELSE}

    Self.imgGraphic.Canvas.Brush.Style := bsSolid;

    Self.imgGraphic.Canvas.Brush.Color := clSilver;

  {$ENDIF}

  Self.imgGraphic.Canvas.Pen.Color := clBlack;

  Self.imgGraphic.Canvas.Pen.Style := psSolid;

  Self.imgGraphic.Canvas.FillRect(Self.imgGraphic.ClientRect);

  Self.imgGraphic.Canvas.Rectangle(Self.imgGraphic.ClientRect);



// вычисляем положение координатных осей

  Yaxis := -Round(Self.FGraphicParam.Xmin*Self.FGraphicParam.DivX)+Self.FGraphicParam.Xborder;

  if Yaxis<Self.FGraphicParam.Xborder then Yaxis := Self.FGraphicParam.Xborder else if Yaxis>Self.FGraphicParam.PaintX+Self.FGraphicParam.Xborder then Yaxis := Self.FGraphicParam.PaintX+Self.FGraphicParam.Xborder;

  Xaxis := Round(Self.FGraphicParam.Ymax*Self.FGraphicParam.DivY)+Self.FGraphicParam.Yborder;

  if Xaxis<Self.FGraphicParam.Yborder then Xaxis := Self.FGraphicParam.Yborder else if Xaxis>Self.FGraphicParam.PaintY+Self.FGraphicParam.Yborder then Xaxis := Self.FGraphicParam.PaintY+Self.FGraphicParam.Yborder;



// рисуем оси координат

  Self.imgGraphic.Canvas.Brush.Color := clBlack; Self.imgGraphic.Canvas.Brush.Style := bsDense4;

  {X}

  Self.imgGraphic.Canvas.MoveTo(Self.FGraphicParam.Xborder, Xaxis); Self.imgGraphic.Canvas.LineTo(Self.GraphicParam.PaintX+Self.FGraphicParam.Xborder, Xaxis);

  Self.imgGraphic.Canvas.Polygon([ToPoint(Self.GraphicParam.PaintX+Self.FGraphicParam.Xborder, Xaxis), ToPoint(Self.GraphicParam.PaintX+Self.FGraphicParam.Xborder-16, Xaxis-4), ToPoint(Self.GraphicParam.PaintX+Self.FGraphicParam.Xborder-15, Xaxis), ToPoint(Self.GraphicParam.PaintX+Self.FGraphicParam.Xborder-16, Xaxis+4)]);

  {Y}

  Self.imgGraphic.Canvas.MoveTo(Yaxis, Self.FGraphicParam.Yborder); Self.imgGraphic.Canvas.LineTo(Yaxis, Self.GraphicParam.PaintY+Self.FGraphicParam.Yborder);

//  Self.imgGraphic.Canvas.Polygon([ToPoint(Yaxis, Self.FGraphicParam.Yborder), ToPoint(Yaxis-Self.GraphicParam.Xborder div 3, 7*Self.FGraphicParam.Yborder div 3), ToPoint(Yaxis, 9*Self.FGraphicParam.Yborder div 4), ToPoint(Yaxis+Self.GraphicParam.Xborder div 3, 7*Self.FGraphicParam.Yborder div 3)]);

  Self.imgGraphic.Canvas.Polygon([ToPoint(Yaxis, Self.FGraphicParam.Yborder), ToPoint(Yaxis-4, Self.FGraphicParam.Yborder+16), ToPoint(Yaxis, Self.FGraphicParam.Yborder+15), ToPoint(Yaxis+4, Self.FGraphicParam.Yborder+16)]);



// надписи на осях

  Self.imgGraphic.Canvas.Font := Self.FGraphicParam.Font;

  i := Xaxis-6-Self.imgGraphic.Canvas.TextHeight(Self.FGraphicParam.Xstr); if i<Self.FGraphicParam.Yborder then i := Xaxis+6;

  Self.imgGraphic.Canvas.TextOut(Self.FGraphicParam.Xborder+Self.FGraphicParam.PaintX-Self.imgGraphic.Canvas.TextWidth(Self.FGraphicParam.Xstr),i,Self.FGraphicParam.Xstr);

  i := Yaxis+9; if i+Self.imgGraphic.Canvas.TextWidth(Self.FGraphicParam.Ystr)>Self.FGraphicParam.Xborder+Self.FGraphicParam.PaintX then i := Yaxis-9-Self.imgGraphic.Canvas.TextWidth(Self.FGraphicParam.Ystr);

  Self.imgGraphic.Canvas.TextOut(i,Self.FGraphicParam.Yborder,Self.FGraphicParam.Ystr);



// рисуем координатную сетку (задается параметрам DivXYstr)

  Self.imgGraphic.Canvas.Font := Self.FGraphicParam.FontDivision;

  {x}

  strDivPos := Self.FGraphicParam.Xborder; XbeginDiv := Self.FGraphicParam.Xmin;

  if Self.FGraphicParam.DivXstr>Self.tbarDivX.Min then repeat

    Self.imgGraphic.Canvas.MoveTo(strDivPos, Xaxis-1); Self.imgGraphic.Canvas.LineTo(strDivPos, Xaxis+1);

    Str(XbeginDiv:0:2, strDiv);

    if Xaxis+1+Self.imgGraphic.Canvas.TextHeight(strDiv)<Self.FGraphicParam.Yborder+Self.FGraphicParam.PaintY

      then Self.imgGraphic.Canvas.TextOut(strDivPos, Xaxis+1, strDiv)

      else Self.imgGraphic.Canvas.TextOut(strDivPos, Xaxis-1-Self.imgGraphic.Canvas.TextHeight(strDiv), strDiv);

    Inc(strDivPos, Round(Self.imgGraphic.Canvas.TextWidth(strDiv)+Self.imgGraphic.Canvas.TextWidth(strDiv)*(Self.tbarDivX.Position/(Self.tbarDivX.Max-Self.tbarDivX.Min))));

    XbeginDiv := Self.FGraphicParam.Xmin+(Self.FGraphicParam.Xmax-Self.FGraphicParam.Xmin)*(strDivPos-Self.FGraphicParam.Xborder)/Self.FGraphicParam.PaintX;

  until strDivPos>Self.FGraphicParam.PaintX-Self.FGraphicParam.Xborder;

  {y}

  strDivPos := Self.FGraphicParam.Yborder+Self.FGraphicParam.PaintY; XbeginDiv := Self.FGraphicParam.Ymin;

  if Self.FGraphicParam.DivYstr>Self.tbarDivY.Min then repeat

    Self.imgGraphic.Canvas.MoveTo(Yaxis-1, strDivPos); Self.imgGraphic.Canvas.LineTo(Yaxis+1, strDivPos);

    Str(XbeginDiv:0:2, strDiv);

    if Yaxis+4+Self.imgGraphic.Canvas.TextWidth(strDiv)<Self.FGraphicParam.PaintX+Self.FGraphicParam.Xborder

      then Self.imgGraphic.Canvas.TextOut(Yaxis+4, strDivPos-Self.imgGraphic.Canvas.TextHeight(strDiv) div 2, strDiv)

      else Self.imgGraphic.Canvas.TextOut(Yaxis-Self.imgGraphic.Canvas.TextWidth(strDiv)-4, strDivPos-Self.imgGraphic.Canvas.TextHeight(strDiv) div 2, strDiv);

    Dec(strDivPos, Round(Self.imgGraphic.Canvas.TextHeight(strDiv)+Self.imgGraphic.Canvas.TextHeight(strDiv)*(Self.tbarDivY.Position/(Self.tbarDivY.Max-Self.tbarDivY.Min))));

    XbeginDiv := Self.FGraphicParam.Ymax-(Self.FGraphicParam.Ymax-Self.FGraphicParam.Ymin)*(strDivPos-Self.FGraphicParam.Yborder)/Self.FGraphicParam.PaintY;

  until strDivPos<Self.FGraphicParam.Yborder*2+Self.imgGraphic.Canvas.TextHeight(strDiv);



// рисуем график функции

  Self.imgGraphic.Canvas.Pen.Color := clNavy; flgPaint:=false;

  if MathematicsFunc.Parse_Line(Func, workfunc) then begin {разлагаем функцию в дерево}

    for i:=Self.FGraphicParam.Xborder to Self.FGraphicParam.Xborder+Self.FGraphicParam.PaintX do begin {цикл по всевозможным точкам на рисунке и строим график}

      j := Self.FGraphicParam.Xmin+(Self.FGraphicParam.Xmax-Self.FGraphicParam.Xmin)*((i-Self.FGraphicParam.Xborder)/Self.FGraphicParam.PaintX);

      if not MathematicsFunc.Count_Func(true, workfunc, j, 0, funcresult) then begin Self.imgGraphic.Canvas.MoveTo(i, Xaxis); flgPaint:=false; Continue; end;

      funcresult := -funcresult*Self.FGraphicParam.DivY+Self.FGraphicParam.Ymax*Self.FGraphicParam.DivY+Self.FGraphicParam.Yborder;

      if i=Self.FGraphicParam.Xborder

        then Self.imgGraphic.Canvas.MoveTo(i, Round(funcresult))

        else if (Round(funcresult)<Self.FGraphicParam.Yborder) then Self.imgGraphic.Canvas.MoveTo(i, Self.FGraphicParam.Yborder)

          else if (Round(funcresult)>Self.FGraphicParam.Yborder+Self.FGraphicParam.PaintY) then Self.imgGraphic.Canvas.MoveTo(i, Self.FGraphicParam.Yborder+Self.FGraphicParam.PaintY)

            else if flgPaint then Self.imgGraphic.Canvas.LineTo(i, Round(funcresult)) else Self.imgGraphic.Canvas.MoveTo(i, Round(funcresult));

      flgPaint:=true;

    end;

    MathematicsFunc.Delete_Tree(workfunc); {освобождаем дерево функции}

  end;



// заканчиваем работу

  Self.StatusBar.Panels[0].Text := 'Active';

end;

В коде достаточно комментариев

Я знаю, что ничего не знаю, но многие не знают и этого

Изменил(а) Kest, 03-06-2010 14:01

Автор RE: Помогите сделать "Описание программы"

Kest
Супер Администратор

Avatar пользователя

Сообщений: 226
Зарегистрирован: 01.01.70

Опубликовано 03-06-2010 14:03

А программа Graph по проще, в ней тоже есть комментарии:

procedure TForm1.StartBtnClick(Sender: TObject);

var n:cardinal;

   m:word;

   str:string;

label a;

begin

form1.caption:='Graphics - Расчет точек';

graph:=true;

ram:=true;

xe:=strtofloat(xend.text);

xs:=strtofloat(xstart.text);

if xe<xs then

   begin

   str:=xend.text;

   xend.text:=xstart.text;

   xstart.text:=str;

   xe:=xe+xs;

   xs:=xe-xs;

   xe:=xe-xs;

   end;

step:=strtofloat(steped.text);

if (step>abs(xe-xs))or(step<0) then

   begin

   showmessage('Неверный шаг');

   exit;

   end;

setlength(x,trunc(abs(xe-xs)/step)+1);

setlength(y,trunc(abs(xe-xs)/step)+1);

gauge1.maxvalue:=high(y);

for n:=0 to high(x) do

   begin

   x[n]:=xs+n*step;

   str:=formed.text;

   str:=erranalise(str);

   a:;   //метка для обновления длинны str в цикле

   for m:=1 to length(str) do

      begin

      //подстановка числа вместо x

      if ((str[m]='x')or(str[m]='X')){and(x[n]>=0)} then

         begin

         delete(str,m,1);

         insert(floattostr(x[n]),str,m);

         goto a;

         end;

{      if ((str[m]='x')or(str[m]='X'))and(x[n]<0) then

         begin

         delete(str,m,1);

         insert(floattostr(x[n]),str,m);

         str[m]:='~';

         goto a;

         end;}

      end;

   //решение функции в точке x

   y[n]:=strtofloat(analise(str));

   gauge1.progress:=n;

   end;

xyminmax;

ris;

end;

Я знаю, что ничего не знаю, но многие не знают и этого

Автор RE: Помогите сделать "Описание программы"

Sanal
Пользователь

Сообщений: 9
Зарегистрирован: 06.05.10

Опубликовано 03-06-2010 19:50

Ты меня понил!((((

Автор RE: Помогите сделать "Описание программы"

Sanal
Пользователь

Сообщений: 9
Зарегистрирован: 06.05.10

Опубликовано 03-06-2010 20:05

Это я знаю !!!!что в листенге

Автор RE: Помогите сделать "Описание программы"

Kest
Супер Администратор

Avatar пользователя

Сообщений: 226
Зарегистрирован: 01.01.70

Опубликовано 03-06-2010 21:02

Sanal написал:
Могу!!!нужны коменты....

ты писал что тебе нужны комменты, я открыл исходники - там есть комменты

Я знаю, что ничего не знаю, но многие не знают и этого

Автор RE: Помогите сделать "Описание программы"

Sanal
Пользователь

Сообщений: 9
Зарегистрирован: 06.05.10

Опубликовано 04-06-2010 11:18

Ты не понил...(((фуф!!! ты же скачал http://letitbit.net/download/95215.9514096256ffb042918275266/5.doc.html
там же Образец...Там вставленые картинки и написано нажимаем туда и что выходит...

Автор RE: Помогите сделать "Описание программы"

Kest
Супер Администратор

Avatar пользователя

Сообщений: 226
Зарегистрирован: 01.01.70

Опубликовано 05-06-2010 18:36

Sanal написал:
Ты не понил...(((фуф!!! ты же скачал http://letitbit.net/download/95215.9514096256ffb042918275266/5.doc.html
там же Образец...Там вставленые картинки и написано нажимаем туда и что выходит...

тогда тебе нужно обращаться сюда

Я знаю, что ничего не знаю, но многие не знают и этого

Автор RE: Помогите сделать "Описание программы"

PowerBlack
Пользователь

Сообщений: 121
Зарегистрирован: 07.08.22

Опубликовано 01-05-2023 17:26

Если вам нравится футбол, как вид спорта и вы уверены в том, что сможете делать 100% прогнозы. Ну или, хоть иногда делать так, чтобы ваша ставка сыграла То конечно же ставьте. Мне больше интересен киберспорт. Когда учился в университете, то даже сам участвовал в соревнованиях по контр страйку. И, между прочим, занимал далеко не последние места. А однажды занят призовое третье место. Я ставлю через 1xbet зеркало 1xbet , а ты какую контору выбрал? Или только планируешь и определяешься?

Автор RE: Помогите сделать "Описание программы"

Seresa
Пользователь

Avatar пользователя

Сообщений: 3
Зарегистрирован: 08.06.23

Опубликовано 08-06-2023 11:47

Здесь очень умные люди общаются, я многое не понял!

Перейти на форум:

Гость

Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.

Поделиться ссылкой

• Фолловь меня в Твиттере! • Смотрите канал о путешествиях • Как приготовить мидии в тайланде?

Загрузки

Новые загрузки

Случайные загрузки

ICQ

Топ загрузок

Приложение Клие...	100774
Delphi 7 Enterp...	97833
Converter AMR<-...	20268
GPSS World Stud...	17014
Borland C++Buil...	14191
Borland Delphi ...	10291
Turbo Pascal fo...	7373
Калькулятор [Ис...	5984
Visual Studio 2...	5207
Microsoft SQL S...	3661