Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
ApTeMoH
0 / 0 / 0
Регистрация: 09.12.2011
Сообщений: 6
#1

Cформулировать одномерный массив, задачка - Pascal ABC

09.12.2011, 17:09. Просмотров 631. Ответов 8
Метки нет (Все метки)

Сформулируйте массив из 15 символов с помощью датчика случайных чисел.
Получите новый массив каждый элемент которого равен кубу соответствующего элемента первого массива. В полученном массиве найдите максимальный элемент среди элементов с четным номером. Выведите на экран исходные и полученные результаты.
http://www.cyberforum.ru/pascalabc/thread454694.html


Заранее спасибо за помощь!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2011, 17:09
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Cформулировать одномерный массив, задачка (Pascal ABC):

Задачка.Одномерный массив.
Сформулируйте и выведите на экран массив из девяти элементов, каждые три...

Задачка на одномерный массив
Дан одномерный массив из 10 элементов.Заменить первый отрицательный элемент...

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

Задачка на массив
Помогите пожалуйста с задачкой. Результаты игры по футболу хранятся в...

Про массив задачка
На массивы вооще не могу решать задачи помогите! Во входном файле дана...

8
Puporev
Модератор
54130 / 41763 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
09.12.2011, 17:29 #2
Цитата Сообщение от ApTeMoH Посмотреть сообщение
массив из 15 символов
Цитата Сообщение от ApTeMoH Посмотреть сообщение
каждый элемент которого равен кубу соответствующего элемента
Ничего не попутали?
0
ApTeMoH
0 / 0 / 0
Регистрация: 09.12.2011
Сообщений: 6
09.12.2011, 17:34  [ТС] #3
Нет вроде. Первый массив - 15 символов, например 2, 4, 3, 1 и т. д. Второй массив тоже 15 символов только уже каждый элемент равен кубу каждого элемента первого массива, то есть будет 8, 64, 27, 1
0
Puporev
Модератор
54130 / 41763 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
09.12.2011, 17:40 #4
Цитата Сообщение от ApTeMoH Посмотреть сообщение
Первый массив - 15 символов,
например А И У Д и т д ......
0
ApTeMoH
0 / 0 / 0
Регистрация: 09.12.2011
Сообщений: 6
09.12.2011, 18:07  [ТС] #5
Неправильно сформулировал, чисел
0
Puporev
Модератор
54130 / 41763 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
09.12.2011, 18:13 #6
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
uses crt;
const n=15;
var a,b:array[1..n] of integer;
    i,mx:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i]:4);
 end;
writeln;
writeln('Новый массив массив:');
for i:=1 to n do
 begin
  b[i]:=sqr(a[i])*a[i];
  write(b[i]:4);
 end;
writeln;
mx:=b[2];
for i:=3 to n do
if b[i]>mx then mx:=b[i];
write('Максимальный с четным номером=',mx);
end.
1
ApTeMoH
0 / 0 / 0
Регистрация: 09.12.2011
Сообщений: 6
09.12.2011, 18:57  [ТС] #7
Благодарю!

Добавлено через 39 минут
Цитата Сообщение от Puporev Посмотреть сообщение
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
uses crt;
const n=15;
var a,b:array[1..n] of integer;
    i,mx:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i]:4);
 end;
writeln;
writeln('Новый массив массив:');
for i:=1 to n do
 begin
  b[i]:=sqr(a[i])*a[i];
  write(b[i]:4);
 end;
writeln;
mx:=b[2];
for i:=3 to n do
if b[i]>mx then mx:=b[i];
write('Максимальный с четным номером=',mx);
end.
хех, ошибочка вышла, максимальное число не всегда является четным
я тут подумал, каким образом можно сделать в цикле шаг 2? Возможно с помощью цыкла с пред условием?
0
Puporev
Модератор
54130 / 41763 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
09.12.2011, 19:02 #8
Цитата Сообщение от ApTeMoH Посмотреть сообщение
максимальное число не всегда является четным
Естественно, ибо нам нужно
Цитата Сообщение от ApTeMoH Посмотреть сообщение
максимальный элемент среди элементов с четным номером.
Добавлено через 1 минуту
Да и я неправильно написал
Pascal
1
2
3
mx:=b[2];
for i:=3 to n do
if (i mod 2=0)and(b[i]>mx) then mx:=b[i];
0
ApTeMoH
0 / 0 / 0
Регистрация: 09.12.2011
Сообщений: 6
09.12.2011, 19:12  [ТС] #9
Теперь за максимальный принимается второй элемент независимо от значения...

Добавлено через 1 минуту
а все, у меня ошибка была
0
09.12.2011, 19:12
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2011, 19:12
Привет! Вот еще темы с решениями:

Задачка на двумерный массив
3) в прямоугольной матрице размером L*M, имеющей имя Matr содержаться целые...

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

Двумерный массив. Сформировать одномерный массив из отрицательных элементов и вычислить их сумму
Задан двухмерный массив целых чисел А размером N на М. Сформировать одномерный...

Одномерный массив. Выбрать элементы, принадлежащие отрезку, и занести в новый массив.
Дано:одномерный массив а(n),n=10.выбрать из него элементы принадлежащие отрезку...


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

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

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