Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 11.11.2007, 17:58   #1
RustreX
Новичок
Джуниор
 
Регистрация: 24.10.2007
Сообщений: 2
По умолчанию «Окно+символ». Создать класс, представляющий окно в текстовом режиме.

Вообщем тут такая проблема: дали написать такую прогу, я написал её в дельфи, но препод сказал что нужно написать в паскале (или в консольном режиме Delphi, т.к. смысл задание сделать графику в текстовом режиме.). но в паскале у меня не пашет GoToXY, пытаюсь подключить WinCrt.TPU, но он его не находит. И то;е самое в консольном режиме в Delphi 7... помогите плиз есть у кого нить такая программа, или еслинетрудно напиши пожалуйста!

Вот задание:
«Окно+символ». Создать класс, представляющий окно в текстовом режиме. Основным методом класса должна быть процедура изображения окна и выводом в центре окна заданного символа. Окно должно отображаться в заданном пользовате-лем месте (координаты левого верхнего угла окна) и с заданными размерами. В ре-зультате работы программы на экране должно быть изображено окно и в центре окна заданный символ.

Т.е. вводятся положения окна, размеры окна и символ который нужно расположить в середине этого окна.
выглядит это примерно так:

|-..-|
...@..
|_.._|

Помогите пожалуйста! прога нужна до вторника!!! Спасибо огромное всем откликнувшимся!
RustreX вне форума Ответить с цитированием
Старый 11.11.2007, 19:28   #2
RustreX
Новичок
Джуниор
 
Регистрация: 24.10.2007
Сообщений: 2
По умолчанию

вот попрбвоал написать ща на делф в консольном режиме но он не хочет видеть GoToXY =(

Цитата:
program Project1;
type
Okni = class
private
x,y,s,v,sim: string;
public
constructor create(x1,y1,s1,v1,sim1:string);
function okno():string;
function simvol():string;

end;


constructor Okni.create(x1,y1,s1,v1,sim1:string );
begin
x:=x1;
y:=y1;
s:=s1;
v:=v1;
sim:=sim1;
end;

function Okni.okno():string;
begin
write('vvedite x=');
readln(x);
write('vvedite y=');
readln(y);
write('vvedite s=');
readln(s);
write('vvedite v=');
readln(v);
GoToXY(x,y); writeln('|-');
GoToXY(x+s,y); writeln('-|');
GoToXY(x,y+v); writeln('|_');
GoToXY(x+s,y+v); writeln('_|');
end;

Function Okni.simvol():string;
begin
write('vvedite simvol=');
readln(sim);
GoToXY(x+x+s,y+y+v); writeln(sim);
end;
{$APPTYPE CONSOLE}

uses
SysUtils;
var
fr,sm: okni;

begin
clrscr;
fr:=okni.create(x1,y1,s1,v1,sim1);
fr.okno;
fr.simvol;
readkey;
end.
RustreX вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Окно Артэс Win Api 1 13.06.2008 19:45
Меню(Графика в текстовом режиме) winnix Общие вопросы C/C++ 3 14.05.2008 23:32
Создать окно на рабочем столе AidarBik Win Api 19 09.02.2008 17:47
Окно из DLL SunKnight Общие вопросы Delphi 1 16.12.2007 03:36
Создать окно со списком и кнопкой!!! Versifikator Microsoft Office Excel 2 07.12.2007 17:22


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840