|
PLZZ....!!!!
|
|
| om3n | Дата: Понедельник, 17.12.2007, 03:47 | Сообщение # 1 |
 Новичок
Группа: Пользователи
Сообщений: 6
Статус: Offline
| 1) Ввести Х и вычислить Z :
z= t+w , t>2w
3t-w ,t<=2w w=x (в 4 степени) - 4 t= tg(1+x) x>1
|x|-1, x<=1
2) построить таблицу значений "у"на отрезке [a,b] с шагом "h" c приостановкой выдачи результатов через каждые N строк таблици.Найти макс и мин. значение "у" и "х".
y(x)=x+10sin(x) a=-3 b=3 h=0.05 N=15 3) Вычислить макс сумму кубов четных натуральных чисел (2,4,6...) ,меньшую 8000
4) Дана некоторая последовательность С. Найти максим-й номер i, при котором выполненно нижеслед. условие:
С1=1/2! , C2=1/4!, C3=1/6! ..... C1>2.0e-12 5)Вычислить T=Ln(1+Ln(3+Ln(5+...Ln(17+Ln(19))))));
6) ПУсть А-одномерный массив N целых чисел:
а)поменять местами минимальный по модулю элемент и максимальный отрицательный элемент.
б)Проверить является ли шестой четный элемент положитеьным,а если токого нет-вывести сообщение.
в)Исключить из массива все нулевые элементы. Добавлено (16.12.2007, 20:47)
---------------------------------------------
Помогите...пожайлуста...!!!=(((
HELP...me..
Сообщение отредактировал om3n - Понедельник, 17.12.2007, 02:51 |
| |
|
|
| Seqular | Дата: Понедельник, 17.12.2007, 07:34 | Сообщение # 2 |
 Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| Первую задачу что-то никак осмыслить не могу. Непонятно написано. Не найти, где начало - где конец выражения... А остальные 5-ть решу, как на работу приеду =) Они не сложные.
Поддерживаю также проект сообщество молодых сисадминов
|
| |
|
|
| Seqular | Дата: Понедельник, 17.12.2007, 10:15 | Сообщение # 3 |
|
Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| Это шестая задача
Code Program ZAD6;
Uses CRT;
Const MAX = 10;
Var a: Array[1..MAX] of Integer;
i, j: Byte;
min_mod: Integer;
max_otr: Integer;
Begin
Randomize;
ClrScr;
For i := 1 to MAX do
Begin
a[i] := Random(15) - 7;
If (a[i] < max_otr) then max_otr := a[i];
If (min_mod = 0) then min_mod := a[1];
If (abs(a[i]) < abs(min_mod)) then min_mod := a[i];
Write(a[i],' ');
End;
Writeln(#13#10);
Writeln('Минимальный по модулю: ',min_mod);
Writeln('Максимальный отрицательный: ',max_otr);
{a) Меняем местами минимальный по модулю и максимальный отрицательный}
min_mod := min_mod + max_otr;
max_otr := min_mod - max_otr;
min_mod := min_mod - max_otr;
Writeln(#13#10,'Поменяли местами',#13#10);
Writeln('Минимальный по модулю: ',min_mod);
Writeln('Максимальный отрицательный: ',max_otr,#13#10);
{b Проверяем, является ли шестой четный элемент положительным}
Writeln('Шестой элемент: ',a[6]);
If (not Odd(abs(a[6])) and (a[6] > 0)) then Writeln('Шестой четный - положительный')
else Writeln('Нет такого элемента');
max_otr := 0;
{c Исключаем все нулевые}
For i := 1 to MAX do
Begin
If a[i] = 0 then
Begin
Inc(max_otr);
For j := i to MAX-1 do
a[j] := a[j+1];
End;
End;
Writeln(#13#10,'Исключили все нулевые');
For i := 1 to MAX - max_otr do
Begin
Write(a[i],' ');
End;
ReadKey;
End.
Поддерживаю также проект сообщество молодых сисадминов
|
| |
|
|
| Seqular | Дата: Понедельник, 17.12.2007, 11:29 | Сообщение # 4 |
|
Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| 5-ая задача
Code Program ZAD5;
Uses CRT;
Var x: Real;
i: Integer;
t: Real;
Begin
i := 19;
ClrScr;
Repeat
x := Ln(i + x);
i := i - 2;
Until i = -1;
Writeln('Ответ: ',x:0:5);
ReadKey;
End.
Поддерживаю также проект сообщество молодых сисадминов
|
| |
|
|
| Seqular | Дата: Понедельник, 17.12.2007, 11:44 | Сообщение # 5 |
|
Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| Остальное позже! Работы много!
Поддерживаю также проект сообщество молодых сисадминов
|
| |
|
|
| om3n | Дата: Вторник, 18.12.2007, 06:32 | Сообщение # 6 |
|
Новичок
Группа: Пользователи
Сообщений: 6
Статус: Offline
| ок !!!спасибо большое пока за эти!!! Добавлено (17.12.2007, 22:41)
---------------------------------------------
можете написать как вырезать и вставить сюда,чтоб 1-я задача была норм(понятна). Добавлено (17.12.2007, 23:32)
---------------------------------------------
Слушай Seqular а можно тебе просто на мыло кинуть задачки,ты их потом тут разместишь,у меня время просто пипец жмет...="( если можно то стукани в аську 379090549 или на мыло om3n@itkm.ru
HELP...me..
|
| |
|
|
| Pavel | Дата: Вторник, 18.12.2007, 18:36 | Сообщение # 7 |
 Приближенный
Группа: Модераторы
Сообщений: 210
Статус: Offline
| Quote (om3n) можете написать как вырезать и вставить сюда,чтоб 1-я задача была норм(понятна). А ты глянь в FAQ на сайте здесь как подключить русские буквы в TP. И будет все хорошо.
|
| |
|
|
| om3n | Дата: Пятница, 21.12.2007, 05:58 | Сообщение # 8 |
|
Новичок
Группа: Пользователи
Сообщений: 6
Статус: Offline
| про меня не забыли? =(
HELP...me..
|
| |
|
|
| Seqular | Дата: Пятница, 21.12.2007, 06:57 | Сообщение # 9 |
|
Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| Quote (om3n) про меня не забыли? =(
Ребят, писали же, сессия. У нас сдача курсового проекта через 3 дня, и не успеваем! в Delphi проводим по 11 часов в сутки... Совсем не до задачек.. потерпите уж, скоро сдадим и все будет GOOD!
Поддерживаю также проект сообщество молодых сисадминов
|
| |
|
|
| Pavel | Дата: Пятница, 21.12.2007, 09:03 | Сообщение # 10 |
|
Приближенный
Группа: Модераторы
Сообщений: 210
Статус: Offline
| Quote (Seqular) все будет GOOD!
Полюбому!
|
| |
|
|
| om3n | Дата: Воскресенье, 23.12.2007, 21:44 | Сообщение # 11 |
|
Новичок
Группа: Пользователи
Сообщений: 6
Статус: Offline
| лан...бум ждать...
HELP...me..
|
| |
|
|
| Pavel | Дата: Воскресенье, 23.12.2007, 23:16 | Сообщение # 12 |
|
Приближенный
Группа: Модераторы
Сообщений: 210
Статус: Offline
| Ага. Счет идет на часы. Осталось примерно 12 часов 
|
| |
|
|
| om3n | Дата: Вторник, 25.12.2007, 05:26 | Сообщение # 13 |
|
Новичок
Группа: Пользователи
Сообщений: 6
Статус: Offline
|  Добавлено (24.12.2007, 22:26)
---------------------------------------------
Ребят забейте на все те задачт которые были не решены....я их сдал уже...
ПЛИЗЗ решите вот эту мне на зачОт только ее нехватает...=( завтра плиииз...или в среду утром )))) Дано разложение некоторой функции у(х) в ряд Тейлора S(x):
y(x)=sin((x);
S(x) =x-x^3/3!+x^5/5!-x^7/7!+⋯, Составить программу, для произвольного значения х, вводимого с клавиатуры
(| x|<1) , чисел N и K, точности Eps:
А) Сумму N членов ряда:
В) Сумму членов ряда до дотижения заданной точки Eps ;
С) Число слагаемых ,при котором достигается эта точность;
D) Точное значение функциии у(х);
E) Абсолютную и относительную погрешность результата.
F) Таблицу значений суммы ряда S(x) на протяжении К шагов от момента достижения точности Eps с выдачей на экран суммы S(x) и относительной погрешности ее определения для каждого шага.
HELP...me..
|
| |
|
|
| Pavel | Дата: Вторник, 25.12.2007, 17:59 | Сообщение # 14 |
|
Приближенный
Группа: Модераторы
Сообщений: 210
Статус: Offline
| Ок. Мы как раз сдали все. Седня еще занимались нашей работой, завтра будет! У меня такая задача есть с разложением синуса в ряд Тэйлора, еще со второго курса. Там чуток переделать и все!
С разницей во времени это будет "в среду ночью" для тебя.
Сообщение отредактировал Pahan - Вторник, 25.12.2007, 18:01 |
| |
|
|
| Pavel | Дата: Среда, 26.12.2007, 09:18 | Сообщение # 15 |
|
Приближенный
Группа: Модераторы
Сообщений: 210
Статус: Offline
| Блин, под рукой формул относительной и абсолютной погрешности нет. А так задача уже в производстве. Осталось чутка.
|
| |
|
|
