из делфи в паскаль

[muslimka]

здраствуйте! нужна помощь) мне нужно задачу из делфи, вот эту

unit Drob;

interface

type
tDrob=class
private
FChisl: integer;
FZnam: integer;
procedure SetZnam(_Znam:integer);
public
property Chisl: integer read FChisl write FChisl;
property Znam: integer read FZnam write SetZnam;

procedure Stepen(n: integer);
procedure Multi(n: integer);
function Positive(): boolean;
function Show(): string;

constructor Create(); overload;
constructor Create(_Chisl, _Znam: integer); overload;
end;

implementation

uses Dialogs, Math, SysUtils;

function tDrob.Show(): string;
begin
result:=IntToStr(FChisl)+'/'+IntToStr(FZnam)
end;

function tDrob.Positive(): boolean;
begin
result:=FChisl*FZnam>0
end;


procedure tDrob.Stepen(n: integer);
begin
FChisl:=trunc(exp(n*Ln(FChisl)));
FZnam:=trunc(Power(FZnam, n))
end;

procedure tDrob.Multi(n: integer);
begin
FChisl:=n*FChisl;
end;

procedure tDrob.SetZnam(_Znam:integer);
begin
if _Znam=0 then
ShowMessage('Недопустимое значение знаменателя.')
else
FZnam:=_Znam
end;

constructor tDrob.Create();
begin
FChisl:=0;
FZnam:=1;
end;

constructor tDrob.Create(_Chisl, _Znam: integer);
begin
FChisl:=_Chisl;
Znam:=_Znam;
end;

end.

Написать в паскале, только чтоб там она открывалась с помощью цветных окон, вот как здесь:

program a1;
uses crt;
var
ch:char;
begin
textbackground(blue); textcolor(white);
clrscr;GotoXY(32,1);
writeln('Программа а1');
window(3,2,58,12);
textbackground(white); textcolor(black);
clrscr;GotoXY(23,1); write('ввод данных');
window(3,15,58,23);
textbackground(yellow);textcolor(bl ue);
clrscr;GotoXY(18,1);
write('Вывод результатов');
window(62,2,76,12);
textbackground(cyan);textcolor(blac k);
clrscr;GotoXY(5,1);
write('Выполняемая операция');
ch:=readkey;textmode(Co80);
end.

помогите пожалуйста)))

[Son Of Pain]

И что не получается?

[muslimka]

я просто даже не понимаю как это сделать((

[s-andriano]

Проще написать с нуля, чем переделывать.

[muslimka]

а что переделать не получится?

[hon]

Цветные окна в графическом или текстовом режиме?
Напишите или найдите движок.

[Son Of Pain]

Сообщение от muslimka

я просто даже не понимаю как это сделать((

Да, и это печально, наверное.

[s-andriano]

Сообщение от muslimka

а что переделать не получится?

Я этого не говорил.
Но зачем делать сложно, если можно сделать просто?

[muslimka]

(1) 21.03.2013 08:56 от muslimka
в графическом режиме


(2) 21.03.2013 08:58 от muslimka

Сообщение от s-andriano

Я этого не говорил.
Но зачем делать сложно, если можно сделать просто?

тогда помогите)))

(3) 21.03.2013 09:06 от muslimka

Сообщение от Son Of Pain

Да, и это печально, наверное.

печальней не бывает(((




_________________
Не используйте форум как чат - не пишите несколько коротких сообщений подряд!
Есть что добавить - нажимайте кнопку "Правка/Редактировать" на своём крайнем сообщении
и изменяйте, добавляйте....

Прошу учесть на будущее...

Модератор.

[Serge_Bliznykov]

два поста.
ВОТ:

Сообщение от muslimka

в графическом режиме

И ВОТ:

Сообщение от muslimka

Написать в паскале, только чтоб там она открывалась с помощью цветных окон, вот как здесь:

program a1;
uses crt;
var
ch:char;
begin
textbackground(blue); textcolor(white);
clrscr;GotoXY(32,1);
writeln('Программа а1');
window(3,2,58,12);

muslimka, не хочу Вас расстраивать, НО! Либо Вам нужно в графическом режиме, либо так, как Вы привели в примере! Определитесь, что Вам надо! В примере создаются текстовые окошки.