Проверить правильность решения

@Kaylana · Регистрация: 29.03.2014

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

QBasic/QuickBASIC

CLS: INPUT N: DIM A(N), B(N), C(N),Y(N)
FOR I=1 TO N
READ A(I),B(I),C(I)
SA=SA+a(i) : SB=SB+b(i)
IF AMIN>a(i) THEN AMIN=a(i)
IF BMAX<b(i) THEN BMAX=b(i)
IF CMIN>c(i) THEN CMIN=c(i)
NEXT I
ASR=SA/N: BSR=SB/N
FOR I=1 TO N
IF C(i)>0 THEN y(i)=AMIN*BMAX  ELSE IF C(i)<0 THEN y(i)=BSR / ASR ELSE y(i)=ABS(ASR-CMIN)
PRINT Y(I)
NEXT I
DATA 8,2,-3,4,-25,98,0,-6,57,18,53,60,12,-53,77
END

amin, cmin - наименьшие значения массивов, asr, bsr- средние значения массивов, bmax -наибольшее значение массива, |х| - абсолютная величина числа, оператор ABS.

@bormant · 30.03.2014, 20:51

1) В DATA 5 троек значений, если ввести n>5, будет ошибка. Возможно, значение n просто предполагалось равной 5 константой?
2) amin, bmax, cmin при первом использовании равны 0. Если в a() или c() все элементы >0, то amin и bmin будут содержать 0 вместо значения минимального элемента. Если в b() все элементы <0, то bmax будет содержать 0 вместо значения максимального элемента.
Либо в качестве начального значения присваивать значение первого элемента, либо минимумам присваивать заведомо большое значение (скажем, 3.4e38 для чисел одинарной точности, 1.79d308 -- двойной), максимуму -- заведомо маленькое (скажем, -3.4e38 или -1.79d308).

@Kaylana · 31.03.2014, 11:26 **[ТС]**

bormant, спасибо)

Новые блоги и статьи
Как написать микросервис на Go/Golang InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

@bormant Модератор 7797 / 4620 / 2831 Регистрация: 22.11.2013 Сообщений: 13,120 Записей в блоге: 1
	30.03.2014, 20:51	2
	1) В DATA 5 троек значений, если ввести n>5, будет ошибка. Возможно, значение n просто предполагалось равной 5 константой? 2) amin, bmax, cmin при первом использовании равны 0. Если в a() или c() все элементы >0, то amin и bmin будут содержать 0 вместо значения минимального элемента. Если в b() все элементы <0, то bmax будет содержать 0 вместо значения максимального элемента. Либо в качестве начального значения присваивать значение первого элемента, либо минимумам присваивать заведомо большое значение (скажем, 3.4e38 для чисел одинарной точности, 1.79d308 -- двойной), максимуму -- заведомо маленькое (скажем, -3.4e38 или -1.79d308). 2

@Kaylana 0 / 0 / 0 Регистрация: 29.03.2014 Сообщений: 4
	31.03.2014, 11:26 [ТС]	3
	bormant, спасибо) 0