Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 17.02.2013, 09:51   #1
димон4ик_
Пользователь
 
Регистрация: 04.10.2011
Сообщений: 29
По умолчанию Одномерные массивы

Выбрать алгоритм, составить его блок-схему и программу, в которой: предусмотреть ввод исходных данных a, b, n с клавиатуры;
димон4ик_ вне форума Ответить с цитированием
Старый 17.02.2013, 10:12   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

Цитата:
Выбрать алгоритм
Алгоритм ввода данных с клавиатуры может быть только в единственном числе - Человек шлепает по клавишам. Там не из чего выбирать.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 17.02.2013, 14:11   #3
димон4ик_
Пользователь
 
Регистрация: 04.10.2011
Сообщений: 29
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Алгоритм ввода данных с клавиатуры может быть только в единственном числе - Человек шлепает по клавишам. Там не из чего выбирать.
1 Выбрать алгоритм, составить его блок-схему и программу, в которой: предусмотреть ввод исходных данных a, b, n с клавиатуры;
2 Переписать отрицательные элементы массива X в массив Y и
подсчитать их количество. Элементы массива X вычисляются по формуле Xi = 3sqr (i -10) ×sin(i - 0,5), где i = 1, 2, …, 20.
димон4ик_ вне форума Ответить с цитированием
Старый 18.02.2013, 19:20   #4
PavelDD
Пользователь
 
Регистрация: 15.02.2013
Сообщений: 35
По умолчанию

Доброго времени суток.
Для того, чтобы все отрицательные элементы из массива X перетащить в массив Y
нужно всего лишь написать следующий цикл:
Код:
for i:=1 to n do
if x[i]<0 then y[i]:=x[i];
если нужно с клавиатуры прочитать, то:

Код:
readln(a,b,n);
PavelDD вне форума Ответить с цитированием
Старый 19.02.2013, 21:00   #5
ViktorR
Участник клуба
 
Регистрация: 23.10.2010
Сообщений: 1,566
По умолчанию

Код:
for i:=1 to n do
if x[i]<0 then y[i]:=x[i];
Не совсем так, ибо при перемешивании с положительными, часть элементов массива y будет не инициализирована.
Код:
k := 1;
for i := 1 to n do
   if x[i] < 0 then
   begin
      y[k] := x[i];
      ink(k);
   end;

Где-то так ...
ViktorR вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одномерные массивы, двумерные массивы, строки Sand093 C++ Builder 11 20.05.2012 20:48
Даны одномерные массивы А и В. Сформировать массивы, состоящие из элемент LyaLya Помощь студентам 15 20.12.2009 14:12
Одномерные массивы в Си osichev Помощь студентам 20 02.06.2009 20:44
Одномерные массивы chistayastranichka Помощь студентам 2 28.05.2009 23:56
Одномерные массивы aiktz Помощь студентам 3 13.03.2009 16:49


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS