Тип обьект "вектор" содержит поля: "вектор, егоразмер и идентификатор в символьном виде", методы:"введение вектора, выведение вектора,вычесление.

@Assign_me_plz · Регистрация: 05.06.2011

Тип обьект "вектор" содержит
поля: "вектор, его размер и идентификатор в символьном виде",
методы:"введение вектора, выведение вектора,вычесление кол-ва елементов, которые превышают данное значение и удаление их"
Реализовать екземпляр данного типа и выполнить над ним все возможные действия.

@Assign_me_plz · 10.06.2011, 00:33 **[ТС]**

Решил, скоро выложу код.

@Assign_me_plz · 16.06.2011, 00:30 **[ТС]**

Pascal

uses crt;
Type mas=array[1..100] of real;
 ob=object
 n:integer;
 x:mas;
 procedure vec_inp;
 procedure vec_outp;
 procedure elements_out;
 end;
 procedure ob.vec_inp;
  var
   i1:integer;
  begin
  writeln('input number of elements');
  readln(n);
  for i1:=1 to n do
  begin
  writeln('X[',i1,']=');
  readln(x[i1]);
  end;
  end;
 procedure ob.vec_outp;
 var
 i1:integer;
 begin
 for i1:=1 to n do
 begin
 write(x[i1]:4:0 );
 write(' ');
 end;
 readln;
 end;
 procedure ob.elements_out;
 var
 i1,i2:integer;
 numb,el:byte;
 begin
 numb:=0;
 writeln('input the element you need:');
 readln(el);
 for i1:=1 to n do
 begin
 if x[i1]>el then begin
 inc(numb);
 for i2:=i1 to n do
 begin
 x[i1]:=x[i2];
  end;
 n:=n-1;
 end;
end;
 writeln('number of elements that bigger then our one is ',numb);
 end;
 
 var
 x:ob;
 a:mas;
 begin
 clrscr;
 writeln('Hello! Im your computer:)');
x.vec_inp;
x.vec_outp;
x.elements_out;
x.vec_outp;
end.

@Assign_me_plz 5 / 5 / 4 Регистрация: 05.06.2011 Сообщений: 40
		1
	Тип обьект "вектор" содержит поля: "вектор, егоразмер и идентификатор в символьном виде", методы:"введение вектора, выведение вектора,вычесление. 05.06.2011, 23:36. Просмотров 918. Ответов 2 Метки нет (Все метки) Тип обьект "вектор" содержит поля: "вектор, его размер и идентификатор в символьном виде", методы:"введение вектора, выведение вектора,вычесление кол-ва елементов, которые превышают данное значение и удаление их" Реализовать екземпляр данного типа и выполнить над ним все возможные действия. 0

@Assign_me_plz 5 / 5 / 4 Регистрация: 05.06.2011 Сообщений: 40
	10.06.2011, 00:33 [ТС]	2
	Решил, скоро выложу код. 0

Опции темы

Тип обьект "вектор" содержит поля: "вектор, егоразмер и идентификатор в символьном виде", методы:"введение вектора, выведение вектора,вычесление.

Решение