Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

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

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

Полтев Станислав Михайлович Статус: Практикант Рейтинг: 339 ∙ повысить рейтинг >>

Шичко Игорь Статус: Студент Рейтинг: 269 ∙ повысить рейтинг >>

Зенченко Константин Николаевич Статус: Профессор Рейтинг: 158 ∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 719
от 06.11.2008, 22:35

Вопрос № 149148: Помогите пожалуйста! В целочисленном массиве B(30), заменить значение максимального и минимального элементов на 0. Поиск max и min я смог составить, а как заменить на 0? Обеспечить вывод исходного и измененного массива. Спасибо за помощь....

Вопрос № 149.148

Помогите пожалуйста! В целочисленном массиве B(30), заменить значение максимального и минимального элементов на 0. Поиск max и min я смог составить, а как заменить на 0? Обеспечить вывод исходного и измененного массива. Спасибо за помощь. Приложение: const B = 30; {Количество элементов массива} MAX_VALUE = 100+1; {Диапазон значений случайных чисел} var m: array [1..B] of Integer; {Массив чисел} i: Integer; {Индекс массива} max, min: Integer; {Максимальное и минимальное число} s: real; {Сумма чисел} begin {Наполняем массив случайными числами:} for i := 1 to B do m[i] := random(MAX_VALUE); {Задаем начальные значения переменных:} s := 0; max : = m[1]; min := m[1]; {Цикл вычисления суммы всех случайных чисел и поиска минимального и максимального:} for i := 1 to B do begin s := s + m [i]; if m[i] < min then min := m[i] else if m[i] > max then max := m[i] end;

Отправлен: 31.10.2008, 20:42 Вопрос задал: Art1964 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Art1964! Вы неправильно организовали поиск(с учетом последующей задачи - замены) максимального и минимального значений. Вам нужно запоминать индексы в массиве этих значений. Т.е. приблизительно так Код: min := 1; for i := 1 to N do begin s := s + m [i]; if m[i] < m[ min ] then min := i После этого у Вас будет индекс заменяемого элемента m[ min ]:=0; Но такой подход не решает проблему когда максимальных или минимальных элементов несколько. В этом случае добавляете цикл в свой код: for i:=1 to N do if (m[ i ] = min)or(m[ i ]=max) then m[ i ]:=0; Удачи! --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 31.10.2008, 20:57 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 149148 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 149.149

Помогите пожалуйста с программой. Дан целочисленный массив B(30). Найти средне арифметическое тех элементов массива, значение которых меньше первого элемента. Обеспечить вывод исходного и измененного массива. Спасибо за помощь.

Отправлен: 31.10.2008, 20:48 Вопрос задал: Art1964 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 6)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Art1964! В приложении переделанный Ваш код под данное задание. Удачи! Приложение: const B = 30; {Количество элементов массива} MAX_VALUE = 100; {Диапазон значений случайных чисел} var m: array [1..B] of Integer; {Массив чисел} i: Integer; {Индекс массива} s: real; {Сумма чисел} begin randomize; {Наполняем массив случайными числами:} for i := 1 to B do begin m[i] := random(MAX_VALUE)+1; write(m[i]:10); end; writeln; {Задаем начальные значения переменных:} s := 0; {Цикл вычисления суммы всех случайных чисел} for i := 1 to B do s := s + m [i]; {все} writeln('Result:=',s/B:20:10); readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 31.10.2008, 21:58 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 149149 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 149.161

Здравствуйте хочу еще раз обратится за пощью решения вот этой задачи: Дана действительная матрица [Aij], i, j=1, ..., n. Получить действительную матрицу [Bij], i, j=1, ..., n, элемент Bij который равен сумме элементов данной матрицы, расположенных в области, определяемой индексами i,j так, как показано на рис. (область заштрихована).

Отправлен: 01.11.2008, 00:06 Вопрос задал: Popov_ A_V (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Foxbox Здравствуйте, Popov_ A_V! Обратите внимание! Используются динамические массивы. Решение реализовано в виде функции. На вход передаётся указатель на двумерный массив, на выходе передаётся указатель на двумерный массив той же размерности, содержащий сумму элементов первого массива. Функция вызывается по мере необходимости в теле программы. Приложение: uses math; type TArrayType = array of array of real; PArrayType = ^TArrayType; {$R+} // Принуждаем компилятор активировать проверку выхода за границы диапазона function CalculateArray(AArray: PArrayType; Range: Integer): PArrayType; var A: TArrayType; i, j, i1, j1:Integer; begin New(Result); SetLength(Result^, Range, Range); for i := 0 to pred(Range) do for j := 0 to pred(Range) do begin Result^[i, j] := 0; for i1 := min(i,j) to max(i,j) do for j1 := min(i,j) to max(i,j) do Result^[i, j] := Result^[i, j] + AArray^[i1, j1]; end; end; вызов функции сводится к следующему: var pA, pB: PArrayType; R: Integer; begin .... R := 10; // Размерность массива New(pA); //Выделяем место под указатель на массив SetLength(pA^, R, R); // Создаём сам массив .... заполняем массив .... pB := CalculateArray(pA, R); .... не забудьте освободить память от указателей pA и pB, когда пропадёт потребность в них

Ответ отправил: Foxbox (статус: 1-й класс) Ответ отправлен: 01.11.2008, 10:07 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 149161 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает: Пупорев Юрий Борисович Здравствуйте, Popov_ A_V! Решение для Турбо Паскаль 7. Без подпрограмм и прочих наворотов. Код с комментариями в приложении. Приложение: uses crt; const n=4; {размер матрицы, можно любой} var a,b:array[1..n,1..n] of real; i,j,k,l:integer; begin clrscr; writeln('Matrica A:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(10)+random; {создаем исходную действительную матрицу вещественных чисел, можно целых, можно ввод сделать вручную, в условии этого нет} write(a[i,j]:6:2); end; writeln; end; writeln('Matrica B:'); for i:=1 to n do begin for j:=1 to n do begin b[i,j]:=0; {начальные значения элементов матрицы В] if i<=j then {если i<=j, то берем квадрат (j-i)x(j-i)} begin for k:=i to j do for l:=i to j do b[i,j]:=b[i,j]+a[k,l]; {считаем сумму элементов в квадрате} end ; if j<i then {если i>j, то берем квадрат (i-j)x(i-j)} begin for k:=j to i do for l:=j to i do b[i,j]:=b[i,j]+a[k,l]; end; write(b[i,j]:7:2); end; writeln; end; readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 02.11.2008, 12:03 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 149161 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 149.191

Здраствуйте эксреты! Мне очень нужна ваша помощь( Помагите пожалуйста написать программу к этим заданиям. Заранее большое спасибо. 1) Определить минимальный элемент массива С и его порядковый номер. Массив С(20). Условие ci <0 2) Вычислить сумму и число элементов матрицы, находящихся на главной диагонали и под ней. Матрица B(5,5). Условие bij < 5

Отправлен: 01.11.2008, 13:17 Вопрос задал: Ramis (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Абельхарисов Руслан/Marked One Здравствуйте, Ramis! Вот код с объснениями: Код: const {Эта константа хранит кол-во элементов в массиве} N = 20; var {Объявляем на массив} C: array [1..20] of Integer; {i - счетчик для цикла For, min - здесь будет находится минимальный элемент, min_i - это порядковый номер} i, min, min_i: integer; begin {Инициализируем генератор случаных чисел} randomize; WriteLn('Массив C: '); {С помощью цикла перебираем весь массив и заполняем его случаными числами} for i := 1 to N do begin C[i] := random(100) - 100; Write(C[i], ' '); end; {В начале минимальное число это первый элемент массива} min_i := 1; min := C[1]; {В цикле переб ираем массив и проверяем меньше ли текущий элемент минимального, если да то сохраняем его} for i := 1 to N do if C[i] < min then begin min := C[i]; min_i := i; end; {Здесь выводим результат} WriteLn; WriteLn('Минимальный элемент: ', min); WriteLn('Порядковый номер: ', min_i); ReadLn; end. Алгоритм поиска такой: Сначало устанавливаем начальное минимальное число, лучше всего чтобы это был один из элементов массива. У нас это первый элемент массива C. Теперь можно искать. Поиск осущесвляется в цикле, в котором каждый элемент маассива сравнивается с минимальным. Если он меньше, то устанавливаем его минимальныи. После цикла минимальное число найдено. Удачи!!!

Ответ отправил: Абельхарисов Руслан/Marked One (статус: Студент) Ответ отправлен: 01.11.2008, 13:56 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 149191 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Огромное спасибо Абельхарисов Руслан!

Отвечает: Пупорев Юрий Борисович Здравствуйте, Ramis! Решение второй задачи в приложении. Приложение: uses crt; const n=5; var b:array[1..n,1..n]of integer; i,j,k,sum:integer; begin clrscr; Writeln('Matrica:'); k:=0; sum:=0; {начальные знвчения количества и суммы} for i:=1 to n do begin for j:=1 to n do begin b[i,j]:=random(7)-2; {случайные числа из инт.[-2,4] по условию<5} if j<=i then {если на главной диагонали или ниже} begin k:=k+1; {считаем количество} sum:=sum+b[i,j];{считаем сумму} end; write(b[i,j]:4); {выводим строки матрицы} end; writeln; {новая строка} end; write('Kol elem=',k,' Summa=',sum); readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 02.11.2008, 09:56 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 149191 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Огромное спасибо Пупорев Юрий Борисович!

Вопрос № 149.192

Дан ряд, который содержит полное имя файла. Выдилить с ряда название последнего каталога (без символов ""). Если файл содержится в кореневом каталоге, то вывести символ "". Буду признателен)

Отправлен: 01.11.2008, 13:21 Вопрос задал: Шпак Олександр Олександрович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Шпак Олександр Олександрович! Решение задачи с пояснениями в приложении. Приложение: uses crt; var s:string; i,k:integer; begin clrscr; repeat {цикл проверки правильности ввода пути к файлу} write('Введите путь к файлу:'); readln(s); k:=0; for i:=1 to length(s) do if ((s[i]=':')and(i<>2))or (s[i]='/')or not (s[1] in ['A'..'Z'])or(s[2]<>':')or(s[3]<>'') {если лишне двоеточие, или слэш не в ту сторону, или первый символ не прописная латинская буква, или второй символ не двоеточие, или третий символ не ''} then begin writeln('Неверный путь к файлу! Повторите.'); k:=1; break; end; until k=0; delete(s,1,pos('',s)); {удаляем начало по рервый слэш} if pos('',s)=0 then writeln('') {если больше слэша нет, то выводим символ слэша} else for i:=length(s) downto 1 do {если еще есть, идем по строке с конца} if s[i]='' then {первый с конца слэш} begin delete(s,i,length(s)-i+1); {удаляем имя файла вместе со слэшем} break; {заканчиваем} end; for i:=length(s) downto 1 do {ищем следующий слэш} if s[i]='' then begin writeln(copy(s,i+1,length(s)-i)); {выводим на экран имя последнего каталога без слэша} break; end; readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 03.11.2008, 12:28 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 149192 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5

Вопрос № 149.204

Здравствуйте! Есть две произвольные матрицы целых чисел (вводятся с клавиатуры или рандомно, не имеет значения), поизвольного размера. Нужно найти одинаковые элементы (числа) и в первой и во второй матрице. Помогите пожалуйста написать такую простейшую программу.

Отправлен: 01.11.2008, 15:03 Вопрос задал: Upgrader (статус: Студент) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Upgrader! В приложении программа, которая проверяет прямоугольную матрицу(вариант для одной матрицы, остальное - аналогично). Размер матрицы указываете в константах. Программа поочередно проверяет текущий элемент матрицы с ещё не проверенными. Ранее проверенные и текущий элементы исключаются с помощью условия ((a<c)or(b<d)). Удачи! Приложение: const n=3; m=4; var a,b,c,d:integer; e:array[1..m,1..n]of integer; begin {создаем матрицу и выводим} randomize; for a:=1 to m do begin for b:=1 to n do begin e[a,b]:=random(20); write(e[a,b]:4); end; writeln; end; {начинаем поиск} writeln('Search'); for a:=1 to m do for b:=1 to n do for c:=a to m do for d:=1 to n do if ((a<c)or(b<d))and(e[a,b]=e[c,d])then{проверяем условие совпадания и выводим результат при совпадении} writeln('a[',a,',',b,'] = a[',c,',',d,']:=',e[a,b]:3); {нажимаем ENTER} readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 04.11.2008, 19:54 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 149204 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.10 от 5.11.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru