|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.12.2013, 19:22 | #1 |
Новичок
Джуниор
Регистрация: 23.12.2013
Сообщений: 4
|
Вычислить выражение, обработав исходные массивы! Free Paskal
Найти Z=(x^k1)*(y^k2)/(S1+S2) , где x,y - заданные числа ; S1 и k1 - сумма и количество положительных элементов заданного массиве (a1,a2......,a30), S2 и k2 сумма и количество отрицательных элементов заданного массива(b1,b2.......,b20)
Код:
Последний раз редактировалось Stilet; 23.12.2013 в 20:32. |
23.12.2013, 20:28 | #2 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
По условию задания а у вас массив до 30, а b до 20. А в разделе var описано наоборот.
И заполнение массивов сделано через... Странно как-то. Напишите два отдельных цикла для каждого массива. Последний раз редактировалось ZX Spectrum-128; 23.12.2013 в 20:31. |
23.12.2013, 20:37 | #3 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ага! Фри. отлично.
Код:
И ничего лишнего не надо.
I'm learning to live...
|
23.12.2013, 23:18 | #4 |
Новичок
Джуниор
Регистрация: 23.12.2013
Сообщений: 4
|
Спасибо вам большое . А не подскажите как сделать чтобы Были на рандомные значение А я сама ввела значения X и Y.
|
23.12.2013, 23:21 | #5 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
Read(a[i]); вместо random
|
24.12.2013, 11:35 | #6 |
Новичок
Джуниор
Регистрация: 23.12.2013
Сообщений: 4
|
Код:
___________ Код нужно оформлять по правилам: тегом [CODE]..[/СODE] (кнопочка на панели форматирования с решёточкой #) Не забывайте об этом! Модератор. Последний раз редактировалось Serge_Bliznykov; 24.12.2013 в 12:58. |
24.12.2013, 12:59 | #7 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
строчка с
Цитата:
(это иницилизация генератора псевдослучайных чисел). обязательно добавить иницилизацию переменных s1,s2 и k1, k2 перед циклами. Нужно ещё дописать ввод x и y: Код:
Последний раз редактировалось Serge_Bliznykov; 24.12.2013 в 13:01. |
|
24.12.2013, 14:20 | #8 | |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Цитата:
|
|
24.12.2013, 14:38 | #9 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
только поэтому он и не нужен. (хотя, конечно, и вреда особого от него никакого не будет!) |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
НАПИСАТЬ НА FREE PASKAL | katiuhka | Помощь студентам | 5 | 20.03.2013 18:31 |
Free Paskal и Turbo Paskal | Polly~Sunbeam | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 18.04.2011 16:00 |
Вычислить выражение, массивы | drp | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 10.04.2011 18:19 |
free paskal | ALISHER01 | Помощь студентам | 4 | 31.10.2010 10:51 |