07.12.2010, 20:06 | #1 (permalink) |
Новичок
Регистрация: 01.12.2010
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Массив
Моя программа: 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. |
07.12.2010, 20:06 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Вот топики которые так или иначе имеют сходства с вашим Массив и матрица Массив в VBA Массив Массив в с++ Массив |
07.12.2010, 22:34 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
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. |
|
07.12.2010, 23:23 | #5 (permalink) |
Новичок
Регистрация: 01.12.2010
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
а не мог ли ты еще подправить мой псевдокодпреподаватель сказал,что в моем есть ошибки. Эта же задача
1.Ввод n 2.P:=1 3. Для i=1,n,1 выполнить ввод a[i] 4. a[i].<0 5.p:=p* ai. 6.Вывод p 7.Конец |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
08.12.2010, 09:49 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Сожалею, но во всяких там псевдокодах, равно как и в блок-схемах - ни бельмеса не понимаю. Я, увы, самоучка, и осваивал (~106 лет назад) программирование как-то без этих прибамбасов, и обхожусь без них и поныне.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|