IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Массивы, одно- и двумерные массивы
org777
сообщение 1.12.2008 18:25
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 47
Пол: Мужской
Реальное имя: Игорь

Репутация: -  0  +


Привет всем. Спасибо за помощь с предыдущими заданиями!)) give_rose.gif
Задала еще лабораторки wacko.gif
Объясните пожалуйста популярно, как это все делается?
P.S. на первой фотке задания с 1 по 3, на других фотках - только самое верхнее задание


Эскизы прикрепленных изображений
Прикрепленное изображение Прикрепленное изображение Прикрепленное изображение

--------------------
Когда вам говорят - "придурок" - это намек на то, что рядом с вами находится дура.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Ozzя
сообщение 2.12.2008 18:48
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


В 1-й задаче должно быть "массива А, удовлетворяющих условию -2<a[i]<2

...
k:=0;
sum:=0;
for i:=1 to n do
if (a[i]<2) and (a[i]>-2) then {выбираем только те элементы массива, которые удовл. условию}
begin
sum:=sum+a[i]; {Считаем их сумму...}
k:=k+1; {... и количество}
end;
sum:=sum/k; {средн. ариф-кое}
...


Сообщение отредактировано: Ozzя - 2.12.2008 18:52
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
org777   Массивы   1.12.2008 18:25
Lapp   Объясните пожалуйста популярно, как это все делает...   1.12.2008 18:36
org777   В том-то и дело, что не объясняют((( нам дают лист...   1.12.2008 19:30
Lapp   Я просто надеюсь на вашу помощь... Если нет - что ...   1.12.2008 19:48
org777   Кому легкая, а кому нет... Я попытался 3 сделать, ...   1.12.2008 20:23
Lapp   Я попытался 3 сделать, только она у меня криво как...   2.12.2008 1:02
org777   Он числа рандомом не выводит... Паскалевские теги...   2.12.2008 7:58
Lapp   Он числа рандомом не выводит... Что сие могло бы о...   2.12.2008 13:35
org777   Под ранодомом я понимаю то, чтобы он сам задавал ч...   2.12.2008 18:35
Ozzя   Вот это и есть задание массива из случайных элемен...   2.12.2008 18:40
org777   т.е. я типа все правильно сделал?..   2.12.2008 18:44
volvo   можно еще автоматически выбирать размеры матрицы, ...   2.12.2008 18:44
Ozzя   В 1-й задаче должно быть "массива А, удовлетв...   2.12.2008 18:48
org777   Ладно, с этой задачей разобрался. Помогите пожалуй...   2.12.2008 18:50
Ozzя   Зад. 2.2 ... k:=0; readln(n); for i:=1 to n do b...   2.12.2008 18:59
org777   это ты про задачу "..... имеющих четные поря...   2.12.2008 19:05
org777   подправьте пожалуйста, если что не так...))) Prog...   2.12.2008 19:01
Ozzя   2.1 ... if (not odd(a)) {четное} and (frac(sqrt(a...   2.12.2008 19:05
Ozzя   s:=0; // !!!   2.12.2008 19:06
org777   s=0 к той, которую я просил подправить? Тогда он п...   2.12.2008 19:09
Ozzя   Зад. 3.1 Удаление столбца/строки решалось. Ищи по ...   2.12.2008 19:10
org777   блин, в задачу 2.1 я все-таки не врубаюсь нифига.....   2.12.2008 19:34
Ozzя   (frac(sqrt(a))=0) {квадрат числа} Эта часть не пон...   2.12.2008 19:38
org777   Люди, пожалуйста, напишите полный код к последним ...   3.12.2008 18:56
org777   подправьте пожалуйста 2.1 :blush: А то че-то не п...   4.12.2008 12:32
volvo   Зачем тебе здесь M и N? У тебя по условию только N...   4.12.2008 12:44
org777   Спасибо volvo.. Я очень вам всем благодарен!   4.12.2008 15:02
org777   Короче, преподша говорит, что мое творение - невер...   8.12.2008 19:10
Lapp   с неделю назад мне здесь сказали, что я все верно ...   8.12.2008 19:28
Lapp   Посмотрите пожалуйста задачу, которая в середине и...   8.12.2008 20:05
org777   А что означает break?   8.12.2008 21:30
Айра   Процедура, прерывающая выполнение цикла for\w...   8.12.2008 21:43
amega   break преривание выполнения цикла, не дожидаясь вы...   8.12.2008 21:45
org777   Привет всем! Люди, такая проблема: задачка не ...   16.12.2008 19:28
volvo   Замени свой фрагмент вот на этот: for k:=I to n-1 ...   16.12.2008 19:59
org777   А блин, я перепутал буквы))) Сессия просто, напряж...   16.12.2008 21:38


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 20.07.2025 18:26
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"