While do и сложное ветвление

@tuhlopuz · Регистрация: 31.05.2014

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

кусок кода

Pascal
1
2
3
4
5
6
7
i:=1;
while i<=5 do begin
if (a[i] mod 2) = 0 then begin chet:=chet+1; s:=s+a[i] end
else begin nechet:=nechet+1; s1:=s1+a[i] end;
write('ВООБЩЕМ ТУТ ВЫВОД ЧЕТНЫХ И НЕЧЕТНЫХ, ПЛЮС ИХ СУММА');
readkey;
end.

так вот вопрос: куда приписать end; ?
может как-то оптимизировать это дело можно?

@APALoff · 02.06.2014, 16:17

Не забывайте использовать теги при оформлении сообщения!

i:=1;
while i<=5 do
Begin
if (a[i] mod 2) = 0 then
begin
chet:=chet+1;
s:=s+a[i];
end
else
begin
nechet:=nechet+1;
s1:=s1+a[i];
end;
write('ВООБЩЕМ ТУТ ВЫВОД ЧЕТНЫХ И НЕЧЕТНЫХ, ПЛЮС ИХ СУММА');
end;
end.

@tuhlopuz · 03.06.2014, 20:11 **[ТС]**

ничего не изменилось.. так я пробовал, он ничего не выводит, как еще можно?

Добавлено через 11 минут
всё испрал)) забыл наращивать i

Добавлено через 7 часов 15 минут
кст, может кто подскажет более оптимизированный код? как можно еще оформить?

@JokeR.BY · 03.06.2014, 20:51

tuhlopuz, как я понял, вы заполняете массив, потом выводите каждое, и попутно находите отдельно сумму чётных и сумму нечётных. а зачем инкремент для чётных / нечётных? среднюю величину находите чтоли?

Добавлено через 11 минут

Pascal
1
nechet:=nechet+1;

заменить на

Pascal
1
Inc(nechet);

. так же и со вторым.

@tuhlopuz · 04.06.2014, 13:03 **[ТС]**

JokeR.BY, в массив забиваю числа, нахожу кол-во четных и нечетных, ну и их суммы

@JokeR.BY · 04.06.2014, 18:24

tuhlopuz, а счётчики количества чётных / нечётных вам тогда зачем?

Новые блоги и статьи Все статьи Все блоги /
Интеграция Hangfire с RabbitMQ в проектах C#.NET stackOverflow 18.04.2025 Разработка современных . NET-приложений часто требует выполнения задач "за кулисами". Это может быть отправка email-уведомлений, генерация отчётов, обработка загруженных файлов или синхронизация. . .	Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики ArchitectMsa 18.04.2025 Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .	Префабы в Unity: Использование, хранение, управление GameUnited 18.04.2025 Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .	RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit) stackOverflow 18.04.2025 Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .	Типы в TypeScript run.dev 18.04.2025 TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .
Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core stackOverflow 18.04.2025 Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .	Коммуникация в реальном времени с SignalR в C# на примере создания чата UnmanagedCoder 17.04.2025 Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .	Реализация CQRS с MediatR на C# .NET stackOverflow 17.04.2025 Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .	Verilog и интеллектуальная собственность - "глазами" обученной LM модели. Hrethgir 17.04.2025 В сети встречаются участники, заявляющие что код на Verilog ни о чём не говорит. Но вот патентная практика на самом деле показывает обратное ими утверждаемому. То-есть код на Verilog включают в. . .	Свап-файл дополнительно к разделу (если вдруг не хватает или не создан) jigi33 17.04.2025 ПОДКЛЮЧЕНИЕ ДОПОЛНИТЕЛЬНОГО SWAP ПРОСТРАНСТВА, Т. О. , РАСШИРЕНИЕ ЕГО РАЗМЕРА В Linux можно использовать как раздел подкачки (swap), так и файл подкачки (swap-файл). Чтобы создать swap-файл вместо. . .

@APALoff 1647 / 1076 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	02.06.2014, 16:17
	Не забывайте использовать теги при оформлении сообщения! i:=1; while i<=5 do Begin if (a[i] mod 2) = 0 then begin chet:=chet+1; s:=s+a[i]; end else begin nechet:=nechet+1; s1:=s1+a[i]; end; write('ВООБЩЕМ ТУТ ВЫВОД ЧЕТНЫХ И НЕЧЕТНЫХ, ПЛЮС ИХ СУММА'); end; end. 0

@tuhlopuz 0 / 0 / 0 Регистрация: 31.05.2014 Сообщений: 6
	03.06.2014, 20:11 [ТС]
	ничего не изменилось.. так я пробовал, он ничего не выводит, как еще можно? Добавлено через 11 минут всё испрал)) забыл наращивать i Добавлено через 7 часов 15 минут кст, может кто подскажет более оптимизированный код? как можно еще оформить? 0

@tuhlopuz 0 / 0 / 0 Регистрация: 31.05.2014 Сообщений: 6
	04.06.2014, 13:03 [ТС]
	JokeR.BY, в массив забиваю числа, нахожу кол-во четных и нечетных, ну и их суммы 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	04.06.2014, 18:24
	tuhlopuz, а счётчики количества чётных / нечётных вам тогда зачем? 0

Опции темы