IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Формировка массива, Народ, очень нужна помощь!!! помогите кто умеет это делать
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской
Реальное имя: Денис

Репутация: -  0  +


В массиве Д1 состоящем из 21 элемента, имеются отрицательные, положительные, нулевые числа вещественного типа.(Вещественный тип-числа с дробной частью. Наприсер: 3,5; -45,54;)
Сформировать новый массив Д2, удалив из него нулевые элементы, а отрицательные-возведя в квадрат.
Массивы распечатать.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской

Репутация: -  0  +


Людям на этом форуме не надо объяснять что такое вещественный тип smile.gif smile.gif smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Профи
****

Группа: Пользователи
Сообщений: 731
Пол: Женский

Репутация: -  25  +


Цитата(Fisher @ 6.12.2007 22:37) *

В массиве Д1 состоящем из 21 элемента, имеются отрицательные, положительные, нулевые числа вещественного типа.(Вещественный тип-числа с дробной частью. Наприсер: 3,5; -45,54;)
Сформировать новый массив Д2, удалив из него нулевые элементы, а отрицательные-возведя в квадрат.
Массивы распечатать.

А что именно тебе непонятно/не получается? Как вводить/выводить массивы -> в FAQ, проверки на отрицательное или ноль можно сделать через if, возведение в квадрат - sqr(x), где х - аргумент..
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Студент 3-к группы (ИГТК)
*

Группа: Пользователи
Сообщений: 32
Пол: Мужской
Реальное имя: Артём

Репутация: -  1  +


uses crt;
var i,n:integer;
s:real;
d1,d2:array[1..21] of real;

begin
clrscr;
for i:= 1 to 21 do
begin
write('Введите элемент матрицы D[',i,']:');
read(s);
d1[i]:=s
end;

writeln('Выводим исходную матрицу');

for i:=1 to 21 do
begin
write(' ',d1[i]4.gif1)
end;


for i:=1 to 21 do
begin
if d1[i]>0 then
d2[i]:=d1[i]
else if d1[i]<0 then
d2[i]:=SQR(d1[i]);
end;
writeln;
writeln;
writeln('Выводим обработаную матрицу');
for i:=1 to 21 do
begin
if d2[i]<>0 then write(' ',d2[i]:6:3)
end;
readkey
end.



--------------------
Жизнь - это лестница. Когда одна ступень проваливается, 2-ая нога находиться на второй ступеньке, а значит есть и второй шанс... ©
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


neic, не стоит делать за людей их работу, тем более тривиальную.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


зачем 2 массива ? можно обойтись одним ...


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7





Группа: Пользователи
Сообщений: 2
Пол: Мужской
Реальное имя: Денис

Репутация: -  0  +


тут матрица не нужна
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Fisher, где ты в программе увидел матрицу ?


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Сектант

Репутация: -  0  +


Цитата(Fisher @ 14.12.2007 17:50) *

тут матрица не нужна



тебе в FAQ - там все объяснено)) Увидешь отличие массива от матрицы smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 24.09.2020 21:49
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name