Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 183551
08.06.2011, 17:55
151.50 руб.
08.06.2011, 19:37
0 7 2
Образование
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
1 Даны целые числа a1,a2,...am. Известно, что a1>0 и что среди a2...am,есть хотя бы одно отрицательное число. Пусть a1,a2,...an- члены данной последовательности, предшествующие первому отрицательному члену с номером n (n заранее неизвестно). Получить max (a12,...an2
2 Пусть : x1=y1=1; xi=0.3*xi-1; yi=xi-1+yi-1; i=2, 3... Дано натуральное число n. Найти [$8721$]ni=1i!*(xi/(1+|yi|)

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
08.06.2011, 18:04
общий
Вы задали вопрос, но так и не понятно, что Вы хотите от наших экспертов?

Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
08.06.2011, 18:04
общий
08.06.2011, 18:14
Извиняюсь мне нужны блок схемы. Пока набирал все эти индексы, забыл про суть задания.
Не нашел где поправить свой вопрос. Тут подправленный вопрос.
2 Пусть : x1=y1=1; xi=0.3*xi-1;yi=xi-1+yi-1; i=1, 2, 3... Дано натуральное число n. Найти [$8721$]ni=1i!*xi/1+|yi|
давно
Роман Селиверстов
Советник
341206
1201
08.06.2011, 18:16
общий
это ответ
Здравствуйте, lasan!
1.
program a1;
const m=10;
var a: array[1..m] of integer; i,max:integer;
begin
for i:=1 to m do readln a[i]; {вводим числа}
max:=a[1]*a[1];
i:=2;
while a[i]>=0 do
begin
if a[i]*a[i]>max then max:=a[i]*a[i];
i:=i+1
end;
writeln (max);
end.

давно
Роман Селиверстов
Советник
341206
1201
08.06.2011, 18:23
общий
Блок-схему нарисую попозже, когда сяду за комп с графическим редактором
давно
lamed
Академик
320937
2216
08.06.2011, 19:33
общий
это ответ
Здравствуйте, lasan! Ответ на 2й вопрос.
Программа
Код:
// Пусть : x1=y1=1; xi=0.3*xi-1;yi=xi-1+yi-1; i=1, 2, 3... 
// Дано натуральное число n. Найти Sni=x[i]/(1+|yi|)
// PascalABC.Net
var
  x,y,s: real;
  i,n: integer;
begin
  readln(n);
  x:= 1.0;
  y:= 1.0;
  s:= x/(1+abs(y));
  for i:= 2 to n do
    begin
      x:= 0.3*x-1;
      y:= x+y;
      s:= s+x/(1+abs(y));
    end;
  writeln(s);
end.

Блок-схема

Удачи!
давно
lamed
Академик
320937
2216
08.06.2011, 20:13
общий
Добрый вечер! Спасибо за понимание.
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
08.06.2011, 22:42
общий
08.06.2011, 22:43
Цитата: 376947
Не нашел где поправить свой вопрос.

Исправлять,удалять, переносить вопросы имеют право администраторы рассылок и модераторы+.
В будущем обращайтесьпо адресу.

отправили пост - нет смысла его корректировать.
Первоначально фразы:[color=blue]Извиняюсь мне нужны блок схемы и т.д. не было. Лучше второй повторно с уточнениями.[/color]
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа