Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.06.2013, 20:08   #1
Alina31
 
Регистрация: 17.06.2013
Сообщений: 3
По умолчанию вставка элементов массива

Посмотрите, пожалйста, программу в паскале.Правильно ли она решена.
1)В линейном массиве вещественных чисел на i-e место вставить элемент,равный корню квадратному из суммы квадратов двух указанных с клавиатуры элементов.

Код:
program zadacha;
var 
  a:array [1..100] of integer;
  i,n,b,c:integer;
begin
  write('kol elementov');
  readln(n);
  write('elem massiva');
  for i:=1 to n do
     readln(a[i]);
  write('b=');
  readln(b);
  write('c=');
  readln(c);
  sum:=sqr(c)+sqr(b);
  for i:=1 to n do
     a[i]:=a[i+1];
  a[i]:=sum;
  for i:=1 to n do
     write(a[i]:6);
  readln;
end.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 17.06.2013 в 23:29.
Alina31 вне форума Ответить с цитированием
Старый 17.06.2013, 20:32   #2
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Алина, большущий Вам респект!
Вы - одна из немногих школьников/студентов, которые делают что-то сами!

Одна просьба : Когда Вы выкладываете код на форум, то выделяйте его специальным тегом (кнопочка с #)

Теперь о программке :
Цитата:
sum:=sqr(c)+sqr(b);
В условии сказано что надо из этого еще извлечь корень (Sqrt)
Мне кажется, Вы не до конца поняли суть задания. Вы так же должны запросить у пользователя позицию вставки элемента.

Так же для "сдвига" есть волшебная процедурка/функция Move.. Вы можете почитать о ней в справке или всё-таки добить Ваш вариант
Poma][a вне форума Ответить с цитированием
Старый 24.06.2013, 13:35   #3
Alina31
 
Регистрация: 17.06.2013
Сообщений: 3
По умолчанию

Спасибо за помощь, попробую исправить.
Alina31 вне форума Ответить с цитированием
Старый 24.06.2013, 13:39   #4
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
n:=n+1;
for i:=n downto num+1 do
a[i]:=a[i-1];
a[num]:=sum;
for i:=1 to n do
write(a[i]:6);
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 25.06.2013, 13:02   #5
Alina31
 
Регистрация: 17.06.2013
Сообщений: 3
По умолчанию

Большое спасибо!
Alina31 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывод элементов массива.Изменение элементов массива. Vesnushka18 Помощь студентам 6 09.06.2011 13:05
Записать в массив Z подряд семь нулевых элементов массива R,состоящего из N элементов.(Язык QBasic) Лиза) Помощь студентам 0 11.01.2011 16:02
Вставка, объединение, перестановка элементов массива. Vadim123456 Помощь студентам 4 07.02.2010 16:45
В одномерном массиве, состоящем из n вещественных элементов, вычислить сумму элементов массива HazelHen Общие вопросы C/C++ 2 29.03.2009 15:16