Лидеры рейтинга

ID: 401284

Михаил Александров

Советник

380

Россия, Санкт-Петербург


ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

341

Россия, пос. Теплоозёрск, ЕАО


ID: 401888

puporev

Профессор

216

Россия, Пермский край


ID: 405338

vovaromanov.jr

1-й класс

114


ID: 400669

epimkin

Профессионал

112


ID: 242862

Hunter7007

Мастер-Эксперт

30

Россия, Омск


ID: 137394

Megaloman

Мастер-Эксперт

26

Беларусь, Гомель


8.10.2

13.10.2021

JS: 2.10.2
CSS: 4.6.0
jQuery: 3.6.0
DataForLocalStorage: 2021-10-23 16:46:01-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 160265

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Гришко Максим Сергеевич
Дата: 12.02.2009, 08:28 Консультация закрыта
Поступило ответов: 1

C помощью while,for,until.Даны действительные числа а[1..n],b[1..m].В последовательности а[1..n] и в последовательностиb[1..m] все члены, следующие за членом с наибольшим значением, заменить на 0.5.

Ответ # 243471 от Botsman
Здравствуйте, Гришко Максим Сергеевич!
Вот решение вашей задачи. Реализовано по принципу 3-в-одном :) Поскольку при помощи разных циклов нужно было ОБРАБАТЫВАТЬ последовательности, процедуры ГЕНЕРАЦИИ последовательности и ПЕЧАТИ едины для всех трех случаев и основаны на цикле FOR. Хотя при необходимости можно поправить и это.

Приложение:


Botsman

Посетитель
12.02.2009, 10:46
Мини-форум консультации # 160265
Delph

1

= общий =    12.02.2009, 09:48

Все три цикла нужно использовать в одной программе? Указанная задача явно решается циклом for...

неизвестный

2

= общий =    12.02.2009, 09:50

нет не в 1й просто нужно 3 варианта решения с этими циклами

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

puporev

Профессор

Рейтинг: 216

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 155

Gluck

9-й класс

Рейтинг: 82

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0

Орловский Дмитрий

Мастер-Эксперт

Рейтинг: 0