Форум «Всё о Паскале» [Русская версия Invision Power Board]

Автор: Fisher 7.12.2007 2:37

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

Автор: TORETO 7.12.2007 2:52

Людям на этом форуме не надо объяснять что такое вещественный тип

Автор: Айра 7.12.2007 4:37

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

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

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

Автор: neic 7.12.2007 15:49

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]1)
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 7.12.2007 18:39

neic, не стоит делать за людей их работу, тем более тривиальную.

Автор: klem4 8.12.2007 21:43

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

Автор: Fisher 14.12.2007 21:50

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

Автор: klem4 14.12.2007 23:13

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

Автор: Fest 15.12.2007 23:46

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