X   Сообщение сайта
(Сообщение закроется через 3 секунды)



 

Здравствуйте, гость ( Вход | Регистрация )

Открыть тему
Тема закрыта
> Помогите с QBasic
Sudba
Sudba
Topic Starter сообщение 6.4.2009, 17:29; Ответить: Sudba
Сообщение #1


Старожил
******


Группа: Active User
Сообщений: 1283
Регистрация: 6.6.2008
Поблагодарили: 125 раз
Репутация:   25  


Всем привет, помогите выполнить задание. В Уневере дали. Программа ТурбоПаскаль. Сильно ничего по идеи не надо мудрить). Задание:
1. Дан одномерный массив A(N), N<=20
1.1 Найти сумму квадратов элементов с четными номерами.
1.2 Найти среднее арифметическое шести наибольших элементов массива.
1.3 Заменить все нулевые элементы массива на минимальное значение.
2. Дан двумерный массив A(N,N), N<=5
2.1 Найти максимальный элемент среди элементов, расположенных ниже побочной диагонали.
2.2 Найти максимальный элемент в строке, у которой сумма квадратов элементов минимальна.
2.3 Заменить найденными элементами два минимальных элемента главной диагонали.


Вот кто сможет сделать напишите сюда что прописывать надо в проге. Если, что в долгу не останусь))))

Сообщение отредактировал Sudba - 7.4.2009, 17:20


--------------------
[img]http://i077.radikal.ru/1007/da/22483a84f1e0.gif[/img]
0
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
BigMax
BigMax
сообщение 6.4.2009, 18:48; Ответить: BigMax
Сообщение #2


Бывалый
****

Группа: User
Сообщений: 356
Регистрация: 20.6.2008
Из: -за острова на стрежень
Поблагодарили: 97 раз
Репутация:   24  


Первая часть вроде так:

DIM a(20)
LET sum = 0
CLS

REM Zapolnyaem massiv
FOR i = 1 TO 20
INPUT "Vvedite element:", a(i)
NEXT i

REM Proveryaem massiv, zaodno ischem MIN
LET min = a(1)
FOR i = 1 TO 20
IF INT(i / 2) = i / 2 THEN sum = sum + a(i) * a(i)
IF min < a(i) THEN min = a(i)
NEXT i
PRINT "Summa summa kvadratov elementov s chetmyni nomerami:", sum

REM Sortiruem massiv po vozrastaniu

FOR i = 1 TO 19
FOR j = i + 1 TO 20
IF a(i) > a(j) THEN
b = a(i)
a(i) = a(j)
a(j) = b
END IF
NEXT j
NEXT i


REM Ischem sr.arifm 6 naibolshih elementov
LET sum1 = 0
FOR i = 1 TO 6
sum1 = sum1 + a(i)
NEXT i
srarifm = sum1 / 6
PRINT "Srednee arifrm 6 naib.elementov:"; srarifm


REM Zamenyaem nulevye elementy na min.znacheniya
FOR i = 1 TO 20
IF a(i) = 0 THEN a(i) = min
NEXT i

Сообщение отредактировал BigMax - 6.4.2009, 18:51
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Sudba
Sudba
Topic Starter сообщение 7.4.2009, 17:20; Ответить: Sudba
Сообщение #3


Старожил
******


Группа: Active User
Сообщений: 1283
Регистрация: 6.6.2008
Поблагодарили: 125 раз
Репутация:   25  


Грубо извиняюсь, то задание мне нужно для порграммы ТурбоПаскаль. Если кто может сделайте)


--------------------
[img]http://i077.radikal.ru/1007/da/22483a84f1e0.gif[/img]
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Открыть тему
Тема закрыта
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0


Свернуть

> Похожие темы

  Тема Ответов Автор Просмотров Последний ответ
Открытая тема (нет новых ответов) Помогите выбрать программу
Помогите выбрать программу
11 impak 1348 11.12.2017, 13:11
автор: Mikki
Открытая тема (нет новых ответов) Помогите найти плагин на WP
Отзывы с профилей соц сетей
1 SEOMR 445 30.11.2017, 7:18
автор: Nell
Открытая тема (нет новых ответов) Помогите найти проблему
Долгий ответ сервера
6 maxim1249 698 29.11.2017, 17:27
автор: genjnat
Открытая тема (нет новых ответов) Помогите оценить новотник. Плиз
1 Alex-777 529 29.11.2017, 7:18
автор: grumdas
Открытая тема (нет новых ответов) Помогите с неймингом для сборника советов
советы по разработки и жизни
11 coremission 1887 15.11.2017, 22:23
автор: rogefer


 



RSS Текстовая версия Сейчас: 16.12.2017, 21:10
Дизайн