 Массив |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Alena |
 8.09.2005 10:13
Сообщение
#1
|
|
Гость  |
Мальчишки вы все так классно решаете, а я в паскале не понимаю, через 2 дня надо сдавать контрольную , помогите пожалуйста а? :p2:
Дали вот такое запутанное задание Вычислить Цитата s1 s2 E + E z= _____________ k1*k2 s2 - сумма положительных элементов массива X(80) k2 - кол- во положительных элементов массива X(80) s1 - сумма положительных элементов массива y(60). k1 - кол- во положительных элементов массива y(60). выполнить с использованием подпрограмм Сообщение отредактировано: volvo - 8.09.2005 10:14 |
 
|
|
  |
Ответов
| klem4 |
8.09.2005 16:23
Сообщение
#2
|
 Perl. Just code it!  Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация:  44  |
Похоже на правду, но есть маленькое замечание, у тебя в телах циклов for всего одни оператор - присвоение элементу массива случайного значения, по этому вовсе не нужно ставить
Begin...end;Это для составного оператора, у тебя можно просто for i := 1 to n do x[i] := random(100); ;) Это так ... к слову -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
   |
|
Сообщений в этой теме
Alena Массив 8.09.2005 10:13
Alena немного не так создало тему
корректирую
E в степе... 8.09.2005 10:16 volvo Значит, принцип такой:
function get_amount(var arr... 8.09.2005 11:37 Alena а у меня при запуске выдаёт здесь ошибку еррор 200... 8.09.2005 14:39 klem4 10 и 11 посты
посмотри. 8.09.2005 14:45 volvo Может, можно обойтись без модуля Crt? Просто не ук... 8.09.2005 15:14 Alena Я сделала так но в конце опять ошибка( после запол... 8.09.2005 15:50 volvo For i := 1 To 60 Do y[i] := Random(100); {числа от... 8.09.2005 15:53 Guest т.е должно быть так??
var
x: array... 8.09.2005 16:03 Guest вот так всё равно не работает :(
function get_... 8.09.2005 16:37 klem4 А что конкретно не работает ? Компилируется норма... 8.09.2005 16:55 volvo Странно. У меня эта программа выдает:
8.09.2005 16:55
Alena спасибо мальчики разобралась всё дело в той самой ... 8.09.2005 17:21 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 15.11.2025 14:32 |