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

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

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

1.Дано натуральное число n. Получить наименьшее натуральное число вида m в степени 2, превосходящее n.
2.Дан числовой массив А, состоящий из n натуральных чисел.Определите количество элементов массива,удовлетворяющих условию 2k<Ak(к-нижний индекс)<3k.
Заранее спасибо.
p.S ссор за ошибки в название темы спешу просто очень =)
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.10.2009, 13:13
Ответы с готовыми решениями:

Цикл с внутренним ветвлением
Имеется n итоговых отметок студента. Определите, является ли студент отличником (отличник - все...

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

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

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

8
2921 / 842 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
16.10.2009, 13:17 2
1) ну что за проблема
Pascal
1
m=trunc(sqrt(n))+1;
Добавлено через 51 секунду
задачи очень и очень простые , по моему вы даже не пытались их решать
0
0 / 0 / 0
Регистрация: 16.10.2009
Сообщений: 10
16.10.2009, 13:18  [ТС] 3
ДО меня просто не доходит с циклами я очень запутываюсь
0
Модератор
63406 / 47088 / 32457
Регистрация: 18.05.2008
Сообщений: 114,137
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
0 / 0 / 0
Регистрация: 16.10.2009
Сообщений: 10
16.10.2009, 13:55  [ТС] 5
Спасибо.
P.S. Вторую решать не надо, дошло как
0
2921 / 842 / 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
Модератор
63406 / 47088 / 32457
Регистрация: 18.05.2008
Сообщений: 114,137
16.10.2009, 14:04 7
i заменить на k, k на другую букву.
0
0 / 0 / 0
Регистрация: 16.10.2009
Сообщений: 10
16.10.2009, 14:06  [ТС] 8
Эм... я как бы решил уже, но все равно спасибо.
0
2921 / 842 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
16.10.2009, 14:09 9
i заменить на k, k на другую букву.
переделал, так короче будет и понятнее
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.10.2009, 14:09

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Циклы с неизвестным числом повторений
Вычислить произведение квадратов пяти производных чисел , вводимых с клавиатуры

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

Циклы с неизвестным числом повторений
Вычислить значение суммы членов бесконечного ряда с заданной точностью E с использованием оператора...


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

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

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