|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.12.2008, 23:08 | #1 |
Пользователь
Регистрация: 22.12.2008
Сообщений: 59
|
Даны действительные числа а1,...,а24. Получить последовательность в1,...,в10, где
Решить программу в Delphi:
Даны действительные числа а1,...,а24. Получить последовательность в1,...,в10, где в1=а1+а2+...а24, в2=а1^2 +а2^2 +...+а24^2 , ... в10=а1^10 +а2^10 +...+а24^10 . Помогите пожалуйста решить задачу! PLEASE! Последний раз редактировалось Наталья111; 22.12.2008 в 23:54. |
22.12.2008, 23:15 | #2 | |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
А где ваш код? Что вы сделали сами?
И что это за условие такое? Цитата:
Последний раз редактировалось mihali4; 22.12.2008 в 23:42. |
|
22.12.2008, 23:20 | #3 |
Пользователь
Регистрация: 22.12.2008
Сообщений: 59
|
mihali4 У меня не получается! Вот прошу помощи! Хотя бы частичной.
Sorry! Это степени! Последний раз редактировалось Наталья111; 22.12.2008 в 23:54. |
23.12.2008, 04:30 | #4 |
Банхаммер
Участник клуба
Регистрация: 17.02.2007
Сообщений: 1,754
|
в первом случае все элементарно
есть массив a: array [0..23] of integer; далее задаем им случайные значения через цикл Код:
Код:
|
23.12.2008, 09:42 | #5 |
Пользователь
Регистрация: 22.12.2008
Сообщений: 59
|
Вы бы не могли ввиде модуля написать? ПОЖАЛУЙСТА!
А то если я завтра не сдам меня не допустят к сессии. :-( ПОЖАЛУЙСТА ПОМОГИТЕ! |
23.12.2008, 10:14 | #6 |
Пользователь
Регистрация: 22.12.2008
Сообщений: 59
|
var
B1:integer; i:integer; a:array[0..23] of integer; begin for i:=0 to 23 do begin randomize; a[i]:=random(100); end; for i:=0 to 23 do B1:=B1+a[i]; end; for i:=0 to 23 do .... end. Помогите пожалуйста, что делать дальше? |
23.12.2008, 10:52 | #7 |
Форумчанин
Регистрация: 28.09.2008
Сообщений: 344
|
Так пойдет?
|
23.12.2008, 11:40 | #8 |
Пользователь
Регистрация: 22.12.2008
Сообщений: 59
|
КОНЕЧНО! ОГРОМНЕЙШИЙ РАХМЕТ!!!!!! ВЫ МЕНЯ СПАСЛИ ОТ СМЕРТИ!!!!!! СПАСИБО!!!!!!! СПАСИБО!!!!!!! СПАСИБО!!!!!!! СПАСИБО!!!!!!! СПАСИБО!!!!!!! СПАСИБО!!!!!!! СПАСИБО!!!!!!! СПАСИБО!!!!!!! СПАСИБО!!!!!!! СПАСИБО!!!!!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Даны натуральные числа n,p, целые числа a1 , ... ,an. | Наталья111 | Фриланс | 10 | 09.11.2010 20:09 |
Даны числа от 100 до 999. Вводится индекс... | Ci_novice | Помощь студентам | 4 | 19.04.2008 12:59 |
ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение все положительные нечетные числа | Woland-itn | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 23.03.2008 21:49 |
Даны три числа. Выберите те из них, которые принадлежат заданному отрезку [а, b]. | Sheff903 | Помощь студентам | 1 | 27.11.2007 21:28 |