задачи на векторы

[xyz-xyz]

@TinMan: две задачи правильно из четырёх это неплохо;-)

@nadya88: Надежда, у Вас же экзамен - чем Вам поможет готовая контрольная?

[TinMan]

Сообщение от xyz-xyz

@TinMan: две задачи правильно из четырёх это неплохо;-)

Спасибо, xyz-xyz. Сейчас подправлю.
2.

  for i:=1 to n do
    if a[i]=0 then b[i]:= 1 else b[i]:= round(exp(ln(abs(a[i])+0.5)/ln(10)))+1;

3.

  j:=0;
  for i:=1 to n do
    if (a[i]=6)or(a[i]=28)or(a[i]=496)or(a[i]=8128) then dec(n) else begin
      inc(j);
      if i<>j then a[j]:= a[i]
    end;

Когда пишешь прогу - отладка все выявит..
Когда пишешь сразу в ответ - вся надежда на xyz-xyz!
+1 ))

[nadya88]

помогите, пожалуйста кто нибудь

[Serge_Bliznykov]

round(ln(abs(a[i])+0.5)/ln(10))+1

...

round(exp(ln(abs(a[i])+0.5)/ln(10)))+1

или я чего-то не понимаю, или одно из двух...
для того, чтобы найти количество цифр в числе ни первая, ни тем более вторая формулы НЕ ГОДЯТСЯ!

тогда уже

  trunc(Ln(abs(x)+0.5)/ln(10))+1

или я бы предложил воспользоваться ЛЮБОЙ из нижеприведённых функций:

{определить число разрядов числа}

function Lg(x: double): double;
 begin
   Lg := ln(x) / ln(10);
 end;

function GetNumLenByLogarithm(N : longint): integer;
begin
  if N<0 then GetNumLenByLogarithm := -1
  else
     if N=0 then GetNumLenByLogarithm := 1
     else GetNumLenByLogarithm := trunc(Lg(n))+1;
end;

function GetNumLenByString(N : longint): integer;
var S : string;
begin
  Str(N:1, s);
  GetNumLenByString := Length(s);
end;


function GetNumLenByDiv(N : longint): integer;
var K : integer;
begin
  if N<0 then GetNumLenByDiv := -1
  else begin
    K := 1;
    while N>9 do begin
      inc(K);
      N := N div 10;
    end;
    GetNumLenByDiv := K;
  end;
end;

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

помогите, пожалуйста кто нибудь

nadya88, а чем помочь то?! Вам же уже всё сделали!
Решения есть. Начало программы у Вас тоже есть. скомбинируйте одно с другим - получите ПОЛНЫЙ код.
неужели всё плохо настолько, что Вы даже не понимаете, какая строчка кода ДЛЯ ЧЕГО предназначена и ЧТО именно делает ?!

[Dvoishnik]

задача 2
вроде так не проверял)

const
  m= 100;

var
  b,a: array[1..m] of integer;
  i,n: byte;
  

begin
//воод размерности масива
  write('enter total number of elements: ');
  readln(n);
//ввод элементов масива
  for i:=1 to n do begin //цикл от 1 до n, i увеличеваеться на 1
    write('a[',i,'] = '); //вывод сообщения
    readln(a[i]); //ввод элемента массива с номером i
  end;
//обрабодка данная TimMan
for i:=1 to n do
    if a[i]=0 then b[i]:= 1 else b[i]:= round(ln(abs(a[i])+0.5)/ln(10))+1;
//вывод данных
for i:=1 to n do 
  write(' ',b[i]);
  readln;
end.

[nadya88]

помогите, пожалуйста кто нибудь

[nadya88]

ой сорри, на нервной почве только одно пишется))))

[nadya88]

xyz-xyz мне допуск к тестированию нужен.Надо контрольную сделать.

[nadya88]

Serge_Bliznykov
Да Сергей всё именно так плохо, я бы даже сказала ужасно.Не понимаю зачем экономисту знать паскаль((((
Вот если не трудно,можно скомбинировать и выставить готовый вариант. Вам не сложно, а я буду мозг ломать над этим. Пожалуйста

[nadya88]

спасибо большое)))