Программирование операций обработки одномерных массивов

Sacred09 · 19.01.2011, 09:12

Подскажите, пожалуйста, ответить на вопрос:
Вычислить разность векторов А(N) и B(N).

PHP код:


			
uses crt; 

const n=10; 

var a: array[1..n] of char; 

    m,i,m_d:integer; 

begin 

  clrscr; 

  write('введите число элементов массива <=10 -'); 

  readln(m);  

  writeln('введите элементы массива неболее 1 символа'); 

  for i:=1 to m do  

   begin 

    write ('a[',i,']='); 

    readln (a[i]); 

   end; 

   writeln('контрольный вывод массива'); 

    for i:=1 to m do write ('a[',i,']=',a[i],'  '); 

   writeln;  

   write('введите номер элемент массива для удаления -'); 

   readln(m_d); 

    for i:=m_d to m-1 do a[i]:=a[i+1]; 

   writeln('итоговый вывод массива'); 

   for i:=1 to m-1 do write ('a[',i,']=',a[i],'  '); 

   readkey; 

end.

Vladimir_S · 19.01.2011, 09:25

А, собственно, какое имеет отношение выложенный код к сформулированной задаче? В задаче речь, насколько я понял, идет о нахождении вектор-массива, представляющего собой разность двух исходных ЧИСЛОВЫХ векторов, а в программе рассматривается задача об исключении элемента из одномерного СИМВОЛЬНОГО массива.

Sacred09 · 19.01.2011, 09:47

Цитата:

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

А, собственно, какое имеет отношение выложенный код к сформулированной задаче? В задаче речь, насколько я понял, идет о нахождении вектор-массива, представляющего собой разность двух исходных ЧИСЛОВЫХ векторов, а в программе рассматривается задача об исключении элемента из одномерного СИМВОЛЬНОГО массива.

Пример!Не подходящий конечно...

Vladimir_S · 19.01.2011, 10:08

Цитата:

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

Пример!Не подходящий конечно...

Ну ладно, как-то так:

Код:

uses crt; 
const n=10; 
var A,B,D: array[1..n] of integer; 
    m,i:integer; 
begin 
  clrscr; 
  write('введите число элементов массивов <=10 - '); 
  readln(m);  
  writeln('введите элементы массива A'); 
  for i:=1 to m do  
   begin 
    write ('A[',i,']= '); 
    readln (A[i]); 
   end; 
  writeln('введите элементы массива B'); 
    for i:=1 to m do  
     begin 
      write ('B[',i,']= '); 
      readln (B[i]);
      D[i]:=A[i]-B[i]; 
     end; 
  writeln;
  writeln('вывод массивов'); 
  for i:=1 to m do write (A[i]:5); 
  writeln;  
  for i:=1 to m do write (B[i]:5); 
  writeln;  
  for i:=1 to m do write (D[i]:5); 
  writeln;  
  readkey; 
end.

Проверьте, я не тестировал.

Sacred09 · 19.01.2011, 11:37

Цитата:

Проверьте, я не тестировал.

Проверил!Работает!Спасибо огромное!

AlexZir · 26.01.2011, 21:29

Mr.Програмист
Ваш вариант содержит ряд ошибок и был перемещен в тему Паскаль: обсуждение вариантов решения задач

19.01.2011, 09:12	#1 (permalink)
Sacred09 Member Регистрация: 22.03.2010 Сообщений: 185 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 54	Программирование операций обработки одномерных массивов Подскажите, пожалуйста, ответить на вопрос: Вычислить разность векторов А(N) и B(N). PHP код: uses crt; const n=10; var a: array[1..n] of char; m,i,m_d:integer; begin clrscr; write('введите число элементов массива <=10 -'); readln(m); writeln('введите элементы массива неболее 1 символа'); for i:=1 to m do begin write ('a[',i,']='); readln (a[i]); end; writeln('контрольный вывод массива'); for i:=1 to m do write ('a[',i,']=',a[i],' '); writeln; write('введите номер элемент массива для удаления -'); readln(m_d); for i:=m_d to m-1 do a[i]:=a[i+1]; writeln('итоговый вывод массива'); for i:=1 to m-1 do write ('a[',i,']=',a[i],' '); readkey; end.

26.01.2011, 21:29	#6 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Mr.Програмист Ваш вариант содержит ряд ошибок и был перемещен в тему Паскаль: обсуждение вариантов решения задач __________________ Убить всех человеков!

19.01.2011, 09:12
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Бывает, что в аналогичных темах можно найти множество нужной информации Циклические программы с использованием двумерных числовых массивов Обработка одномерных массивов

19.01.2011, 09:25	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	А, собственно, какое имеет отношение выложенный код к сформулированной задаче? В задаче речь, насколько я понял, идет о нахождении вектор-массива, представляющего собой разность двух исходных ЧИСЛОВЫХ векторов, а в программе рассматривается задача об исключении элемента из одномерного СИМВОЛЬНОГО массива.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070