Графика.Цена деления графика.

@aidarr · Регистрация: 20.11.2009

Author24 — интернет-сервис помощи студентам

Нужно доделать сие творение!Не хватает цены деления хотя бы 3 засечки по иксу в право и по игреку в верх!И еще один вопрос почему на университетских компах программа не строит график?хотя установочник я брал именно из университета.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
program GraphX;
uses graph,crt;
 
var
 grDriver,grMode: integer;
 a:Real;
 d:Real;
 k,l:Real;
 i:integer;
 
 
 function Y(X:Real):Real;
 begin
    X:=X*pi/180;
 if x>0 then begin  k:=(exp(sqrt(X))-exp(-sqrt(X)))/2;
  l:=(exp(sqrt(X))+exp(-sqrt(X)))/2;
 Y:=(1/4)*((X+1)/sqrt(X)*k - l);end;
{ Y:=cos(X); }
           end;
 
 
begin
 grDriver :=Detect;
 InitGraph(grDriver, grMode, '..\BGI');
 if GraphResult = grOk then begin
  ClearDevice;
  SetColor(White);
 
  Line(10,GetMaxY div 2,GetMaxX-10,GetMaxY div 2);
Line(GetMaxX-10,GetMaxY div 2, GetMaxX-18,GetMaxY div 2 -5);
  Line(GetMaxX-10,GetMaxY div 2, GetMaxX-18,GetMaxY div 2 +5);
  Line(GetMaxX div 2, 10, GetMaxX div 2,GetMaxY-10);
  Line(GetMaxX div 2,10, GetMaxX div 2 -5,18);
  Line(GetMaxX div 2,10, GetMaxX div 2 +5,18);
 
  OutTextXY(GetMaxX - 20, GetMaxY div 2 + 10,'X');
  OutTextXY(GetMaxX - 300, GetMaxY div 2 + 10,'1');
  OutTextXY(GetMaxX div 2 +10,10,'Y');
  OutTextXY(GetMaxX div 2 +10, GetMaxY div 2 + 10,'0');
 
 
 
 
  SetColor(Green);
  d:=1;
  a:=-(GetMaxX/2)+20;
    repeat
    Line(Round((GetMaxX/2)+a),
         Round((GetMaxY/2)-100 *Y(a)),
         Round((GetMaxX/2)+(a+d)),
         Round((GetMaxY/2)-100*Y((a+d))));
    a:=a+d;
    until a> GetMaxX/2 -20;
 
 
  repeat Delay(1) until KeyPressed;
  CloseGraph;
 
 
 
 
end;
  end.

Добавлено через 4 минуты
Засечки конечно с цифрой внизу

@Puporev · 11.12.2009, 18:24

Изобрази график в Экселе и посмотри какие значения по осям. Такие и подпиши.

@Rayne · 11.12.2009, 18:40

кусок кода для разметки так выглядит :

Pascal
1
2
3
4
5
6
~ 
 for i:= 1 to 60 do
  line(5+i*10,(getmaxy)div(2)-3,5+i*10,(getmaxy)div(2)+3);
  for i:= 1 to 47 do
  line((getmaxx)div(2)+3,15+i*10,(getmaxx)div(2)-3,15+i*10);
~

как по-нормальному расписать числа на них не знаю =\ получается некрасиво

@aidarr · 18.12.2009, 17:37 **[ТС]**

Puporev, да график я видел.но сам принцип не пойму.Может подскажите?

Добавлено через 1 час 0 минут
Puporev, а каков принцип если не трудно скажите пожалуйста.

Новые блоги и статьи Все статьи Все блоги /
Шаблоны и протоколы для создания устойчивых микросервисов ArchitectMsa 19.04.2025 Микросервисы — архитектурный подход, разбивающий сложные приложения на небольшие, независимые компоненты. Вместо монолитного гиганта, система превращается в созвездие небольших взаимодействующих. . .	Изменяемые и неизменяемые типы в Python py-thonny 19.04.2025 Python славится своей гибкостью и интуитивной понятностью, а одна из главных его особенностей — это система типов данных. В этом языке все, включая числа, строки, функции и даже классы, является. . .	Интеграция Hangfire с RabbitMQ в проектах C#.NET stackOverflow 18.04.2025 Разработка современных . NET-приложений часто требует выполнения задач "за кулисами". Это может быть отправка email-уведомлений, генерация отчётов, обработка загруженных файлов или синхронизация. . .	Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики ArchitectMsa 18.04.2025 Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .	Префабы в Unity: Использование, хранение, управление GameUnited 18.04.2025 Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .
RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit) stackOverflow 18.04.2025 Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .	Типы в TypeScript run.dev 18.04.2025 TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .	Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core stackOverflow 18.04.2025 Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .	Коммуникация в реальном времени с SignalR в C# на примере создания чата UnmanagedCoder 17.04.2025 Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .	Реализация CQRS с MediatR на C# .NET stackOverflow 17.04.2025 Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .

@Puporev Почетный модератор 64312 / 47609 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	11.12.2009, 18:24
	Изобрази график в Экселе и посмотри какие значения по осям. Такие и подпиши. 0

@aidarr 0 / 0 / 2 Регистрация: 20.11.2009 Сообщений: 73
	18.12.2009, 17:37 [ТС]
	Puporev, да график я видел.но сам принцип не пойму.Может подскажите? Добавлено через 1 час 0 минут Puporev, а каков принцип если не трудно скажите пожалуйста. 0

Опции темы