Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Boriss Статус: Академик Рейтинг: 1689 ∙ повысить рейтинг »

_Ayl_ Статус: Студент Рейтинг: 1546 ∙ повысить рейтинг »

Micren Статус: Профессионал Рейтинг: 1486 ∙ повысить рейтинг »

Вопрос № 176266: Добрый вечер,уважаемые эксперты!!!!Помогите решить 2 задачки на построение массива 1)Дано натуральное чётное число n. Заполнить массив целыми числами: 1, n, 2, n-1, 3, n-2, …, n div 2, n div 2+1. 2)Дано натуральное число n. Заполнить вещест...

Добрый вечер,уважаемые эксперты!!!!Помогите решить 2 задачки на построение массива
1)Дано натуральное чётное число n. Заполнить массив целыми числами:
1, n, 2, n-1, 3, n-2, …, n div 2, n div 2+1.
2)Дано натуральное число n. Заполнить вещественный массив значениями, полученными в результате вычисления выражений:
1!/0.5, 2!/(1/2+1/3),.....,n!/(1/2+1/3+....1/(n+1))

жду ответа

Отправлен: 24.01.2010, 20:46
Вопрос задал: angel.nero, Посетитель
Всего ответов: 1
Страница вопроса »

Приложение:
1. const max=100; var b:array[1..max] of integer; n,i:integer; begin repeat{вводим размер массива с проверкой} write(\'Размер массива четное число n=\'); readln(n); until (n in [1..max])and(n mod 2=0); writeln(\'Исходный массив:\'); for i:=1 to n do begin if odd(i) then b[i]:=i div 2+1{числа на нечетных местах} else b[i]:=n-(i div 2-1);{числа на четных местах} write(b[i],\' \'); end; readln end. 2. const max=100; var b:array[1..max] of real; n,i,j:integer; ch,zn:real; begin repeat write(\'Размер массива n=\'); readln(n); until n in [1..max]; for i:=1 to n do begin ch:=1;zn:=0; for j:=1 to i do begin ch:=ch*j;{вычисляем числитель-факториал} zn:=zn+1/(j+1);{вычисляем знаменатель-сумму дробей} end; b[i]:=ch/zn;{вычисляем очередной элемент массива} end; writeln(\'Исходный массив:\'); for i:=1 to n do write(b[i]:5:2); readln end.

Ответ отправил: Пупорев Юрий Борисович, Специалист
Ответ отправлен: 24.01.2010, 21:33
Номер ответа: 258919

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 258919 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

помогите пожалуйста решить задачки на преобразование массива:
1)Даны натуральное число n и целочисленный массив из n элементов.
В массиве поменять местами минимальный элемент и элемент, имеющий заданное значение. При отсутствии в массиве элемента с заданным значением выдать соответствующее сообщение.
2)Даны натуральное число n и вещественный массив из n чисел. Если массив упорядочен по неубыванию, то изменить в нём порядок следования элементов на обратный. В противном случае изменить порядок следования элементов на обратный в части массива, начиная с первого элемента массива до элемента, указывающего на первое нарушение упорядоченности. Вспомогательный массив не использовать.

Отправлен: 24.01.2010, 21:31
Вопрос задал: angel.nero, Посетитель
Всего ответов: 1
Страница вопроса »

Приложение:
1. uses crt; const max=100; var a:array[1..max] of integer; n,i,imn,z,iz,x:integer; begin clrscr; repeat write(\'Размер массива n=\'); readln(n); until n in [1..max]; writeln(\'Введите \',n,\' элементов массива:\'); for i:=1 to n do begin write(\'a[\',i,\']=\'); readln(a[i]); end; clrscr; writeln(\'Исходный массив:\'); for i:=1 to n do write(a[i],\' \'); writeln; writeln; imn:=1; for i:=1 to n do if a[i]<a[imn] then imn:=i;{находим индекс минимального элемента} write(\'Введите число для поиска элемента в массиве z=\'); readln(z); iz:=0; for i:=1 to n do if a[i]=z then{если есть это число} begin iz:=i;{запоминаем его индекс} break;{выходим из цикла} end; if iz=0 then write(\'Числа \',z,\' в массиве нет\') else{если есть} begin x:=a[imn];{меняем минимальный с заданным} a[imn]:=a[iz]; a[iz]:=x; writeln(\'Обмен элементов:\'); for i:=1 to n do write(a[i],\' \'); end; readln end. 2. uses crt; const max=100; var a:array[1..max] of real; n,i,pn,k:integer; x:real; begin clrscr; repeat write(\'Размер массива n=\'); readln(n); until n in [1..max]; writeln(\'Введите \',n,\' элементов массива:\'); for i:=1 to n do begin write(\'a[\',i,\']=\'); readln(a[i]); end; clrscr; writeln(\'Исходный массив:\'); for i:=1 to n do write(a[i]:0:2,\' \'); writeln; writeln; pn:=0; for i:=1 to n do if a[i]<a[i-1] then{если есть нарушение в порядке} begin pn:=i;{запоминаем номер первого нарушителя} break;{выходим из цикла} end; if pn=0 then{если упорядочен по неубыванию} begin writeln(\'Массив упорядочен по неубыванию\'); writeln(\'порядок следования элементов меняем на обратный\'); for i:=1 to n div 2 do begin x:=a[i];{меняем симметрично середины элементы от начала и конца массива} a[i]:=a[n-i+1]; a[n-i+1]:=x; end end else{если нарушен порядок} begin writeln(\'Массив не упорядочен по неубыванию, первый элемент-"нарушитель" a[\',pn,\']\'); writeln(\'порядок следования элементов с 1 по \',pn-1,\' меняем на обратный\'); for i:=1 to (pn-1) div 2 do begin x:=a[i];{делаем то же только от первого до перед нарушителем} a[i]:=a[pn-i]; a[pn-i]:=x; end; end; writeln(\'Измененный массив:\'); for i:=1 to n do write(a[i]:0:2,\' \'); readln end.

Ответ отправил: Пупорев Юрий Борисович, Специалист
Ответ отправлен: 24.01.2010, 22:18
Номер ответа: 258922

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 258922 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Добрый вечер!
помогите пожалуйста с задачками на обработку элементов массива:
1)Даны натуральное число n и вещественный массив из n элементов. Выдать те элементы массива, индексы которых являются полными квадратами
( 1, 4, 9, 16, …).
2)Даны натуральное число n и вещественный массив из n элементов. Найти отношение суммы положительных элементов, расположенных до максимального элемента, к сумме отрицательных элементов, расположенных после максимального элемента в массиве.

Отправлен: 24.01.2010, 21:46
Вопрос задал: angel.nero, Посетитель
Всего ответов: 3
Страница вопроса »

Приложение:
1)Даны натуральное число n и вещественный массив из n элементов. Выдать те элементы массива, индексы которых являются полными квадратами ( 1, 4, 9, 16, …). uses crt; const max=100; var a:array[1..max] of real; n,i:integer; begin clrscr; randomize; repeat write(\'Размер массива n=\'); readln(n); until n in [1..max]; writeln(\'Исходный массив:\'); for i:=1 to n do begin a[i]:=10*random; write(a[i]:0:2,\' \'); end; writeln; writeln(\'Элементы с индексами-полными квадратами:\'); for i:=1 to n do if sqr(trunc(sqrt(i)))=i then{если квадрат целой части корня=числу} write(a[i]:0:2,\' \'); readln end. 2)Даны натуральное число n и вещественный массив из n элементов. Найти отношение суммы положительных элементов, расположенных до максимального элемента, к сумме отрицательных элементов, расположенных после максимального элемента в массиве. uses crt; const max=100; var a:array[1..max] of real; n,i,imx:integer; sp,so:real; begin clrscr; randomize; repeat write(\'Размер массива n=\'); readln(n); until n in [1..max]; writeln(\'Исходный массив:\'); for i:=1 to n do begin a[i]:=20*random-10; write(a[i]:0:2,\' \'); end; writeln; imx:=1; for i:=1 to n do if a[i]>a[imx] then imx:=i;{находим индекс максимального} writeln(\'Максимальное=\',a[imx]:0:2,\' его индекс=\',imx); sp:=0;{сумма положительных до} for i:=1 to imx-1 do if a[i]>0 then sp:=sp+a[i]; writeln(\'Сумма положительных до максимального=\',sp:0:2); so:=0;{сумма отрицательных после} for i:=imx+1 to n do if a[i]<0 then so:=so+a[i]; writeln(\'Сумма отрицательных после максимального=\',so:0:2); if sp=0 then write(\'Положительных чисел до максимального нет!\') else if so=0 then write(\'Отрицательных чисел после максимального нет!\') else write(\'Отношение=\',sp/so:0:2); readln end.

Ответ отправил: Пупорев Юрий Борисович, Специалист
Ответ отправлен: 25.01.2010, 10:59
Номер ответа: 258936

Оценка ответа: 5

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 258936 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Приложение:
program p176270; { Даны натуральное число n и вещественный массив из n элементов. Выдать те элементы массива, индексы которых являются полными квадратами ( 1, 4, 9, 16, …). } uses crt; const MaxN=1000; type TVector = array[1..MaxN] of real; var v: TVector; n,i,j:integer; begin clrscr; write(\'n=\'); readln(n); if (n>MaxN) or (n<1) then begin writeln(\'Некорректное задание размера массива\'); readln; exit; end; randomize; { заполнение массива } for i:= 1 to n do v[i] := random(1000)/10; { печать массива } writeln(\'Введен массив\'); for i:=1 to n do begin write(v[i]:5:2,\' \'); if i mod 10 = 0 then writeln; end; writeln; (****************) j:= 1; i:= 1; writeln(\'Элементы массива с индексами-полными квадратами:\'); while i<=n do begin writeln(i:3, \' \', v[i]:5:2); j:= j+1; {1} i:= j*j; {2} (* альтернативный способ вычисления, работает быстрей, если использовать строки 1a и 2a вместо 1 и 2 i:= i+j+j+1; {1a} j:= j+1; {2a} *) end; (*****************) readln; end.

Ответ отправил: lamed, Практикант
Ответ отправлен: 25.01.2010, 14:49
Номер ответа: 258943

Оценка ответа: 5

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 258943 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Приложение:
{ Даны натуральное число n и вещественный массив из n элементов. Выдать те элементы массива, индексы которых являются полными квадратами } Program Arr; Const cMaxIndex = 1000; Type TIndex = 1..cMaxIndex; TArray = array [TIndex] of Real; Var n : TIndex; a : TArray; i : TIndex; k : Word; Begin Randomize; Repeat write (\'Введите размер массива (1-1000): \'); readln (n); Until (n > 0) and (n <= cMaxIndex); write (\'Исходный массив:\'); for i := 1 to n do begin a [i] := Random * 1000; write (\' \', a [i]:7:4); end; writeln; writeln (\'Элементы массива с индексами, являющимися полными квадратами:\'); i := 1; k := 3; while i < n do begin writeln (i, \' --> \', a [i]:7:4); Inc (i, k); Inc (k, 2); end; End. -------------------- { Даны натуральное число n и вещественный массив из n элементов. Найти отношение суммы положительных элементов, расположенных до максимального элемента, к сумме отрицательных элементов, расположенных после максимального элемента в массиве } Program Arr2; Const cMaxIndex = 1000; cMaxValue = 1000.0; Type TIndex = 1..cMaxIndex; TArray = array [TIndex] of Real; Var n : TIndex; { размер массива } a : TArray; { массив} i : TIndex; { индекс в массиве } sp : Real; { сумма положительных элементов } sn : Real; { сумма отрицательных элементов } p : Real; { сумма положительных элементов после максимального до текущего } m : Real; { максимальный элемент } im : TIndex; { индекс максимального элемента } Begin { Инициализация последовательности псевдослучайных чисел } Randomize; { Ввод размера массива с проверкой ограничения } Repeat write (\'Введите размер массива (1-\', cMaxIndex, \'): \'); readln (n); Until (n > 0) and (n <= cMaxIndex); { Заполнение и отображение массива } write (\'Исходный массив:\'); for i := 1 to n do begin a [i] := Random * cMaxValue - (cMaxValue / 2); write (\' \', a [i]:7:4); end; writeln; { Инициализация переменных } sn := 0; sp := 0; m := a [1]; p := m; im := 1; { Один проход по массиву и получение всей информации: максимальный элемент и его индекс, сумма положительных элементов до максимального и сумма отрицательных после максимального. Алгоритм: очередной элемент сравниваем с максимальным. Если элемент массива больше максимального, то переустанавливаем максимальный элемент и его индекс, сбрасываем сумму отрицательных чисел (нам нужна сумма отрицательных после максимального), а к текущей сумме положительных чисел добавляем сумму положительных чисел, расположенных между предыдущим максимальным элементом (с учетом значения этого элемента) и текущим элементом (новым максимумом) } for i := 2 to n do begin if a [i] > m then begin { текущий элемент больше текущего максимума } m := a [i]; im := i; sp := sp + p; p := m; sn := 0; end else if a [i] < 0.0 then sn := sn + a [i] { сумма отрицательных элементов } else if a [i] > 0.0 then p := p + a [i]; { сумма положительных элементов после максимального } end; writeln (\'Максимальный элемент массива равен \', m:7:4); writeln (\'Индекс максимального элемента массива равен \', im); if sp = 0.0 then writeln (\'Нет положительных элементов, расположенных до максимального!\') else writeln (\'Сумма положительных элементов, расположенных до максимального, равна \', sp:7:4); if sn = 0.0 then writeln (\'Нет отрицательных элементов, расположенных после максимального!\') else writeln (\'Сумма отрицательных элементов, расположенных после максимального, равна \', sn:7:4); if (sp > 0.0) and (sn < 0.0) then writeln (\'Отношение суммы положительных элементов, расположенных до максимального, \' + \'к сумме отрицательных элементов, расположенных после максимального, равно \', (sp/sn):7:4); End.

Ответ отправил: _Ayl_, Студент
Ответ отправлен: 25.01.2010, 18:40
Номер ответа: 258946

Оценка ответа: 5

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 258946 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Добрый вечер,уважаемые эксперты!!!!
помогите решить задачки на СДВИГИ, УДАЛЕНИЕ , ВСТАВКА массивов
1)а_)Даны натуральное число n и вещественный массив из n элементов. Удалить из массива элемент, расположенный перед максимальным элементом. При отсутствии элементов перед максимальным выдать соответствующее сообщение
б)Даны натуральное число n и вещественный массив из n элементов. Удалить из массива элемент, расположенный после элемента с максимальным значением и после элемента с минимальным значением. Если массив состоит из одинаковых элементов или какое-то удаление невозможно, выдать соответствующее сообщение.
2)Даны натуральное число n и вещественный массив из n элементов. Удалить из массива элемент, расположенный после каждого значения, равного минимальному элементу. При отсутствии таких элементов выдать соответствующее сообщение.

Отправлен: 24.01.2010, 22:01
Вопрос задал: angel.nero, Посетитель
Всего ответов: 1
Страница вопроса »

Приложение:
1)а_)Даны натуральное число n и вещественный массив из n элементов. Удалить из массива элемент, расположенный перед максимальным элементом. При отсутствии элементов перед максимальным выдать соответствующее сообщение uses crt; const max=100; var a:array[1..max] of real; n,i,imx:integer; begin clrscr; randomize; repeat write(\'Размер массива n=\'); readln(n); until n in [1..max]; writeln(\'Исходный массив:\'); for i:=1 to n do begin a[i]:=10*random; write(a[i]:0:2,\' \'); end; writeln; imx:=1; for i:=1 to n do if a[i]>a[imx] then imx:=i;находим индекс максимального элемента} if imx=1 then write(\'Перед максимальным нет элементов!\'){если он первый} else{иначе} begin writeln(\'Максимальный элемент a[\',imx,\']=\',a[imx]:0:2); for i:=imx-1 to n-1 do{к элементу перед максимальным сдвигаем конец массива} a[i]:=a[i+1];{на 1 влево, элемент исчезает} n:=n-1;{уменьшаем размер массива} writeln(\'Удаление элемента перед максимальным:\'); for i:=1 to n do write(a[i]:0:2,\' \'); end; readln end. б)Даны натуральное число n и вещественный массив из n элементов. Удалить из массива элемент, расположенный после элемента с максимальным значением и после элемента с минимальным значением. Если массив состоит из одинаковых элементов или какое-то удаление невозможно, выдать соответствующее сообщение. uses crt; const max=100; var a:array[1..max] of real; n,i,imx,imn:integer; begin clrscr; randomize; repeat write(\'Размер массива n=\'); readln(n); until n in [1..max]; writeln(\'Введите \',n,\' элементов массива:\'); for i:=1 to n do begin write(\'a[\',i,\']=\');{здесь делаем ввод с клавиатуры, чтобы проверить когда все числа одинаковые, рандомно это не получится} readln(a[i]); end; clrscr; writeln(\'Исходный массив:\'); for i:=1 to n do write(a[i]:0:2,\' \'); writeln; imx:=1;imn:=1; for i:=1 to n do begin if a[i]>a[imx] then imx:=i;{находим индексы макс. и мин.} if a[i]<a[imn] then imn:=i; end; writeln(\'Максимальный элемент a[\',imx,\']=\',a[imx]:0:2); writeln(\'Минимальный элемент a[\',imn,\']=\',a[imn]:0:2); if imn=imx then write(\'Массив состоит из одинаковых элементов!\'){если индексы совпали} else if imn=n then write(\'Невозможно удаление после минимального элемента!\'){если мин. последний} else if imx=n then write(\'Невозможно удаление после максимального элемента!\'){если макс. последний} else{иначе} begin if imx>imn then{если максимальный дальше} begin for i:=imx+1 to n-1 do{сначала удаляем за ним} a[i]:=a[i+1]; n:=n-1; for i:=imn+1 to n-1 do{потом за мин., макс. при этом может удалиться, если он сразу за мин.} a[i]:=a[i+1]; n:=n-1; end else{если минимальный дальше, все наоборот} begin for i:=imn+1 to n-1 do{сначала за минимальным} a[i]:=a[i+1]; n:=n-1; for i:=imx+1 to n-1 do{потом за максимальным} a[i]:=a[i+1]; n:=n-1; end; writeln(\'Удаление элементов после максимального и минимального:\'); for i:=1 to n do write(a[i]:0:2,\' \'); end; readln end. 2)Даны натуральное число n и вещественный массив из n элементов. Удалить из массива элемент, расположенный после каждого значения, равного минимальному элементу. При отсутствии таких элементов выдать соответствующее сообщение. uses crt; const max=100; var a:array[1..max] of real; n,i,imn,j:integer; mn:real; begin clrscr; randomize; repeat write(\'Размер массива n=\'); readln(n); until n in [1..max]; writeln(\'Введите \',n,\' элементов массива:\'); for i:=1 to n do begin write(\'a[\',i,\']=\'); readln(a[i]); end; clrscr; writeln(\'Исходный массив:\'); for i:=1 to n do write(a[i]:0:2,\' \'); writeln; mn:=a[1];imn:=1; for i:=1 to n do if a[i]<a[imn] then begin mn:=a[i];{находим минимальное} imn:=i;{его индекс} end; j:=0; for i:=1 to n do if a[i]=mn then j:=j+1; if imn=n then write(\'Минимальный элемент один и он последний в массиве. Удаления нет!\'){если последний, значит один} else if j=n then write(\'Массив состоит из одинаковых элементов!\'){все одинаковые} else{иначе удаляем элементы после минимальных, не сами минимальные, даже если они подряд} begin i:=2;{начнем со втрого элемента} while i<=n do{пока не конец массива} if (a[i-1]=mn)and(a[i]<>mn) then{если перед элементом мин., а сам он не мин.} begin for j:=i to n-1 do{сдвигаем конец массива} a[j]:=a[j+1];{на один влево} n:=n-1;{уменьшаем размер} end else i:=i+1;{иначе идем вперед} writeln(\'Удаление элементов после минимальных:\'); for i:=1 to n do write(a[i]:0:2,\' \'); end; readln end.

Ответ отправил: Пупорев Юрий Борисович, Специалист
Ответ отправлен: 25.01.2010, 10:13
Номер ответа: 258935

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 258935 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!

Задать вопрос экспертам этой рассылки »