Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
korustyvach
0 / 0 / 0
Регистрация: 25.10.2009
Сообщений: 43
1

Одномерный массив целочисленных данных

25.11.2009, 18:54. Просмотров 755. Ответов 10
Метки нет (Все метки)

Привет, помогите реализовать данную задачу на Паскале:
Разработать алгоритм обработки одномерного массива целочисленных данных А. Найти, сколько отрицательных элементов массива A = (a [i]) удовлетворяют условию: с <= a [i] <= d. Найти произведение квадратов всех положительных элементов массива A = (a [i]). Количество элементов массива N <= 20. Входные данные задать самостоятельно.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.11.2009, 18:54
Ответы с готовыми решениями:

Задать случайным образом одномерный массив из 18 целочисленных элементов, принадлежащих отрезку [-14;14]. Найти сумму элементов массива, кратных пяти.
Помогите пожалуйста написать прогу в паскале: задать случайным образом...

Написать программу перемножения двух данных целочисленных матриц
Написать программу перемножения двух данных целочисленных матриц размером 5х5

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C
Дан одномерный массив A из N элементов. Переписать положительные элементы...

Даны два целочисленных массива, состоящие из одинакового числа элементов. Получить третий массив такой же размерности
Даны два целочисленных массива, состоящие из одинакового числа элементов....

Создать двумерный массив все четные элементы переписать в одномерный массив
создать двумерный массив все четные элементы переписать в одномерный массив

10
Давид
Программист 1С
856 / 644 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
25.11.2009, 21:05 2
korustyvach, Пожалуйста!все тщательно проверьте.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program hhh;
Uses crt;
 Var a:array [1..20] of integer;
     n,i,c,d,k,p,k1:integer;
begin
clrscr;
write ('C=');
readln (c);
write ('D=');
readln (d);
Writeln (' Vvedite kol - vo elementov ');
Readln (n);
 for i:=1 to n do begin
                  write (' Vvedite ',i, ' element ');
                  Readln (a[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (a[i]:3);
writeln;
k:=0;
for i:=1 to n do
 if (a[i]<0) and (C<=a[i]) and (a[i]<=d) then
                                      k:=k+1;
writeln (' Kol-vo elementov C<=a[i]<=d =',k);
writeln;
p:=1;
for i:=1 to n do
 if a[i]>0 then p:=p*sqr(a[i]);
writeln (' Proizvedenie elementov >0 = ',p);
writeln;
k1:=0;
for i:=1 to n do
         k1:=k1+1;
writeln (' Kol-vo elementov =',k1);
readln
end.
0
korustyvach
0 / 0 / 0
Регистрация: 25.10.2009
Сообщений: 43
25.11.2009, 21:27  [ТС] 3
Спасибо, однако как быть с этим (откройте файл) ...
0
Миниатюры
Одномерный массив целочисленных данных  
Puporev
Модератор
54585 / 42091 / 29061
Регистрация: 18.05.2008
Сообщений: 99,290
25.11.2009, 21:29 4
korustyvach, А Вы бы еще ввели c,d=0. Как Вам кажется, каков размер интервала между числами 1 и 1?
0
korustyvach
0 / 0 / 0
Регистрация: 25.10.2009
Сообщений: 43
25.11.2009, 21:47  [ТС] 5
извините, не обратил внимание на задание это же с отрицательное число
0
Puporev
Модератор
54585 / 42091 / 29061
Регистрация: 18.05.2008
Сообщений: 99,290
25.11.2009, 21:50 6
korustyvach, Вы условие прочитайте свое внимательно. Там ведь про отрицательные числа говорится, а 1 положительное.
0
Давид
Программист 1С
856 / 644 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
25.11.2009, 21:50 7
korustyvach, вы сами то подумайте - как из интервала 1 - 1 может получиться в результате 1?
0
korustyvach
0 / 0 / 0
Регистрация: 25.10.2009
Сообщений: 43
25.11.2009, 21:57  [ТС] 8
еще раз глубокое, широкое и длинное спасибо, ведь если бы был чуть внимательнее тоб не задавал бы лишних вопросов
P.S. Из блок-схеме не поможете
0
Давид
Программист 1С
856 / 644 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
25.11.2009, 22:01 9
korustyvach, Ждите...нарисую.
0
Давид
Программист 1С
856 / 644 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
25.11.2009, 22:04 10
Вот схема - переделайте к виду - которому учат.
1
Вложения
Тип файла: rar shema.rar (8.6 Кб, 11 просмотров)
korustyvach
0 / 0 / 0
Регистрация: 25.10.2009
Сообщений: 43
25.11.2009, 22:17  [ТС] 11
СПАСИБО !
0
25.11.2009, 22:17
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.11.2009, 22:17

Дан одномерный массив G[n]. создать массив N, удалив из исходного массива минимальные элементы
Распишите пожалуйста подробнее!!!

Дан одномерный массив Z[n]. Сформировать массив L, содержащий только нечетные элементы массива Z
Задача на Pascal. Не решу - зачёт не поставят.

Дан одномерный массив, получить другой массив той же размерности, каждый элемент которого b[i]=a[1]+.+a[i]
Дан одномерный массив, получить другой массив той же размерности, каждый...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru