Программирование циклических процессов

@and.one · Регистрация: 09.03.2011

Author24 — интернет-сервис помощи студентам

Дана функция: y=-2*x^2+3*x+1.5
Составить алгоритм для поиска максимального значения y, если x изменяется в диапазоне 0.1<=x<=1 с шагом -x=0.01
Решить нужно с помощью операторов While и Repeat Until.
C for'ом сделал...с этими не получается....помогите пожалйста кому не трудно....зааранее спасибо....

@Puporev · 09.03.2011, 15:55

Сообщение от and.one

C for'ом сделал.

Покажи....

@and.one · 09.03.2011, 16:19 **[ТС]**

Код

var i:integer;
max, x, y:real;
begin
max:=-100;
for i=0 to 90 do
begin
y:=(-2*sqr(0,1+0.01*i)+3*(0.1+0.01*i+1.5));
if y>max then max:=y;
end;
writeln ('MAX= ', max);
readln;
end.

@Puporev · 09.03.2011, 16:26

Pascal

uses crt;
var xn,xk,h,x,y,mx:real;
begin
clrscr;
xn:=0.1;
xk:=1;
h:=0.01;
x:=xn;
mx:=-2*x*x+3*x+1.5;
while x<=xk+h/2 do
 begin
  y:=-2*x*x+3*x+1.5;
  if y>mx then mx:=y;
  x:=x+h;
 end;
write('Max=',mx:0:2);
readln
end.

@Mad_Dog · 09.03.2011, 17:36

что касается меня лично, то я бы вот эту строчку кода

Pascal

1	while x<=xk+h/2 do

несколько переделал, например вот так

Pascal

1 2	Z:=xk+h/2 do while x<=Z do

потому что выражение xk+h/2 вычисляется на каждой итерации цикла, а в теле цикла значения переменных не меняются. Получается, что вычисляется каждый раз одно и то же...
А то что граница цикла вычисляется каждый раз показывает скрин отладчика

@Mad_Dog · 09.03.2011, 17:51

после изменения кода границы цикла уже не вычисляются, а вычислется лишь условное выражение

Новые блоги и статьи
Из чего и как собрать свой домашний кинотеатр bt_guru 21.01.2025 Создание домашнего кинотеатра: от идеи до реализации В современном мире домашний кинотеатр стал неотъемлемой частью комфортного жилого пространства, предоставляя возможность наслаждаться. . .	Ошибки стиральных машин bt_guru 21.01.2025 Современные стиральные машины представляют собой сложные электронные устройства, оснащенные множеством датчиков и систем контроля. Они способны самостоятельно определять вес загруженного белья,. . .	Копирование (маппинг) объектов в JavaScript bytestream 21.01.2025 В современной разработке программного обеспечения копирование объектов представляет собой фундаментальную операцию, которая требует особого внимания и понимания. Маппинг объектов в JavaScript – это. . .	Как работать с Apache Kafka в C# .NET bytestream 21.01.2025 Apache Kafka представляет собой распределенную платформу потоковой передачи данных, которая произвела революцию в области обработки больших объемов информации в реальном времени. Эта система,. . .	Как использовать RabbitMQ в C# .NET bytestream 21.01.2025 RabbitMQ представляет собой мощный брокер сообщений, который эффективно решает эту задачу, обеспечивая надежную передачу данных между множеством приложений. Этот инструмент реализует протокол AMQP. . .	Как объединить последние коммиты в Git bytestream 21.01.2025 В мире разработки программного обеспечения система контроля версий Git стала незаменимым инструментом для управления исходным кодом. Одной из наиболее полезных, но порой сложных для освоения функций. . .
Как запушить новую локальную ветку (branch) в удалённый репозиторий Git и отслеживать её bytestream 21.01.2025 В современной разработке программного обеспечения система контроля версий Git стала неотъемлемым инструментом для эффективного управления кодом и организации командной работы. Одной из ключевых. . .	Как создать директорию и все родительские директории, указанные в пути, с помощью Python bytestream 21.01.2025 Python предоставляет мощные инструменты для работы с файловой системой через встроенные модули os и pathlib, которые значительно упрощают процесс манипуляции директориями. Эти модули содержат. . .	Как работать с массивами в JavaScript bytestream 21.01.2025 Массивы в JavaScript представляют собой один из фундаментальных типов данных, который позволяет хранить упорядоченные коллекции различных элементов в одной переменной. Эта структура данных является. . .	Какая максимальная длина адреса (URL) в различных браузерах и стандартах bytestream 21.01.2025 В современном мире интернет-технологий URL-адреса (Uniform Resource Locator) играют фундаментальную роль в функционировании веб-пространства. Эти уникальные идентификаторы ресурсов стали неотъемлемой. . .	Как сбросить локальный репозиторий до состояния удалённого репозитория Git bytestream 21.01.2025 При разработке программного обеспечения с использованием системы контроля версий Git разработчики часто сталкиваются с необходимостью синхронизации локального и удаленного репозиториев. Данная задача. . .	Как запретить подсветку выделенного текста с помощью CSS bytestream 20.01.2025 Подсветка текста при выделении является стандартным поведением браузера, которое не всегда соответствует дизайнерским решениям или функциональным требованиям веб-приложения. Выделение текста может. . .

@and.one 0 / 0 / 0 Регистрация: 09.03.2011 Сообщений: 3
		1
	Программирование циклических процессов 09.03.2011, 15:48. Показов 780. Ответов 5 Метки нет (Все метки) Дана функция: y=-2x^2+3x+1.5 Составить алгоритм для поиска максимального значения y, если x изменяется в диапазоне 0.1<=x<=1 с шагом -x=0.01 Решить нужно с помощью операторов While и Repeat Until. C for'ом сделал...с этими не получается....помогите пожалйста кому не трудно....зааранее спасибо.... 0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,182
	09.03.2011, 15:55	2
	Сообщение от and.one C for'ом сделал. Покажи.... 0

@and.one 0 / 0 / 0 Регистрация: 09.03.2011 Сообщений: 3
	09.03.2011, 16:19 [ТС]	3
	Код var i:integer; max, x, y:real; begin max:=-100; for i=0 to 90 do begin y:=(-2sqr(0,1+0.01i)+3(0.1+0.01i+1.5)); if y>max then max:=y; end; writeln ('MAX= ', max); readln; end. 0

@Mad_Dog Фрилансер 452 / 433 / 117 Регистрация: 01.06.2010 Сообщений: 1,314
	09.03.2011, 17:51	6
	после изменения кода границы цикла уже не вычисляются, а вычислется лишь условное выражение 0