21.05.2009, 22:37 | #41 (permalink) |
Member
Регистрация: 03.07.2008
Сообщений: 588
Записей в дневнике: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1300
|
1. Вычислить частичную сумму числового ряда с задаваемой пользователем точностью. Вывести на экран найденное значение частичной суммы и номер последнего рассмотренного члена ряда. S=1-1/2+1/4-1/8+⋯+〖(-1)〗^n 1/2^n +… Ссылка удалена точность : 0,5∙10⁻⁴ 2. Работа с одномерными массивами. можно взять массивы состоящие из пяти, шести элементов. Дано натуральное число n, целые числа A₁, A₂, … A_n . Найти наибольшее из нечетных и количество четных чисел. Последний раз редактировалось Fenix; 11.06.2013 в 11:19 Причина: Ссылка мертва |
22.05.2009, 10:38 | #42 (permalink) | ||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Подобные задачи рассмотрены в #11 и #33. Попробуйте поменять вид ряда самостоятельно. Функцию X2np (возведение в целую положительную степень) рекомендую сохранить. Цитата:
N=6; VAR A:ARRAY[1..N] of INTEGER; Max_Odd, Num_Even, i:INTEGER; BEGIN Randomize; Max_Odd:=0; Num_Even:=0; FOR i:=1 TO N DO BEGIN A[i]:=Random(99); IF ((A[i] mod 2)=1) AND (A[i]>Max_Odd) THEN Max_Odd:=A[i]; IF (A[i] mod 2)=0 THEN INC(Num_Even); Write(A[i]:4); END; WriteLn; WriteLn('Maximum odd value is ', Max_Odd); WriteLn('Number of even values is ', Num_Even); ReadLn; END. |
||
23.05.2009, 15:00 | #43 (permalink) |
Новичок
Регистрация: 15.02.2009
Сообщений: 4
Записей в дневнике: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите пожалуйста с задачкой на Delphi!
Создать очередь, основанную на динамических структурах, состоящую из N элементов. Все элементы очереди должны содержать числа. В соответствии с условиями, приведенными ниже выполнить операции над элементами очереди. Виде результата вывести строку показывающую все действия, которые были произведены над числами, затем «ровно» и результат данных операций. Условия: x>-3 => - sin(x) x=9 => *2cos(x) иначе => + ctg(x) |
29.05.2009, 12:30 | #44 (permalink) | |
Специалист
Регистрация: 17.07.2007
Адрес: Мордовия
Сообщений: 875
Сказал(а) спасибо: 17
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 4825
|
Цитата:
Компилятор ругается на слова: "UNTIL x>x2;", стоящие в конце, другие ошибки пока не проверил .. |
|
29.05.2009, 12:32 | #45 (permalink) |
Специалист
Регистрация: 17.07.2007
Адрес: Мордовия
Сообщений: 875
Сказал(а) спасибо: 17
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 4825
|
Компилятор ругается на слова: "UNTIL x>x2;", стоящие в конце, другие ошибки пока не проверил ..
это 8 задача.. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
29.05.2009, 14:13 | #46 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Даже не знаю, чем могу помочь... Программа полностью отлажена, у меня транслируется и идет - на всякий случай сейчас еще раз проверил. Это уже закидоны реализации транслятора. Условие "UNTIL x>x2;" вполне нормальное. Ну попробуйте, например, так: "UNTIL (x>x2);" - вдруг ему скобки нужны? Хотя вряд ли.
|
29.05.2009, 14:23 | #47 (permalink) |
Новичок
Регистрация: 29.05.2009
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Здравствуйте! Помогите пожалуйста с задачей на Паскале!
Нужно создать файл, содержащий названия всех месяцев года. Вывести сначала летние, а затем зимние месяцы. |
29.05.2009, 15:44 | #48 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
И вообще, господа школьники и студенты, мы, конечно постараемся помочь, только уж пожалуйста потрудитесь избавить нас от разгадывания шарад типа "что имел в виду спрашивающий"? А то совсем, я смотрю, обленились - лишних пару строк не написать! |
|
29.05.2009, 21:09 | #50 (permalink) |
Специалист
Регистрация: 17.07.2007
Адрес: Мордовия
Сообщений: 875
Сказал(а) спасибо: 17
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 4825
|
Модераторы, можете удалить мои последние 3 поста. Мой косяк
Vladimir_S, извиняюсь чт онапряг Вас лишний раз.. Все отлично работает.. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
задачи по информатике, помощь, решение задач, студент |
|
|