|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
16.05.2009, 12:50 | #1 |
Пользователь
Регистрация: 16.05.2009
Сообщений: 15
|
Легкая задачка для асов Паскаль Турбо
Дан массив Y длины n. Сформировать массив W по формуле:
Wi = 2 ∙ Yi + | Yi |. В массиве W вычислить сумму элементов, не удовлетво-ряющих условию a ≤ Wi < b. Если кому-то по силам решить данную задачку - буду премного благодарен. Ваш Александр. |
16.05.2009, 13:14 | #2 |
Форумчанин
Регистрация: 19.02.2009
Сообщений: 622
|
Код:
Жми на весы!!!
Последний раз редактировалось Chudo4258; 16.05.2009 в 13:17. |
16.05.2009, 14:01 | #3 |
Пользователь
Регистрация: 16.05.2009
Сообщений: 15
|
СПАСИБО огромное!!! Можно еще обратиться?
|
16.05.2009, 14:03 | #4 | |
Участник клуба
Регистрация: 29.07.2008
Сообщений: 1,091
|
Цитата:
Кто бы ты ни был - не думай о себе слишком (с)
|
|
16.05.2009, 14:04 | #5 |
Пользователь
Регистрация: 16.05.2009
Сообщений: 15
|
Все положительные элементы массива X занести в массив Y. Обнулить минимальный элемент в массиве Y.
Program Alex; var x, y: array [1..10] of integer; N, min, q, i: integer; begin writeln ('Vvedite N'); readln (N); for i:=1 to N do begin write('Vvedite x[i]= '); readln (x[i]); end; q:=1; for i:=1 to N do begin if x[i]>0 then begin y[q]:=X[i]; q:=q+1; end; end; min:=y[1]; for i:= 2 to q-1 do if min>y[q] then min:=y[q]; min:=0; for i:=1 to N do write (x[i],' '); writeln (' - massiv X'); for i:=1 to q-1 do write (y[i],' '); writeln ('- massiv Y'); readln; end. в чем ошибка? минимум не считает... и на 0 не заменяет... если не трудно - исправьте. Ваш Александр. |
16.05.2009, 14:29 | #6 |
Участник клуба
Регистрация: 15.05.2009
Сообщений: 1,222
|
"for i:= 2 to q-1 do
if min>y[q] then min:=y[q]; min:=0;" ошибка в этой части. Необходимо: for i:= 2 to q-1 do begin if min>y[i] then begin min:=y[i]; zero:=i; end; end; y[zero]:=0; Переменная zero обозначает номер элемента который нужно обнулить
Единственное, что ограничивает полет мысли программиста-компилятор
|
16.05.2009, 14:57 | #7 |
Пользователь
Регистрация: 16.05.2009
Сообщений: 15
|
Друг, я что-то опять не то написал....
Program Alex; var x, y: array [1..10] of integer; N, min, q, i, zero: integer; begin writeln ('Vvedite N'); readln (N); for i:=1 to N do begin write('Vvedite x[i]= '); readln (x[i]); end; q:=1; for i:=1 to N do begin if x[i]>0 then begin y[q]:=X[i]; q:=q+1; end; end; min:=y[1]; for i:= 2 to q-1 do begin if min>y[i] then begin min:=y[i]; zero:=i; end; end; y[zero]:=0; readln; end. не работает... |
16.05.2009, 15:18 | #8 | |
Форумчанин
Регистрация: 19.02.2009
Сообщений: 622
|
Цитата:
Код:
Жми на весы!!!
Последний раз редактировалось Chudo4258; 16.05.2009 в 15:24. |
|
16.05.2009, 15:30 | #9 |
Пользователь
Регистрация: 16.05.2009
Сообщений: 15
|
Большое спасибо! Осталось немного задач. Можно еще воспользоваться помощью магистров? Ваш Александр.
|
16.05.2009, 15:31 | #10 |
Пользователь
Регистрация: 16.05.2009
Сообщений: 15
|
В массиве для элементов с четными номерами найти индекс минимального элемента и его значение. Для элементов с нечетными номерами определить их произведение.
Мои наброски: Program Alex; var x: array [1..5] of integer; N, i, b, min: integer; begin clrscr writeln ('Vvedite kol-vo elementov massiva'); readln (N); for i:=1 to N do begin write ('x[',i,']='); readln (x[i]) end; min:=x[1]; qwe:=1; for i:=1 to N do if min>x[i] then begin min:=x[i]; qwe:=i; end; writeln ('Nomer minimalnogo elementa = ', qwe); readln; for i:=1 to N do begin if (x[i] mod 2)=0 then begin min:=x[i]; min:=x[1]; for i:= 2 to N do if min>x[i] then min:=x[i]; if (x[i] mod 2)=1 then x[i]:=x[i+1] writeln (x[i], min); end; end; end. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Турбо Паскаль | Maxsimo | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 06.05.2009 17:05 |
Легкая задачка | Васька | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 29.11.2008 14:55 |
Турбо Паскаль | Jondeer | Помощь студентам | 3 | 28.10.2007 12:42 |
Турбо Паскаль | Jondeer | Помощь студентам | 5 | 27.10.2007 17:19 |