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



 

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

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


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


Группа: Active User
Сообщений: 1284
Регистрация: 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
Сообщений: 1284
Регистрация: 6.6.2008
Поблагодарили: 125 раз
Репутация:   25  


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

Замечание модератора:
Эта тема была закрыта автоматически ввиду отсутствия активности в ней на протяжении 100+ дней.
Если Вы считаете ее актуальной и хотите оставить сообщение, то воспользуйтесь кнопкой
или обратитесь к любому из модераторов.


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


Свернуть

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

  Тема Ответов Автор Просмотров Последний ответ
Горячая тема (нет новых ответов) Помогите, пожалуйста, моей дочери выжить!
благотворительный топик
30 vitvirtual 3803 19.5.2018, 8:30
автор: vitvirtual
Открытая тема (нет новых ответов) Продвигаю страницу по запросу "Как сделать игру". Помогите советом, пожалуйста
Я секу в теме! Но подать статью угодным поисковикам образом не смо
22 coremission 2207 8.5.2018, 12:33
автор: coremission
Открытая тема (нет новых ответов) Помогите с выбором ноута
20 rokot 912 23.4.2018, 12:09
автор: Room
Горячая тема (нет новых ответов) Тема имеет прикрепленные файлыПомогите с идеями для форума про успех
Спасибо за каждую идею
43 Zoya83 5183 12.4.2018, 11:42
автор: Zoya83
Открытая тема (нет новых ответов) Лендинг или сайт-визитка для ИП? Помогите определиться
6 Yas18 1142 31.3.2018, 20:57
автор: Yas18


 



RSS Текстовая версия Сейчас: 26.5.2018, 14:35
Дизайн