|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
06.01.2012, 20:19 | #1 (permalink) |
Member
Регистрация: 06.01.2012
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить задачу
Результат выводится в строку при решении всех задач использовать структурированный тип массива. Дан массив действительных чисел A(n) получить массив B(n), где B={A1,A1+A2,A1+A2+A3,...,A1+A2+A3+An}. Пожалуйста помогите... |
06.01.2012, 20:19 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Рекомендую не терять времени, а ознакомиться с похожими топиками Помогите решить задачу Помогите решить задачу |
06.01.2012, 20:41 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
М-да... Поскольку ответов на свои вопросы я не получил, сделал, как понял:
Код:
Const N=8; Var A,B:Array[1..N] of Real; i,j:Integer; Begin Randomize; Writeln('Array A:'); For i:=1 to N do begin A[i]:= Random*10; Write(A[i]:8:3); end; Writeln; Writeln; Writeln('Array B:'); For i:=1 to N do begin B[i]:=0; for j:=1 to i do B[i]:= B[i]+A[j]; Write(B[i]:8:3); end; Readln; End. |
06.01.2012, 21:01 | #4 (permalink) |
Member
Регистрация: 06.01.2012
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Результат выводится в строку при решении всех задач использовать структурированный тип массива - это то как задача должна выполняться.
Дан массив действительных чисел A(n) получить массив B(n), где B={A1,A1+A2,A1+A2+A3,...,A1+A2+A3+An} - это непосредственно сама задача. А что значило a=-15; b=37 я сама понятие не имею, это было в условии. |
06.01.2012, 21:03 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну так подходит решение?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
11.01.2012, 11:45 | #9 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Находите расстояния между соседними парами вершин. Если 4 стороны равны между собой - у вас ромб. Если равны 2 противоположные пары сторон - это параллелограмм.
|
11.01.2012, 13:31 | #10 (permalink) |
Member
Регистрация: 06.01.2012
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо, ну я догадывалась, что так и надо)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|