Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
rob777
1 / 1 / 0
Регистрация: 08.12.2011
Сообщений: 78
#1

Код из турбо паскаля, запустить на паскале abc - Pascal ABC

23.03.2012, 17:41. Просмотров 991. Ответов 6
Метки нет (Все метки)

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
uses graph;
var
d,m:integer;
x,y,cx,cy,wx,wy,theta,q,n,r:real;
i:longint;
begin
d:=detect;
initgraph(d,m,'c:\bp\bgi');
x:=getmaxx;
y:=getmaxy;
for i:=1 to 100000 do
    begin
 cx:=sin(x)/cos(x);
 cy:=x;
 wx:=x-cx;
 wy:=y-cy;
  if wx>0 then theta:=arctan(wy/wx);
  if wx<0 then theta:=pi+arctan(wy/wx);
  if wx=0 then theta:=pi/2;
    theta:=theta/2;
      r:=sqrt(sqr(wx+sqr(wy)));
  if random>0.5 then
    r:=sqrt(r)
     else r:=-sqrt(R);
x:=r*cos(theta);
y:=r*sin(theta);
q:=-5+x*100+getmaxx/2;
n:=y*100+getmaxy/2;
putpixel(trunc(Q),trunc(n),13);
end;
readln;
closegraph;
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.03.2012, 17:41
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Код из турбо паскаля, запустить на паскале abc (Pascal ABC):

Нужно перевести из турбо паскаля - Pascal ABC - Pascal ABC
uses graph; var mx,my:real; x0,y0,grD,grM,i,k:integer; s:string; begin grD:=detect; initgraph(grD,grM,''); X0:=getmaxX div 2;...

Нужно перевести из турбо паскаля - Pascal ABC
Program aero; uses crt,graph; const xp0=-2;xp1=0;yp0=-1;yp1=1; xs0=40;xs1=600;ys0=440;ys1=40; Var h,x,y,xx,yy:real; ...

Перевод из турбо паскаля в абс - Pascal ABC
переведите пожалуйста из турбо паскаля в абс uses crt; const n=10; var x:array of integer; ...

написать программы для Турбо паскаля - Pascal
Надо написать две программы для расчета таблиц.Первая по проще должна быть,а вторая по сути вроде такая же.Подскажите вообще как писать...

Переделать программу из турбо паскаля под АВС - Pascal ABC
Uses crt, graph; var d,m,i:integer; x,y,a,rx,ry,color:integer; begin initgraph(d,m,''); randomize; ...

Разработать справочную систему по стандартным функциям Турбо Паскаля - Pascal ABC
Разработать справочную систему по стандартным функциям Турбо Паскаля

6
КонецСвета
Почетный модератор
7915 / 3885 / 940
Регистрация: 30.10.2011
Сообщений: 5,379
23.03.2012, 17:46 #2
rob777, если для PascalABC (не NET), то как-то так (наверно):
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
uses graphabc;
var
d,m:integer;
x,y,cx,cy,wx,wy,theta,q,n,r:real;
i:longint;
begin
x:=500;
y:=300;
for i:=1 to 100000 do
    begin
 cx:=sin(x)/cos(x);
 cy:=x;
 wx:=x-cx;
 wy:=y-cy;
  if wx>0 then theta:=arctan(wy/wx);
  if wx<0 then theta:=pi+arctan(wy/wx);
  if wx=0 then theta:=pi/2;
    theta:=theta/2;
      r:=sqrt(sqr(wx+sqr(wy)));
  if random>0.5 then
    r:=sqrt(r)
     else r:=-sqrt(R);
x:=r*cos(theta);
y:=r*sin(theta);
q:=-5+x*100+500/2;
n:=y*100+300/2;
putpixel(trunc(Q),trunc(n),13);
end;
end.
а задача - какая?
1
rob777
1 / 1 / 0
Регистрация: 08.12.2011
Сообщений: 78
24.03.2012, 15:16  [ТС] #3
Спасибо, правда не понятно все-таки что-то. я откопал папку со старыми программами(решил освежить знания в паскале), вроде это были часы, но что-то не похоже. в любом случае спасибо
0
Puporev
Модератор
52415 / 40262 / 13597
Регистрация: 18.05.2008
Сообщений: 93,076
24.03.2012, 20:22 #4
Это что-то типа фрактала, только строку 19 нужно писать так.
Pascal
1
 r:=sqrt(sqr(wx)+sqr(wy));
1
КонецСвета
Почетный модератор
7915 / 3885 / 940
Регистрация: 30.10.2011
Сообщений: 5,379
24.03.2012, 21:17 #5
Puporev, спасибо, мастер... мне и в голову не пришло...
0
Puporev
Модератор
52415 / 40262 / 13597
Регистрация: 18.05.2008
Сообщений: 93,076
24.03.2012, 21:19 #6
Вычисление расстояния...
0
rob777
1 / 1 / 0
Регистрация: 08.12.2011
Сообщений: 78
25.03.2012, 14:41  [ТС] #7
Я бы так и не вспомнил),спасибо, Puporev!
0
25.03.2012, 14:41
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.03.2012, 14:41
Привет! Вот еще темы с ответами:

122 ошибка в турбо паскале,на что исправить? - Pascal ABC
var x, y, z: real; begin readln(x); if x &gt; -0.5 then y := 1 + x / sqrt(x * (sin(x) / cos(x))) else ln(abs((x * x * x * x...

Ищу книжку Профессиональное программирование на Турбо Паскале - Pascal
Помогите найти эту книжку в электронном формате Файсман А.N. Профессиональное программирование на Турбо Паскале Порекомендовали...

Как Graph ABC запустить в процедуре? - Pascal ABC
Имеется меню с пунктами, в которых нужно выбрать 3 действия, за которыми идут еще процедуры с действиями. Но в при добавления graph abc не...

Почему Pascal ABC не читает файлы (программы паскаля ) IDE глючит? Есть альтернатива? - Pascal
ну например: var f : text; s : string; begin assign(f, 'start'); reset(f); while eof(f) do begin readln(f, s);


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

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

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