Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Pon4is
0 / 0 / 0
Регистрация: 11.11.2015
Сообщений: 12
1

Можно как-то переделать код из Turbo Pascal чтобы он работал в pascal abc.net?

14.12.2015, 17:15. Просмотров 336. Ответов 1
Метки нет (Все метки)

Сделайте пожалуйста, я просто не вникаю

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
uses Graph, Crt;
var
  grDriver: integer;
  grMode: integer;
  ErrCode: integer;
  x,y,y0,a,b: integer;
  procedure more(a,b:integer);
begin
   moveto(0,y0);
   setcolor(blue);
     for a:=0 to 680 do
       begin
         b:=y0-round(sin(a*pi/180)*30);
         lineto(a,b);
 end;
end;
 begin
  grDriver := Detect;
  InitGraph(grDriver, grMode, '..\BGI');
  ErrCode := GraphResult;
  y0 := 250;
  if ErrCode = grOk then
  begin
    x:=600;
    while x>=0 do
     begin
      cleardevice;
      more(a,b);
      setcolor(white);
      y:=y0-40-round(sin(x*pi/180)*30);
      MoveTo(x - 40, y + 20);
      LineTo(x - 20, y + 40);
      LineTo(x + 20, y + 40);
      LineTo(x + 40, y + 20);
      LineTo(x - 40, y + 20);
      MoveTo(x + 15, y + 20);
      LineTo(x + 15, y - 40);
      LineTo(x - 20, y + 20);
      LineTo(x + 15, y + 20);
      delay(100); 
      x:=x-2;
    end;
  end
  else Writeln('Graphics error: ', GraphErrorMsg(ErrCode));
 Settextstyle(0,0,3);
 cleardevice;
 setcolor(red);
 OuttextXY(200,240,'Rejs zavershen!');
 readln;
 CloseGraph;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.12.2015, 17:15
Ответы с готовыми решениями:

Нужно переделать программу,написанную на Turbo Pascal в ту,чтобы работала на Pascal ABC.NET пожалуйста
program lab3; uses Crt; const Output_File_Name = 'output.txt'; { ima faila dlya vivoda...

Нужно переделать программу,написанную на Turbo Pascal в ту,чтобы работала на Pascal ABC.NET пожалуйста
program lab2; uses Crt; const Nmax = 15; { MAX element mnozestva A } type T =...

Перевести код Pascal turbo в abc.net
Помогите перевести код Pascal turbo в abc.net, сам не могу так как не обладаю нужными знаниями. ...

Нужно перевести программу с Turbo Pascal в Pascal ABC.NET
Вот есть программный код , но он для турбо паскаля, помогите перевести его в АБС.NET Program...

Перевод программы с Turbo Pascal на Pascal ABC.NET
написала программу в паскаль турбо на рабочем компьютере. перенесла в паскаль авсNet так как дома...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4017 / 2948 / 3689
Регистрация: 05.06.2014
Сообщений: 14,625
14.12.2015, 17:32 2
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
uses
  GraphABC;
 
var
  x, y, y0, a, b: integer;
 
procedure more(a, b: integer);
begin
  moveto(0, y0);
  setpencolor(clblue);
  for a := 0 to 680 do
  begin
    b := y0 - round(sin(a * pi / 180) * 30);
    lineto(a, b);
  end;
end;
 
begin
  clearWindow(clBlack);
  LockDrawing;
  y0 := 250;
  x := 600;
  while x >= 0 do
  begin
    more(a, b);
    setpencolor(clwhite);
    y := y0 - 40 - round(sin(x * pi / 180) * 30);
    MoveTo(x - 40, y + 20);
    LineTo(x - 20, y + 40);
    LineTo(x + 20, y + 40);
    LineTo(x + 40, y + 20);
    LineTo(x - 40, y + 20);
    MoveTo(x + 15, y + 20);
    LineTo(x + 15, y - 40);
    LineTo(x - 20, y + 20);
    LineTo(x + 15, y + 20);
    x := x - 2;
    Redraw;
    Sleep(1);
    
    ClearWindow(clBlack);
  end;
  
  SetFontSize(14);
  setpencolor(clred);
  textOut(200, 240, 'Rejs zavershen!');
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.12.2015, 17:32

Перевод из turbo pascal в abc.net
Помогите адаптировать программу для abc.net из turbo pascal Program transportnaj_zadatsha;...

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

Различия трансляторов Pascal ABC.Net и Turbo/Borland Pascal
Пожалуйста, объясните различия между компиляторами Pascal ABC.Net и Turbo/Borland Pascal


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

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

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