Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 26.05.2020
Сообщений: 6

Циклы с неизвестным числом повторений.

14.06.2020, 08:20. Показов 1269. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
можно ли разработать программу, в которой задача решается 2 раза (выводится 2 результата), с использова-нием цикла while и do while. Если да то как?
Миниатюры
Циклы с неизвестным числом повторений.  
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
14.06.2020, 08:20
Ответы с готовыми решениями:

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

Одномерные массивы. Циклы с заданным числом повторений
Напишите пожалуйста программу Pascal ABS: Пожалуйста большая просьба напишитее ее правильно и обратите внимание к содержанию отчета где...

Одномерные массивы. Циклы с заданным числом повторений
Напишите пожалуйста программу Pascal ABS: Условие: Найти числа встречающиеся среди элементов массива X более одного раза. Элементы...

5
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
14.06.2020, 10:01
Цитата Сообщение от Navernor Посмотреть сообщение
с использованием цикла while и do while
А чем отличается while и do while?
0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,060
14.06.2020, 10:07
Цитата Сообщение от Navernor Посмотреть сообщение
ЦИКЛЫ С НЕИЗВЕСТНЫМ ЧИСЛОМ ПОВТОРЕНИЙ
С чего это вы взяли, что число повторений неизвестно?
В вашем случае изменяется только подкоренное значение от 2.5 до 100.
Т.е. число повторений 100:2.5 = 40.

Цитата Сообщение от Navernor Посмотреть сообщение
с использова-нием цикла while и do while
Что за цикл такой „do while“?
В паскале от родясь такого цикла не было!

Pascal
1
2
3
4
begin
  1.to(40).Sum(n->1/(n*2.5)**0.5).Println;
  SeqGen(40,2.5,x->x+2.5).Sum(x->1/x**0.5).Println;
end.
1
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
14.06.2020, 10:08
С while
Pascal
1
2
3
4
5
6
7
8
9
10
11
var x,y:real;
begin
x:=2.5;
y:=0;
while x<=100 do
 begin
  y:=y+1/sqrt(x);
  x:=x+2.5;
 end;
write('y=',y:0:2);
end.
1
0 / 0 / 0
Регистрация: 26.05.2020
Сообщений: 6
15.06.2020, 10:36  [ТС]
не знаю, всё это дела начал изучать и пока мало чё знаю
0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,060
15.06.2020, 10:44
Цитата Сообщение от Navernor Посмотреть сообщение
всё это дела начал изучать
Ну, дык, нужно изучать, а не просить чужой код!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
15.06.2020, 10:44
Помогаю со студенческими работами здесь

Разработка циклической программы с неизвестным количеством повторений
Здравствуйте форумчане!Требуется разработать две программы (или одну с двумя циклами) с использованием операторов повтора (циклических...

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

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

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

разработка программ с использованием циклов с неизвестным числом повторений(блок-схема)
Помогите пожалуйста составить блок-схему к программе: Program lab4; uses crt; Const t=0.01; Var p,n:integer; s,y:real; Begin ...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru