Форум: "Начинающим";
Текущий архив: 2008.02.10;
Скачать: [xml.tar.bz2];

Вниз

Очень срочно!!! Заплачу WMZ!!! Нужна помошь!!!   Найти похожие ветки 

← →
Max.66RUS   (2008-01-21 11:45) [0]

Нужно переделать программу из консольного приложения в приложение с формой, кнопочками и т.д. - актуально в ближайшие 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.

---

← →
DVM ©   (2008-01-21 11:48) [1]

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

---

← →
Сергей М. ©   (2008-01-21 11:52) [2]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.02.10;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.042 c