| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Очень срочно!!! Заплачу WMZ!!! Нужна помошь!!!

Max.66RUS ©   (2008-01-21 11:45:00) 

Нужно переделать программу из консольного приложения в приложение с формой, кнопочками и т.д. - актуально в ближайшие 5 часов. Программа простейшая. Тому кто сделает заплачу вмз. моя аська 727704. Вот код:

{ Данноя программа позволяет хранить данные о трех книгах и 2 журналах.
данные вводятся с клавиатуры.}

program ca;
{$APPTYPE CONSOLE}
uses
 SysUtils;

type book=object
name:string[20];
author:string[10];
year:integer;
public
constructor Create;
procedure vvod; virtual;
{процедура ввода данных о книге виртуальная.
Об этом указывает служебное слово Virtual}
// procedure search;
end;

magazine=object(book)
number:byte;
public
constructor create;
procedure vvod;   virtual;
procedure search(t:byte);
end;

newspaper=object(magazine)
day:integer;
public
constructor create;
procedure vvod; virtual;
procedure search(t:byte; y:integer);
end;

constructor book.create;
begin
name:='';
author:='';
year:=1990;
end;

constructor magazine.create;
begin
inherited create;
number:=0;
end;

constructor newspaper.create;
begin
inherited create;
day:=0;
end;

procedure book.vvod;
begin
writeln('Input name');
readln(name);
writeln('Input author');
readln(author);
writeln('Input year of Publish');
readln(year);
writeln('***************************************');
end;

//Переопределяем процедуру vvod для класса Журнал
procedure magazine.vvod;
  begin
{    writeln('Input name');
   readln(name);
   writeln('Input author');
   readln(author);
   writeln('Input year of Publish');
   readln(year);}
   book.vvod;
   writeln('Input number');
   readln(number);
   writeln('***************************************');

  end;

//Переопределяем процедуру vvod для класса Газета
procedure newspaper.vvod;
  begin
  magazine.vvod;
  writeln('Input day of Publish'); readln(day);
  end;

procedure magazine.search(t:byte);
  begin
  if t=number then writeln(name,'; ',author,'; ',year,'; ',number);
  end;

procedure newspaper.search(t:byte; y:integer);
  begin
  if (t=number) and (y=year) then
  writeln(name,'; ',author,'; ',year,'; ',number,'; ',day);
  end;

//Начало основной программы
  var
   kniga:array [1..3] of book;
   journal:array [1..3] of magazine;
   newsp:array [1..3] of newspaper;
   i,t:byte; y:integer;

begin

{for i:=1 to 3 do
 begin
   kniga[i].create;
   kniga[i].vvod;
 end;}
for i:=1 to 3 do
 begin
   journal[i].create;
   journal[i].vvod;
 end;
//Поиск
writeln('Input search number'); readln(t);
for i:=1 to 3 do journal[i].search(t);

for i:=1 to 3 do
 begin
   newsp[i].create;
   newsp[i].vvod;
 end;
//Поиск
writeln('Input search number'); readln(t);
writeln('Input search year'); readln(y);
for i:=1 to 3 do newsp[i].search(t,y);
readln;
end.

---

Сергей М.   (2008-01-21 11:52:00) [1]

Можно и переделать. Но WMZ вперед)

---

DVM   (2008-01-21 11:48:00) [2]

Ты заплатишь 1 WMZ ?

---

Наверх