![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Незнайка 013 |
![]() ![]()
Сообщение
#1
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Евгений Репутация: ![]() ![]() ![]() |
Задачка следующая: Дано натуральное число n и действительное число a. Получить последовательность В1,....,Вn, где при i=1,2,...,n значение Вi равно а в степени i.
program one; var n,i :integer; x,a: reai; begin writeln ('введите числа n и a'); write ('n='); readln (n); write ('a='); readln (a); for i:=1 to n do begin a:=exp (i*ln(a)); x:=a; end; write (x[i]:6:2,' '); end. Что я неправильно сделал? помогите пожалста... |
![]() ![]() |
Странник |
![]()
Сообщение
#2
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 12 Пол: Мужской Реальное имя: Сергей Репутация: ![]() ![]() ![]() |
Ты в пинципе все сделал, чтобы получить последовательность чисел тебе нужно было описать массив из вещественных чисел. Смотри код.
|
volvo |
![]()
Сообщение
#3
|
Гость ![]() |
Цитата x:=exp(i*ln(a)); О том, что резервировать место для 100 элементов массива, даже если тебе понадобится всего 5 из них, это некорректно - я уже говорил, но как видно, это всем по фигу... Добавлено через 1 мин. Цитата чтобы получить последовательность чисел тебе нужно было описать массив Чтобы получить последовательность массив не нужен. Он нужен, чтобы сохранить эту последовательность. Чувствуешь разницу? |
Незнайка 013 |
![]() ![]()
Сообщение
#4
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Евгений Репутация: ![]() ![]() ![]() |
Премного благодарен!!!
Еще можно? задачка: Даны натуральные числа n,A1,A2,...,An. Определить количество членов Ак последовательности А1,...,Аn, кратных 3 и некратных 5. Опять моя програмка не работает. program pyat; var x:array [1..200] of integer; i,k,n: integer; begin write ('введите n<=200'); readln (n); for i:=1 to n do begin write ('x[' ,i, ']= '); readln (x[i]); end; k:=0; for i:=1 to n do if i mod 3=0 and mod 5<>0 then begin k:=k+1; end; writeln (k); end. Чего опять я нето написал? Сообщение отредактировано: Незнайка 013 - 17.03.2008 16:18 |
Странник |
![]()
Сообщение
#5
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 12 Пол: Мужской Реальное имя: Сергей Репутация: ![]() ![]() ![]() |
|
andriano |
![]()
Сообщение
#6
|
Гуру ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 168 Пол: Мужской Реальное имя: Сергей Андрианов Репутация: ![]() ![]() ![]() |
это всмысле вот так b[i]:=exp(i*ln(a)); или как то по другому? Это в смысле: b := b*a; Причем, b - не массив, а простая переменная, что избавляет сразу от двух неприятностей: 1. Нерационального использования памяти. 2. Возможности порчи памяти при выходе за границы массива, если запрошенное n окажется больше 100. |
Странник |
![]()
Сообщение
#7
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 12 Пол: Мужской Реальное имя: Сергей Репутация: ![]() ![]() ![]() |
Это в смысле: b := b*a; Причем, b - не массив, а простая переменная, что избавляет сразу от двух неприятностей: 1. Нерационального использования памяти. 2. Возможности порчи памяти при выходе за границы массива, если запрошенное n окажется больше 100. Имелось ввиду что то наподобие вот этого?
|
Michael_Rybak |
![]()
Сообщение
#8
|
|||
Michael_Rybak ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 1 046 Пол: Мужской Реальное имя: Michael_Rybak Репутация: ![]() ![]() ![]() |
|
|||
![]() ![]() |
![]() |
Текстовая версия | 21.06.2025 22:40 |