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

Нужно перевести код из Turbo Pascal в Pascal ABC.NET

04.11.2019, 09:32. Просмотров 1330. Ответов 7
Метки нет (Все метки)

Доброго времени суток. На форуме находил похожие темы, но к сожалению так и не смог разобраться. Помогите пожалуйста перевести код из Turbo Pascal в PascalABC. Тут одним GraphABC дело не ограничивается, как я понял. Сама задача звучит так:
Построить семейство одинаковых окружностей, центры которых лежат на вертикально вращающемся отрезке, верхний конец которого закреплен.

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
uses crt,graph;
 
var drive,mode,x,y,i,t,y0:integer;
 
begin
 
drive:=detect;
 
initgraph(drive,mode,'c:\tp\bgi');
 
setfillstyle(1,1);
 
floodfill(1,4,1);
 
t:=4;
 
y0:=10;
 
setcolor(16);
 
for i:=1 to 150 do
 
begin
 
t:=t+2;
 
y0:=y0+3;
 
x:=getmaxx div 2 + trunc(cos(t/10)*i);
 
y:=y0 – trunc(sin(t/10)*i);
 
setfillstyle(1,14);
 
fillellipse(x,y,20,20);
 
delay(100);
 
end;
 
repeat
 
until keypressed;
 
closegraph;
 
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.11.2019, 09:32
Ответы с готовыми решениями:

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

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

Можно как-то переделать код из Turbo Pascal чтобы он работал в pascal abc.net?
Сделайте пожалуйста, я просто не вникаю uses Graph, Crt; var grDriver: integer; grMode:...

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

7
1467 / 815 / 357
Регистрация: 07.04.2017
Сообщений: 3,313
04.11.2019, 09:39 2
Цитата Сообщение от organiccamel Посмотреть сообщение
вертикально вращающемся
Это как? Речь же про 2D, как в нём "вертикально" вращать?
0
0 / 0 / 0
Регистрация: 04.11.2019
Сообщений: 6
04.11.2019, 10:27  [ТС] 3
Как я понял, они имеют ввиду маятник. Собственно, тоже не особо понимаю что мне накалякали господа преподаватели
0
1467 / 815 / 357
Регистрация: 07.04.2017
Сообщений: 3,313
04.11.2019, 10:40 4
А отсутствие отступов и пустые строчки после каждой строчки текста - тоже они накалякали?

Добавлено через 5 минут
Ну, может конечно это потому что я спать хочу, но даже если всмотреться - по этому говнокоду с кучей магических чисел не очень понятно шо воно делает.
Короче узнавайте у преподавателей нормальное задание, так чтоб вы сами хотя бы могли объяснить суть задания.
0
Alvin Seville
332 / 265 / 131
Регистрация: 25.07.2014
Сообщений: 4,537
Записей в блоге: 9
04.11.2019, 10:43 5
Цитата Сообщение от organiccamel Посмотреть сообщение
в PascalABC
В названии темы у Вас сказано иное. Всё-таки, на какой язык Вы хотите увидеть перевод кода: PascalABC/PascalABC.NET? Если на первый, то выбран неверный раздел.
0
Модератор
62232 / 46523 / 32074
Регистрация: 18.05.2008
Сообщений: 112,460
04.11.2019, 10:55 6
Именно это нужно получить?
0
Миниатюры
Нужно перевести код из Turbo Pascal в Pascal ABC.NET  
4141 / 1956 / 2052
Регистрация: 10.12.2014
Сообщений: 7,517
04.11.2019, 11:00 7
Может имелось в виду это?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses GraphABC;
const r = 200; rc = 4; d = 0.1;
begin
  Line(Window.Center.X-rc,Window.Center.Y,Window.Center.X+rc,Window.Center.Y);
  Line(Window.Center.X,Window.Center.Y-rc,Window.Center.X,Window.Center.Y+rc);
  Pen.Color := clBlue;
  Brush.Color := clRed;
  var angle := 0.0;
  repeat
    Circle(Window.Center.X + Round(Cos(angle)*r), Window.Center.Y - Round(Sin(angle)*r), rc);
    angle += d;
  until angle > 2*pi;
end.
0
Модератор
62232 / 46523 / 32074
Регистрация: 18.05.2008
Сообщений: 112,460
04.11.2019, 11:10 8
Лучший ответ Сообщение было отмечено organiccamel как решение

Решение

Если как написал я, то вот в любом АВС.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses graphABC;
var x,y,i,t,y0:integer;
begin
setwindowsize(400,650);
centerwindow;
clearwindow(clBlue);
t:=-4;
y0:=10;
setpencolor(clBlack);
setbrushcolor(clYellow);
for i:=1 to 150 do
 begin
  t:=t+2;
  y0:=y0+3;
  x:=windowwidth div 2 + trunc(cos(t/10)*i);
  y:=y0-trunc(sin(t/10)*i);
  circle(x,y,20);
  sleep(100);
 end;
 
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.11.2019, 11:10

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

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

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

Перевести код с с++ на Pascal.abc.net
Ребят , тема такая. Я учусь в 9 классе и уже несколько знаю с++( да, да, в 9 и с++, также...

Нужно переделать код с С ++ на Pascal ABC NET
int main() { setlocale (LC_ALL, "RUS"); int s,max,i,j,N,M,a; s=0; max=0; cout<<"N=";...


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

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

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