Помогите с задачами - Форум
Среда, 07.12.2016, 11:37
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите с задачами (помогите =))
Помогите с задачами
DnDz-assassinДата: Четверг, 13.05.2010, 17:39 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
1. Дано натуральне число n, дійсне число x. Обчислити P за формулою:
P=(x–1) (x–3) … (x–2n–1).

2. Знайти наближене значення нескінченної суми Підсумо-вувати поки черговий член ряду по модулю не стане менше y=10–6. Результат порівняти з точним значенням ST=π2/6.

3.Дано натуральне число n. Обчислити значення функції для x=1, 1.2, 1.4, …, 1+0.2n. Вивести отримані значення в табличному вигляді.

4.Дано натуральне число n, дійсні числа a1, a2, …, an. Одержати
max(a2, a4, …)+min(a1, a3, …).

2*.найти приближонное значение бесконечной суммы. Сумировать до тех пор когда очередной член ряда не не станет по модулю меньше y=10-6. Результат сравнять с точным значением ST=п2/6.

пожалуйста помогите решаеться судьба человека sad

Сообщение отредактировал DnDz-assassin - Пятница, 14.05.2010, 08:47
 
ignorerДата: Четверг, 13.05.2010, 20:39 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
вот код первой:
var n, c : integer;
x, p : real;
begin
cls;
read(n, x);
p:=1;
for c:=0 to n do p:=p*(x-2*c-1);
write(p);
end.
 
ignorerДата: Четверг, 13.05.2010, 20:50 | Сообщение # 3
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
передите пожалуйста вторую на русский, а то я не понимаю, о чём там вообще речь (переводчиком не получилось перевести так, чтоб было понятно).
в третьей не написана функция, которую нужно вычислять.
ну а четвёртая мне почему-то очень понравилась и я её вам сейчас решу smile
 
ignorerДата: Четверг, 13.05.2010, 21:51 | Сообщение # 4
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
вот четвёртая:
var a : array[1..100] of real;
n, i, max, min : integer;
x : real;
begin
cls;
read(n);
min:=1; max:=2;
for i:=1 to n do begin
read(a[i]);
if (i mod 2=1)and(a[min]>a[i])then min:=i;
if (i mod 2=0)and(a[max]<a[i])then max:=i;
end;
x:=a[max]+a[min];
write(x);
end.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите с задачами (помогите =))
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016