|
информатика
|
|
| Murmakil | Дата: Воскресенье, 2009-09-27, 9:21 PM | Сообщение # 1 |
Студент
Группа: Пользователи
Сообщений: 54
Репутация: 34
Замечания: 0%
Статус: Offline
Город: Йошкар-Ола
| Дан массив С=(С1,С2,С3...,См)Вычислить произведение отрицательных элементов массива. надо вообщем алгоритм циклический построить и плюс в паскале написать этот алгоритм.
русский-66
алгебра-52
общество-75
география-64
|
| |
| |
| kykc | Дата: Понедельник, 2009-09-28, 10:29 AM | Сообщение # 2 |
|
Академик
Группа: Проверенные
Сообщений: 1237
Репутация: 1175
Замечания: 100%
Статус: Offline
| гы! зоипали с глупыми заданиями
типа
начало ска
для й:=1 идти М делать
С(й):= рамдумнах;
если С(й)<0 тогда В:=В*С(й);
написать(В);
конец ска
|
| |
| |
| Lucifier | Дата: Понедельник, 2009-09-28, 12:51 PM | Сообщение # 3 |
Почетный академик
Группа: Проверенные
Сообщений: 2304
Репутация: 286
Замечания: 80%
Статус: Offline
| 
|
| |
| |
| Murmakil | Дата: Понедельник, 2009-09-28, 1:38 PM | Сообщение # 4 |
|
Студент
Группа: Пользователи
Сообщений: 54
Репутация: 34
Замечания: 0%
Статус: Offline
Город: Йошкар-Ола
| Quote (kykc) ы! зоипали с глупыми заданиями
типа
начало ска
для й:=1 идти М делать
С(й):= рамдумнах;
если С(й)<0 тогда В:=В*С(й);
написать(В);
конец ска
тупое не задание, а-я.  можно поподробнее расписать плиз
русский-66
алгебра-52
общество-75
география-64
|
| |
| |
| kykc | Дата: Понедельник, 2009-09-28, 6:11 PM | Сообщение # 5 |
|
Академик
Группа: Проверенные
Сообщений: 1237
Репутация: 1175
Замечания: 100%
Статус: Offline
| ну тогды поэтому УЧИСЬ!!!!!!!
|
| |
| |
| Lucifier | Дата: Понедельник, 2009-09-28, 7:11 PM | Сообщение # 6 |
|
Почетный академик
Группа: Проверенные
Сообщений: 2304
Репутация: 286
Замечания: 80%
Статус: Offline
| учись студент
|
| |
| |
| nik-nak | Дата: Понедельник, 2009-09-28, 7:35 PM | Сообщение # 7 |
Абитуриент
Группа: Пользователи
Сообщений: 10
Репутация: 8
Замечания: 0%
Статус: Offline
Город: Магнитогорск
| Вот тебе непроверенный вариант.  Program {имя программы};
Var m,i:integer; p:real;
C:array[1..1000] of real;
Begin
p:=1
writeln('Сколько чисел в массиве?'); read(m);
writeln('Введите массив');
For i:=1 to m do
read(C[i]);
For i:=1 to m do
IF C[i]<0 then p:=p*C[i];
writeln(p:3:2);
End.  А вообще советую прочитать книгу "Основы программирования для чайников".
|
| |
| |
| kykc | Дата: Понедельник, 2009-09-28, 9:06 PM | Сообщение # 8 |
|
Академик
Группа: Проверенные
Сообщений: 1237
Репутация: 1175
Замечания: 100%
Статус: Offline
| nik-nak, ЛАМАК ЕПТ!
"C:array[1..1000]" а что ты буишь делать если m > 1000?????????
|
| |
| |
| Murmakil | Дата: Понедельник, 2009-09-28, 10:15 PM | Сообщение # 9 |
|
Студент
Группа: Пользователи
Сообщений: 54
Репутация: 34
Замечания: 0%
Статус: Offline
Город: Йошкар-Ола
| блин, неужели никто этого не знает
русский-66
алгебра-52
общество-75
география-64
|
| |
| |
| nik-nak | Дата: Вторник, 2009-09-29, 7:02 PM | Сообщение # 10 |
|
Абитуриент
Группа: Пользователи
Сообщений: 10
Репутация: 8
Замечания: 0%
Статус: Offline
Город: Магнитогорск
| Я же говорю, вариант непроверенный.
|
| |
| |
| kykc | Дата: Вторник, 2009-09-29, 7:11 PM | Сообщение # 11 |
|
Академик
Группа: Проверенные
Сообщений: 1237
Репутация: 1175
Замечания: 100%
Статус: Offline
| nik-nak,
ты темболее не задал значения С[i])))))))))))))))) ухах пустоту с нулем сравнивал)))))
рандумнах ("random(ипать)") писать надо было)))Добавлено (2009-09-29, 7:11 Pm)
---------------------------------------------
ухахаххахах литература для чайников, чайников неисправляет)))))))000
|
| |
| |
| nik-nak | Дата: Среда, 2009-09-30, 7:42 PM | Сообщение # 12 |
|
Абитуриент
Группа: Пользователи
Сообщений: 10
Репутация: 8
Замечания: 0%
Статус: Offline
Город: Магнитогорск
| Насчет книги для чайников беру свои слова назад.
В книге программирование изучается на либерти бейсик(переучиватся на другие языки программирования будет сложнее).
|
| |
| |
| kykc | Дата: Среда, 2009-09-30, 8:26 PM | Сообщение # 13 |
|
Академик
Группа: Проверенные
Сообщений: 1237
Репутация: 1175
Замечания: 100%
Статус: Offline
| nik-nak, хы йа в школе токо басик учил
|
| |
| |
