Помощь - Поиск - Пользователи - Календарь
Полная версия: Формировка массива
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Fisher
В массиве Д1 состоящем из 21 элемента, имеются отрицательные, положительные, нулевые числа вещественного типа.(Вещественный тип-числа с дробной частью. Наприсер: 3,5; -45,54;)
Сформировать новый массив Д2, удалив из него нулевые элементы, а отрицательные-возведя в квадрат.
Массивы распечатать.
TORETO
Людям на этом форуме не надо объяснять что такое вещественный тип smile.gif smile.gif smile.gif
Айра
Цитата(Fisher @ 6.12.2007 22:37) *

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

А что именно тебе непонятно/не получается? Как вводить/выводить массивы -> в FAQ, проверки на отрицательное или ноль можно сделать через if, возведение в квадрат - sqr(x), где х - аргумент..
neic
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.

Michael_Rybak
neic, не стоит делать за людей их работу, тем более тривиальную.
klem4
зачем 2 массива ? можно обойтись одним ...
Fisher
тут матрица не нужна
klem4
Fisher, где ты в программе увидел матрицу ?
Fest
Цитата(Fisher @ 14.12.2007 17:50) *

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



тебе в FAQ - там все объяснено)) Увидешь отличие массива от матрицы smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.