0 / 0 / 0
Регистрация: 22.11.2013
Сообщений: 6
1

Простые циклы (без использование массивов)

22.11.2013, 15:15. Показов 1019. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
1. Дано действительное число a и натуральное число n.
Вычислить: 1a + 2a^2 +.....+na^n.
2. Найти наибольшее значение функции Y= (1+x^2) на отрезке [-5,5]
3. Вычислить y=(((..(x+2)x+3)x+4)+...10)x+11
4. Продолжить последовательность и составить программу, печатающую N чисел данной последовательности:
1, 11, 20, 28, 35, 41, 46, ___, ___
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.11.2013, 15:15
Ответы с готовыми решениями:

Вложенные циклы с разветвлениями. Использование массивов
помогите пжлст срочно нужну вот фото http://s017.***********/i424/1311/98/dc11066db85f.png P.S...

Вложенные циклы с разветвленными. Использование массивов
ПОЖАЛУЙСТАА ПОМОГИТЕ !! СРОЧНО НУЖНООО! СПАСИИИБООО! помогитеее ВАРИАНТ 13!

Вывести на экран таблицу, используя только циклы, без массивов
Вывести на экран таблицу, используя только циклы, без массивов 0 0 0 0 1 2 2 2 2 3 4 4 4 5 6...

Распечатать на экране монитора таблицу символов, используя только циклы (без массивов)
Распчатать наэкране монитора таблицу символов используя только циклы(без массивов) A B C D E Z B...

1
226 / 225 / 112
Регистрация: 20.10.2013
Сообщений: 808
23.11.2013, 16:40 2
Цитата Сообщение от brazer Посмотреть сообщение
1. Дано действительное число a и натуральное число n. Вычислить: 1a + 2a^2 +.....+na^n.
Pascal
1
2
3
4
5
6
7
8
9
var a,n,i:integer;
s:double;
begin
  Readln(a,n);
  s:=0;
  for i:=1 to N do s:=s+i*exp(i*ln(a));
  write(s:5:3);
  readln;
end.
Цитата Сообщение от brazer Посмотреть сообщение
2. Найти наибольшее значение функции Y= (1+x^2) на отрезке [-5,5]
Pascal
1
2
3
4
5
6
7
8
var i:integer;
y,max:double;
begin
  max:=-MaxInt;
  for i:=-5 to 5 do begin y:=1+sqr(i); if y>Max then max:=y; end;
  write(y:5:3);
  readln;
end.
Цитата Сообщение от brazer Посмотреть сообщение
3. Вычислить y=(((..(x+2)x+3)x+4)+...10)x+11
Pascal
1
2
3
4
5
6
7
8
var i,y,x:integer;
begin
  readln(x);
  y:=0;
  for i:=1 to 11 do y:=y*x+i;
  write(y);
  readln;
end.
Цитата Сообщение от brazer Посмотреть сообщение
4. Продолжить последовательность и составить программу, печатающую N чисел данной последовательности:
1, 11, 20, 28, 35, 41, 46, 50, 53
Только нужно учесть, что после N=10 числа идут назад.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var i,y,n:integer;
begin
  Readln(n);
  y:=1;
  writeln(y);
  for i:=0 to N do
    begin
      y:=y+(10-i);
      writeln(y);
    end;
  readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.11.2013, 16:40
Помогаю со студенческими работами здесь

Распечатать на экране монитора таблицу символов, используя только циклы (без массивов)
Помогите пожалуйста! Распечатать на экране монитора таблицу символов, используя только циклы (без...

распечатать на экране монитора таблицу символов, используя только циклы(без массивов)
98765 04320 00100 00000 00000

Распечатать на экране монитора таблицу символов, используя только циклы (без массивов)
Помогите пожалуйста!!! Распечатать на экране монитора таблицу символов, используя только циклы (без...

Распечатать на экране монитора таблицу символов, используя только циклы (без массивов)
Пожалуйста помогите сделать! Распечатать на экране монитора таблицу символов, используя только...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru