Технический форум

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Массив (http://www.tehnari.ru/f41/t43069/)

Добырый день:)не могли бы вы подправить мою программу на паскале аналогично программе с массивами в этой теме:http://www.tehnari.ru/f41/t42793/#post424676
Моя программа:
program p1;
uses crt;
const
n=8;
m=7;
var
i,p:integer;
matrix:array[0..n,0..m] of integer;
begin
p:=1;
for i:=0 to n do
if matrix[i] < 0 then p:=p*matrix[i];
writeln('answer: ',p);
readln;
end.

Цитата:

Сообщение от garik (Сообщение 426983)

Добырый деньне могли бы вы подправить мою программу на паскале

Вы забыли самую малость - сформулировать задачу.

Дан массив вещественных чисел. Найти произведение отрицательных элементов.

Цитата:

Сообщение от garik (Сообщение 426995)

Дан массив вещественных чисел. Найти произведение отрицательных элементов.

1. Если в задании говорится о массиве (одномерном!) вещественных чисел, то почему же Вы определяете двумерный массив целых чисел? Потому что так в образце? Нет, не пойдет. Тупое бездумное копирование - не метод освоения программирования, это уж Вы мне поверьте.
2. Сам массив с неба не свалится: его необходимо ввести.
3. Искомое произведение тоже должно быть вещественным.
4. Если Вы в программе не используете функции модуля CRT (например, очистку экрана, ввод символа клавиши, паузу и т.п.), так незачем его и цеплять.
С учетом вышесказанного, имеем:

Код:

program p1;

const

 n=8;

var

 i:integer;

 p:real;

 a:array[0..n] of real;

begin

 p:=1;

 for i:=0 to n do

  begin

   write('a[',i,']= ');

   readln(a[i]);

   if a[i]<0 then p:=p*a[i];

  end;

 writeln('answer: ',p);

 readln;

end.

а не мог ли ты еще подправить мой псевдокод:(преподаватель сказал,что в моем есть ошибки. Эта же задача
1.Ввод n
2.P:=1
3. Для i=1,n,1 выполнить ввод a[i]
4. a[i].<0
5.p:=p* ai.
6.Вывод p
7.Конец

Цитата:

Сообщение от garik (Сообщение 427090)

Сожалею, но во всяких там псевдокодах, равно как и в блок-схемах - ни бельмеса не понимаю. Я, увы, самоучка, и осваивал (~106 лет назад) программирование как-то без этих прибамбасов, и обхожусь без них и поныне.