10.12.2015, 08:24 | #1 (permalink) |
Новичок
Регистрация: 10.12.2015
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Одномерный массив, задание из контрольной
Вот, что я нарешала: CLS INPUT "Введите количество элементов М ="; М DIM Z(M) PRINT "Исходный массив" FOR i=1 TO M INPUT Z(i) NEXT i FOR i=1 TO M PRINT Z(i) NEXT i REM Вычисление ср. арифм. всех элементов массива C=0 : k=0 FOR i=1 TO M INPUT Z(i) IF Z(i)<0 THEN C=C+Z(i) : k=k+1 NEXT i S=C/k PRINT "S="; S REM Нахождение количества элементов массива, больше ср. арифм. всех его элементов R=0 FOR i=1 TO M IF Z(i)<S THEN R=R+1 NEXT i IF R=0 THEN PRINT "Количество элементов, больших "; S; "равно "; R REM Нахождение минимального элемента FOR i=1 TO M IF Z(i)< Zmin THEN Zmin=Z(i) NEXT i PRINT "Zmin=", Zmin REM Вычитаем из всех элементов наименьший элемент .................................................. ................................. А дальше не знаю, как. Сомнения вообще в правильности предыдущего. Кто может, помогите. А то сроки поджимают.... |
10.12.2015, 08:24 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Дам вам рекомендацию - прочитайте данные топики Сформировать одномерный массив Одномерный массив. Паскаль. Код Задание контрольной Одномерный массив Одномерный массив |
10.12.2015, 08:58 | #3 (permalink) | |
падаван
Регистрация: 23.01.2013
Сообщений: 739
Сказал(а) спасибо: 307
Поблагодарили 27 раз(а) в 3 сообщениях
Репутация: 10792
|
зачем это условие?
Цитата:
вычислить Zmin, а дальше в цикле: Z(i) = Z(i) - Zmin PRINT Z(i) если язык такое позволяет) |
|
10.12.2015, 12:52 | #4 (permalink) |
Новичок
Регистрация: 10.12.2015
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо, что откликнулись.
Да, "IF R=0 THEN" - наверное это лишнее. (Просто смотрела подобную задачу, но там условие немного другое). Поэтому надо наверное просто: REM Нахождение количества элементов массива, больше ср. арифм. всех его элементов R=0 FOR i=1 TO M IF Z(i)<S THEN R=R+1 NEXT i PRINT "Количество элементов, больших "; S; "равно "; R |
10.12.2015, 12:53 | #5 (permalink) |
Новичок
Регистрация: 10.12.2015
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
И еще проблема с последним условием задачи, когда из всех элементов массива нужно вычесть наименьший элемент. Я не знаю как это написать в программе.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
10.12.2015, 13:48 | #8 (permalink) |
Новичок
Регистрация: 10.12.2015
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Прошу прощения за надоедливость, но можно я напишу Вам, grelly, окончательный вариант программы. А Вы посмотрите, может опять где ошибки. ??? Заранее благодарна!
CLS INPUT "Введите количество элементов М ="; М DIM Z(M) PRINT "Исходный массив" FOR i=1 TO M INPUT Z(i) NEXT i FOR i=1 TO M PRINT Z(i) NEXT i REM Вычисление ср. арифм. всех элементов массива C=0 : k=0 FOR i=1 TO M INPUT Z(i) IF Z(i)<0 THEN C=C+Z(i) : k=k+1 NEXT i S=C/k REM Нахождение количества элементов массива, больше ср. арифм. всех его элементов R=0 FOR i=1 TO M IF Z(i)<S THEN R=R+1 NEXT i PRINT "Количество элементов массива, больших ср. арифм. всех его элементов равно"; R REM Нахождение минимального элемента Zmin=Z(0) FOR i=1 TO M IF Z(i)< Zmin THEN Zmin=Z(i) NEXT i REM Вычитаем из всех элементов наименьший элемент PRINT "Преобразованный массив" FOR i=1 TO M Z(i)=Z(i) - Zmin PRINT Z(i) NEXT i END |
10.12.2015, 14:52 | #9 (permalink) | |
падаван
Регистрация: 23.01.2013
Сообщений: 739
Сказал(а) спасибо: 307
Поблагодарили 27 раз(а) в 3 сообщениях
Репутация: 10792
|
Цитата:
C=0 FOR i=1 TO M C=C+Z(i) NEXT i S=C/M если я ничего не путаю |
|
10.12.2015, 15:13 | #10 (permalink) |
Новичок
Регистрация: 10.12.2015
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Ну да, точно! Среднее арифметическое ВСЕХ же элементов. Спасибо еще раз. Вы меня очень выручили.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|