Ошибка деление на ноль

@Yufi · Регистрация: 11.05.2015

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

Что нужно исправить в этой процедуре, чтобы не было деления на ноль ?

Pascal

Procedure otnoshenie(G:vektor);
var
  Rez: real;
  s, s1, i, iMax, max: integer;
begin
  writeln;
  s := 1;s1 := 1;
  imax := 1; max := G[1];
  for i := 1 to n do
  begin
    if G[i] > max then imax := i; max := G[i] end;
  for i := 1 to imax do s := s * G[i];
  for i := imax to n do s1 := s1 * G[i];
  Rez := s / s1;
  Writeln('Отношение в массиве ', ' = ', Rez:5:2);
  delay(300);
  Writeln('&#143;Произведение до max = ', s);
  delay(300);
   Writeln('&#143;Произведение после max = ', s1);
  delay(300);
  end;

@Puporev · 25.05.2015, 20:31

Это нужно так

Pascal

 for i := 1 to n do
  if G[i] > max then
   begin
     imax := i;
     max := G[i]
   end;

А деление на 0 от того что либо вектор не заполнен либо содержит 0.

@Yufi · 25.05.2015, 20:38 **[ТС]**

как можно это исправить, если вектор заполняется полностью генератором случайных чисел ?

@Puporev · 25.05.2015, 20:50

Pascal

for i:=1 to n do
repeat
a[i]:=-5+random(11);
until a[i]<>0;

@Yufi · 25.05.2015, 20:56 **[ТС]**

Все равно ошибка.
Он подчеркивает строку Rez := s / s1;

@Puporev · 25.05.2015, 20:58

Если в векторе не 0 то этого не может быть. Собери мозг в кучку.

Новые блоги и статьи
Интеграция Arduino и ChatGPT: Практическое руководство InfoMaster 16.01.2025 В современную эпоху технологических инноваций интеграция искусственного интеллекта с микроконтроллерами открывает принципиально новые возможности для создания умных устройств и автоматизированных. . .	Как создать робота, управляемого ChatGPT InfoMaster 16.01.2025 Концепция проекта В современную эпоху искусственный интеллект и робототехника становятся все более доступными для энтузиастов и разработчиков. Создание роботизированной руки, управляемой ChatGPT,. . .	Как создать ChatGPT бота в Telegram на Python InfoMaster 16.01.2025 В современном мире технологии искусственного интеллекта становятся все более доступными для разработчиков, открывая новые возможности для создания умных и интерактивных приложений. Одним из самых. . .	Машинное обучение с помощью Python InfoMaster 16.01.2025 Машинное обучение стало неотъемлемой частью современных технологий, позволяя компьютерам учиться на основе данных и принимать решения без явного программирования. В сочетании с языком. . .	Использование связки C# и PHP в корпоративной разработке и микросервисной архитектуре InfoMaster 16.01.2025 Введение в интеграцию C# и PHP В современной корпоративной разработке все чаще возникает потребность в создании гибких и масштабируемых решений, способных эффективно решать широкий спектр. . .	Как использовать Kerio дома для управления сетью и пользователями InfoMaster 16.01.2025 Использование технологий для улучшения повседневной жизни стало неотъемлемой частью современного быта. Одной из таких технологий является Kerio — мощный инструмент для управления сетью и. . .
Есть ли будущее у DVD и Blu-ray? InfoMaster 16.01.2025 В эпоху стремительного развития цифровых технологий и повсеместного распространения потоковых сервисов вопрос о будущем физических носителей информации становится все более актуальным. Особенно остро. . .	Как проводить научные вычисления на Python InfoMaster 15.01.2025 Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .	Создание игры типа Minecraft на PyGame/Python: пошаговое руководство InfoMaster 15.01.2025 В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .	Как создать свою первую игру в стиле Doom на Unreal Engine InfoMaster 15.01.2025 Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .	Параллельное программирование: основные технологии и принципы InfoMaster 15.01.2025 Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .	Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .

@Yufi 0 / 0 / 0 Регистрация: 11.05.2015 Сообщений: 3
	25.05.2015, 20:38 [ТС]	3
	как можно это исправить, если вектор заполняется полностью генератором случайных чисел ? 0

@Yufi 0 / 0 / 0 Регистрация: 11.05.2015 Сообщений: 3
	25.05.2015, 20:56 [ТС]	5
	Все равно ошибка. Он подчеркивает строку Rez := s / s1; 0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	25.05.2015, 20:58	6
	Если в векторе не 0 то этого не может быть. Собери мозг в кучку. 0