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

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

16.10.2009, 13:13. Просмотров 940. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Программа циков с неизвестным число повторений и программа с внутренним ветвлением (Pascal):

ПРОГРАММа С НЕИЗВЕСТНЫМ ЧИСЛОМ ПОВТОРЕНИЙ
Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе,...

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

Програмирование циклических процессов с неизвестным количеством повторений
Задание: 1. Вычислить суммы S с заданной точностью E. Считать, что заданная...

Програмирование циклических процессов с неизвестным количеством повторений
1. Вычислить суммы S с заданной точностью E. Считать, что заданная точность...

Программа должна вывести одно натуральное число — N-e в порядке возрастания число-палиндром
Рассмотрим все натуральные числа, запись которых в десятичной системе счисления...

Программа, определяющая число слов...
Необходимо написать программу, определяющую число слов в строке. Одно слово от...

8
mamedovvms
2918 / 839 / 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
Модератор
54125 / 41758 / 28870
Регистрация: 18.05.2008
Сообщений: 98,280
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
Pimpa
0 / 0 / 0
Регистрация: 16.10.2009
Сообщений: 10
16.10.2009, 13:55  [ТС] #5
Спасибо.
P.S. Вторую решать не надо, дошло как
0
mamedovvms
2918 / 839 / 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
Модератор
54125 / 41758 / 28870
Регистрация: 18.05.2008
Сообщений: 98,280
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
2918 / 839 / 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
Привет! Вот еще темы с решениями:

Программа подсчета числа неуспевающих и программа поиска владельца автомобиля...
Помогите пожалуйста решить 2 задачи: Составьте программу подсчета числа...

Программа с метками и оператором перехода GOTO. Программа с циклом полусловия
Задача №9. Прошу вас, помогите. Не знаю как решать вообще.

Программа отсчитывает n число месяцев от заданного месяца
Программа отсчитывает n число месяцев от заданного месяца Ввод &quot;Введите...

Программа, показывающая какое число: возрастающее или убывающее
Написал программу которая показывает какое число, возрастающее или убывающее,но...


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

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

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