Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Pimpa
0 / 0 / 0
Регистрация: 16.10.2009
Сообщений: 10
1

Программа циков с неизвестным число повторений и программа с внутренним ветвлением

16.10.2009, 13:13. Просмотров 997. Ответов 8
Метки нет (Все метки)

1.Дано натуральное число n. Получить наименьшее натуральное число вида m в степени 2, превосходящее n.
2.Дан числовой массив А, состоящий из n натуральных чисел.Определите количество элементов массива,удовлетворяющих условию 2k<Ak(к-нижний индекс)<3k.
Заранее спасибо.
p.S ссор за ошибки в название темы спешу просто очень =)
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.10.2009, 13:13
Ответы с готовыми решениями:

Вывести номера тех чисел в наборе, которые больше своего правого соседа, и количество таких чисел
Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые больше...

Циклы с неизвестным числом повторений
• ОПЕРАТОР ЦИКЛА while … do По заданной формуле члена ряда с номером k составить программу...

«Циклы с неизвестным числом повторений»
Сколько натуральных чисел, кратных 5,нужно перемножить, чтобы полученное произведение превысило...

Тема: Циклы с неизвестным количеством повторений
Известно, что изобретатель шахмат потребовал у царя такое вознаграждение: за первую клетку...

Циклы с неизвестным числом повторений
Помогите с задачкой пожалуйста y=1+(1+x)+\frac{(1+x{)}^{2}}{2!}+\frac{(1+x{)}^{3}}{3!}+...

8
mamedovvms
2920 / 841 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
16.10.2009, 13:17 2
1) ну что за проблема
Pascal
1
m=trunc(sqrt(n))+1;
Добавлено через 51 секунду
задачи очень и очень простые , по моему вы даже не пытались их решать
0
Pimpa
0 / 0 / 0
Регистрация: 16.10.2009
Сообщений: 10
16.10.2009, 13:18  [ТС] 3
ДО меня просто не доходит с циклами я очень запутываюсь
0
Puporev
Модератор
56564 / 43267 / 29911
Регистрация: 18.05.2008
Сообщений: 102,913
16.10.2009, 13:52 4
№1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var n,m:integer;
begin
clrscr;
write('n=');
readln(n);
m:=1;
while m*m<=n do{пока квадрат числа не превышает n увеличиваем его}
m:=m+1;
write('m=',m);
readln
end.
1
16.10.2009, 13:52
Pimpa
0 / 0 / 0
Регистрация: 16.10.2009
Сообщений: 10
16.10.2009, 13:55  [ТС] 5
Спасибо.
P.S. Вторую решать не надо, дошло как
0
mamedovvms
2920 / 841 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
16.10.2009, 14:03 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var a:array[1..100] of word;
n,i,k:integer;
begin
clrscr;
writeln('n ');
readln(n);
i:=0;
for k:=1 to n do
  begin
   a[k]:=random(100)+1;
    if (a[k]>2*k)and(a[k]<3*k) then i:=i+1;
   write(a[k],' ');
  end; 
writeln;
write('kol-vo=',i);
readln
end.
1
Puporev
Модератор
56564 / 43267 / 29911
Регистрация: 18.05.2008
Сообщений: 102,913
16.10.2009, 14:04 7
i заменить на k, k на другую букву.
0
Pimpa
0 / 0 / 0
Регистрация: 16.10.2009
Сообщений: 10
16.10.2009, 14:06  [ТС] 8
Эм... я как бы решил уже, но все равно спасибо.
0
mamedovvms
2920 / 841 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
16.10.2009, 14:09 9
i заменить на k, k на другую букву.
переделал, так короче будет и понятнее
0
16.10.2009, 14:09
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.10.2009, 14:09

Циклы с неизвестным количеством повторений
По заданной формуле \frac{\left(k+1 \right)^2+3}{k} члена ряда с номером K составить программу...

Циклы с неизвестным числом повторений
Написать программу суммирования рядов при одном и том же значении аргумента и 2-х значениях...

Циклы с неизвестным числом повторений
сумма членов ряда: \prod = s = 4(1-1/3+...+{(-1)}^{n}*(1/(2n+1))+...) точность E: 10-4


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru