Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 06.10.2015
Сообщений: 2
1

Перевод кода с PascalABC в код Turbo Pascal

03.11.2015, 21:55. Просмотров 753. Ответов 2
Метки нет (Все метки)


Прошу помочь в переводе кода с PascalABC в код Turbo Pascal.Заранее благодарю за помощь.

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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
// PARENT CLASS
type
  fclass = class
  public
  y,c,k,z:real;
  constructor create(Cin,Kin,Zin:real);
  //function count(): real;
  end;
//______constructor
constructor fclass.create(Cin, Kin, Zin: real);
begin
  c := Cin;
  k := Kin;
  z := Zin;  
  y := Cin - (Kin * Zin);
end;
 
// 1ST SON CLASS
type
  impfclass1 = class(fclass)
  public 
    y1, a: real;
    constructor create(father: fclass; Ain: real);
  end;
//_____constructor
constructor impfclass1.create(father: fclass; Ain: real);
begin
  c := father.c;
  k := father.k;
  z := father.z;  
  y := father.y;
  y1 := y - Ain * cos(z);
end;
 
// 2ND SON CLASS
type
  impfclass2 = class(fclass)
  public 
    y2, b: real;
    constructor create(father: fclass; Bin: real);
4
  end;
//_____constructor
constructor impfclass2.create(father: fclass; Bin: real);
begin
  c := father.c;
  k := father.k;
  z := father.z;  
  y := father.y;
  y2 := y - Bin * (1 - (1 / exp(z)));
end;
 
var
  parent: fclass;
  son1: impfclass1;
  son2: impfclass2;
 
var
  c, k, z, a, b: real;
 
begin
  
  
  writeln('Ввести C, K для родителя');
  read(c, k);
  
  parent := new fclass(c, k, z);
  
  write('Ввести А для подкласса 1:: ');
  read(a);
  
  son1 := new impfclass1(parent, a);
  
  write('Ввести B для подкласса 2:: ');
  read(b);
  
  son2 := new impfclass2(parent, b);
  
  while(parent .z <= 20) do 
  begin
    son1 := new impfclass1(parent, a);
    son2 := new impfclass2(parent, b);
    
    writeln('Y1 ', son1.y1:8:4);
    writeln('Y2 ', son2.y2:8:4);
5
    writeln();
    
    parent.z += 0.5;
  end;
  
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.11.2015, 21:55
Ответы с готовыми решениями:

Перевод из turbo Pascal в PascalABC
Здравствуйте. Я не очень силен в программировании и перевод занимает долгое время. Очень сильно...

Перевод из turbo Pascal в PascalABC.NET
Здраствуйте. Буду признателен, если поможете переделать программу, созданную в turbo Pascal, под...

Перевод с Turbo Pascal на PascalABC.NET
господа, можете помочь? у меня тут программа написана на языке турбо паскаль. пожалуйста переводите...

Перевести код программы с Turbo Pascal в PascalABC
Помогите. Срочно необходимо. Буду очень признателен Uses Graph,Crt; const MaxShar=10; type...

2
Модератор
62900 / 46930 / 32344
Регистрация: 18.05.2008
Сообщений: 113,713
04.11.2015, 09:46 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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
uses crt;
{ PARENT CLASS}
type
  fclass = object
  public
  y,c,k,z:real;
  constructor create(Cin,Kin,Zin:real);
  {function count(): real;}
  end;
{______constructor}
constructor fclass.create(Cin, Kin, Zin: real);
begin
  c := Cin;
  k := Kin;
  z := Zin;
  y := Cin - (Kin * Zin);
end;
 
{ 1ST SON CLASS}
type
  impfclass1 = object(fclass)
  public
    y1, a: real;
    constructor create(father: fclass; Ain: real);
  end;
{_____constructor}
constructor impfclass1.create(father: fclass; Ain: real);
begin
  c := father.c;
  k := father.k;
  z := father.z;
  y := father.y;
  y1 := y - Ain * cos(z);
end;
 
{ 2ND SON CLASS}
type
  impfclass2 = object(fclass)
  public
    y2, b: real;
    constructor create(father: fclass; Bin: real);
  end;
{_____constructor}
constructor impfclass2.create(father: fclass; Bin: real);
begin
  c := father.c;
  k := father.k;
  z := father.z;
  y := father.y;
  y2 := y - Bin * (1 - (1 / exp(z)));
end;
 
var
  parent: fclass;
  son1: impfclass1;
  son2: impfclass2;
  c, k, z, a, b: real;
begin
  clrscr;
 
  writeln('‚ўҐбвЁ C, K ¤«п தЁвҐ«п');
  readln(c, k);
  parent.Create(c, k, z);
 
  write('‚ўҐбвЁ Ђ ¤«п Ї®¤Є«*бб* 1:: ');
  readln(a);
  son1.Create(parent, a);
 
  write('‚ўҐбвЁ B ¤«п Ї®¤Є«*бб* 2:: ');
  readln(b);
  son2.Create(parent, b);
 
  while(parent.z <= 20) do
   begin
    son1.Create(parent, a);
    son2.Create(parent, b);
    writeln('Y1 ', son1.y1:8:4);
    writeln('Y2 ', son2.y2:8:4);
    writeln;
    parent.z:=parent.z+0.5;
  end;
 readln;
end.
0
0 / 0 / 0
Регистрация: 06.10.2015
Сообщений: 2
04.11.2015, 17:47  [ТС] 3
Спасибо большое за помощь.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.11.2015, 17:47

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

Переделать код программы из Turbo Pascal в PascalABC
Ребят может кто-нибудь помочь пожалуйста из PascalABC.NET в PascalABC переделать код программы и...

Перевод кода с Turbo Pascal
нужна помощь с переработкой кода из ТурбоПаскаль в ПаскальАБС. тут используеться метод плавающего...

Перевод кода c++ в код PascalABC
Здравствуйте, Помогите перевести код с C++ на PascalABC. Не помню уже его. #include &lt;iostream&gt;...

Перевод кода из C++ в код PascalABC
Помогите, пожалуйста, перевести код из C++ в код Pascal: #include &lt;cmath&gt; #include &lt;iostream&gt;...


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

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

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