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

Задача по циклам

23.11.2014, 20:48. Показов 495. Ответов 9
Метки нет (Все метки)

Дано натуральное число N. Составить программу вычисления выражения: 11+22+...+nn
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.11.2014, 20:48
Ответы с готовыми решениями:

Задача по циклам
Не получается сделать задачу, нужна помощь!!! Составить на языке Turbo-Pascal полный текст...

Задача по циклам. Ввести с клавиатуры последовательность из N целых чисел
Ввести с клавиатуры последовательность из N целых чисел и определить максимальный или минимальный...

задачи по циклам
задачи по циклам

Порочка программок по циклам.
1.Программа выводит на экран целые числа то -10 до +10 в строчку через пробел. 2.Тоже самое...

9
18 / 18 / 11
Регистрация: 05.01.2014
Сообщений: 119
Записей в блоге: 2
23.11.2014, 21:12 2
Фуф...
Задача простая,но просидел минут 20 над ней(может потому что я школьник).
Вот код
Pascal
1
2
3
4
5
6
7
8
9
10
11
var 
    s,i,n:integer;
begin
s:=0;
read(n);
for i:=1 to n do
begin 
  s:=s+i*i;
end;
write(s);
end.
Удачи
1
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
23.11.2014, 21:16 3
Cortex1998,
Задача простая,но просидел минут 20 над ней(может потому что я школьник).
и всё равно неправильно))
ибо получится 1^2 + 2^2 + 3^2 + ... + n^2)
0
18 / 18 / 11
Регистрация: 05.01.2014
Сообщений: 119
Записей в блоге: 2
23.11.2014, 21:18 4
Хм...
извиняюсь,не досмотрел условие.Перепишем
0
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
23.11.2014, 21:24 5
Pascal
1
2
3
4
5
6
7
8
9
10
var
    s : Double = 0;
    i, n : Byte;
 
begin
    Write('n='); ReadLn(n);
    for i := 1 to n do
        s := s + exp(i * ln(i));
    WriteLn('s=', s:0:0);
end.
2
18 / 18 / 11
Регистрация: 05.01.2014
Сообщений: 119
Записей в блоге: 2
23.11.2014, 21:25 6
Спасибо за поправку)
0
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
23.11.2014, 21:36 7
потолок - n=143

Добавлено через 3 минуты
вру. это i-тый элемент считается правильно до n=143.

Добавлено через 7 минут
а может и не вру.
короче, при особо больших n вывалится с переполнением.
0
Модератор
9346 / 4714 / 3167
Регистрация: 17.08.2012
Сообщений: 14,797
24.11.2014, 16:08 8
Вариант и с суммированием, и с возведением в степень с помощью циклов.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var i, j, n: integer;
    s, p: real;
begin
  write('n = ');
  readln(n);
  s := 0;
  for i := 1 to n do
    begin
      p := i;
      for j := 2 to i do p := p * i;
      s := s + p
    end;
  write('s = ', s);
  readln
end.
До n = 143. Если real заменить на extended, то до n=1546.
0
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
24.11.2014, 16:25 9
Cyborg Drone, 143^143 = 1,6() * 10^308. у дабла, если мне память не изменяет примерно такой же верхний потолок, разве нет?

Добавлено через 5 минут
хотя 142^142 = 4 * 10^305. то бишь там не наберётся до 1,7*10^308
0
Модератор
9346 / 4714 / 3167
Регистрация: 17.08.2012
Сообщений: 14,797
24.11.2014, 18:05 10
Цитата Сообщение от JokeR.BY Посмотреть сообщение
у дабла, если мне память не изменяет примерно такой же верхний потолок, разве нет?
Да, у дабла такой же потолок, как и у рил, в большинстве современных паскалей. Раньше это было не так. Ну, а у екстендеда диапазон значений примерно от 3.37*10-4932 до 1.18*104932, ну и, счастье тому паскалю, где он есть.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.11.2014, 18:05
Помогаю со студенческими работами здесь

Решение задачи по циклам.
помогите решить :)

Нужна помощь по массивам и по циклам
Люди плз помогите, препод задала изучить 10 по паскалю, потому что ходить не мог на пары по...

Задача о арифметическим циклам (простой переменной)
Напишите программу люди добрые! Фото во вложении☺

Программа по циклам
Дано число, например 213. Если какая-нибудь из этих цифр в данном числе меньше среднего...


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

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

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