Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
3 / 3 / 0
Регистрация: 10.10.2010
Сообщений: 68
1

Не найден модуль Graph при переводе кода с Pascal на PascalABC.NET

20.01.2014, 19:29. Просмотров 1391. Ответов 4
Метки нет (Все метки)

Доброго времени суток всем, помогите пожалуйста перевести код с паскаля на паскальАВС, или что делать он выдает ошибку, модуль граф не найден.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Uses crt, graph;
Const n=200; h=1; dt=0.02;
var i, j, DV, MV, EC : integer;
eta,xi,xi1,xi2 : array[1..N] of real; t, b, vv : real;
BEGIN DV:=Detect; InitGraph(DV, MV, 'c:\bp\bgi');
   Repeat t:=t+dt;
   If t<6.28 then xi1[1]:=2*sin(t) else xi1[1]:=0;
   For i:=2 to N-1 do begin
       If i<N/2 then vv:=8 else vv:=3;
       xi2[i]:=2*xi1[i]-xi[i]+vv*(xi1[i-1]-2*xi1[i]+xi1[i+1])/h/h*dt*dt; end;
   For i:=2 to N-1 do
   begin xi[i]:=xi1[i]; xi1[i]:=xi2[i]; end;
       setcolor(black);
   For i:=1 to N do circle(i*3-3, 240-round(xi[i-1]*50),2);
       setcolor(white);
   For i:=1 to N do circle(i*3-3, 240-round(xi1[i-1]*50),2);
   until KeyPressed; CloseGraph;
END.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2014, 19:29
Ответы с готовыми решениями:

При переводе с PascalABC на Turbo Pascal возникли ошибки (работа с файлами)
файл - text.txt: the word is mine of foo oof the end the word is second of foo oof the end the...

Я создал модуль в Turbo Pascal 7.0, как использовать его в PascalABC.NET?
Как подключить этот модуль, в какую папку сохранить, я вот смотрю в структуру каталогов...

Модуль 'Graph' не найден
uses graph, crt; var gd,gm:integer; color:byte; begin gd:=detected; initgraph(gd,gm,'');...

Модуль graph не найден
Модуль graph стандартный, а если выдается ошибка, что &quot;Модуль graph не найден.&quot; Как сделать, чтобы...

__________________
4
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30896 / 20213 / 7881
Регистрация: 22.10.2011
Сообщений: 35,095
Записей в блоге: 6
20.01.2014, 19:52 2
Здесь нет модуля Graph:
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
uses
  graphabc;
 
var
  stop: boolean;
 
procedure MyKeyPress(ch: char);
begin
  stop := true;
end;
 
const
  n = 200; h = 1; dt = 0.02;
 
var
  i, j, DV, MV, EC: integer;
  eta, xi, xi1, xi2: array[1..N] of real; t, b, vv: real;
 
begin
  LockDrawing;
  stop := false;
  repeat 
    window.Clear;
    t := t + dt;
    if t < 6.28 then xi1[1] := 2 * sin(t) else xi1[1] := 0;
    for i := 2 to N - 1 do 
    begin
      if i < N / 2 then vv := 8 else vv := 3;
      xi2[i] := 2 * xi1[i] - xi[i] + vv * (xi1[i - 1] - 2 * xi1[i] + xi1[i + 1]) / h / h * dt * dt; 
    end;
    
    for i := 2 to N - 1 do
    begin
      xi[i] := xi1[i]; xi1[i] := xi2[i]; 
    end;
    Pen.Color := clblack;
    for i := 2 to N do 
      circle(i * 3 - 3, 240 - round(xi1[i - 1] * 50), 2);
    redraw;
    sleep(1);
    OnKeyPress += MyKeyPress;
  until stop;
end.
1
3 / 3 / 0
Регистрация: 10.10.2010
Сообщений: 68
20.01.2014, 20:06  [ТС] 3
Цитата Сообщение от UI Посмотреть сообщение
Здесь нет модуля Graph:
Премного Вам благодарен, только выдает ошибку "неизвестный идентификатор window". Погуглил, ничего не нашел. извините если не понимаю простых истин)
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30896 / 20213 / 7881
Регистрация: 22.10.2011
Сообщений: 35,095
Записей в блоге: 6
20.01.2014, 20:07 4
У тебя точно PascalABC.NET?
1
3 / 3 / 0
Регистрация: 10.10.2010
Сообщений: 68
20.01.2014, 20:34  [ТС] 5
Цитата Сообщение от UI Посмотреть сообщение
У тебя точно PascalABC.NET?
ААА заработала!!!!
точно, снес имеющуюся паскаль(был АBC скорее без всей библиотеки или еще без чего-то) скачал и установил новый с нуля и пошла!
Спасибо еще раз о всемогущий UI. Аврал полный времени совсем нет.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.01.2014, 20:34

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница?
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo Pascal, Pascal ABC,...

Ошибка при написании кода на C# в PascalABC.Net
using System; namespace HelloWorld { class Hello { static void Main() ...

Модуль Graph в Turbo Pascal
Вовремя моей роботы с графикой при компиляции высвечивается ошибка, типа нет файла Graph.tpu....

Нужна помощь в переводе кода программы из VB.NET в VB 6.0
Здравствуйте.У меня есть код к задаче (решения задачи методом Ньютона ) только для VB.NET,а в 6.0...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.