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

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

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

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

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

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

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

Выпуск № 724
от 12.11.2008, 06:05

Вопрос № 149629: Здравствуйте, помогите, пожалуйста, с задачкой=)) Составить программу сортировки одномерного массива целых чисел методом быстрой сортировки. Заранее большое спасибо=))...

Вопрос № 149.629

Здравствуйте, помогите, пожалуйста, с задачкой=)) Составить программу сортировки одномерного массива целых чисел методом быстрой сортировки. Заранее большое спасибо=))

Отправлен: 06.11.2008, 11:27 Вопрос задал: Cot-bant Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Cot-bant! Программа в приложении. Процедура быстрой сортировки Sort взята из Википедии. Удачи! Приложение: program quicksort; var i:integer; a:array[1..20]of integer; procedure sort(l,r: integer); var i,j,x,y: integer; begin i:=l; j:=r; x:=a[random(r-l+1)+l]; { x := a[(r+l) div 2]; - для выбора среднего элемента } repeat while a[i]<x do i:=i+1; { a[i] > x - сортировка по убыванию} while x<a[j] do j:=j-1; { x > a[j] - сортировка по убыванию} if i<=j then begin if a[i] > a[j] then {это условие можно убрать} {a[i] < a[j] при сортировке по убыванию} begin y:=a[i]; a[i]:=a[j]; a[j]:=y; end; i:=i+1; j:=j-1; end; until i>j; if l<j then sort(l,j); if i<r then sort(i,r); end; {sort} begin {quicksort}; randomize; for i:=1 to 20 do begin a[i]:=random(50); write(a[i]:3); end; writeln; sort(1,20); for i:=1 to 20 do write(a[i]:3); readln; end. {quicksort} --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

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

Вопрос № 149.634

Многоуважаемые эксперты!!!! Пожалуйста помогите с задачкой!!! Дана строка символов. Определить количество слов, начинающихся с буквы "а" , вывести на печать самое длинное слово, начинающееся с буквы "а"! Заранее большое спасибо!!!!

Отправлен: 06.11.2008, 11:44 Вопрос задал: Андреев Дмитрий Фёдорович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 13)

Отвечает: μalife Здравствуйте, Андреев Дмитрий Фёдорович! Вот код: © Цитата: μalife program slovaa; var s,t,max:string; {s - строка, введенная пользователем, t - слово (для удобства), max - строка, содержащая самое длинное слово} i,i1,i2:integer; {i - счетчик цикла, i1 - номер начала текущего слово в массиве, i2 - кол-во слов начинающихся на букву 'a'} begin readln(s); {Вводим строку} if s[length(s)]<>' ' then s:=s+' '; {Алгоритм отделения слов не будет работать, если в конце нет пробела} i1:=1; {Первое слово начинается с первого символа в строке. Есл и этим символом будет пробел, то ничего страшного} for i:=1 to length(s) do {Начинаем перебирать символы} if (s[i]=' ') and (s[i+1]<>' ') then begin {Если текущий символ - пробел, и следующий символ не пробел, то идем дальше (Если следующий символ пробел, то текущее слово может засчитаться два и более раз (когда отсутствует сравнение s[i+1]<>' '))} t:=copy(s,i1,i-i1); {В переменную t помещаем текущее слово} if t[1]='a' then begin {Если первая буква слова - 'a', то } inc(i2); {увеличиваем счетчик i2} if length(t)>length(max) then max:=t {Если длина текущего слова больше длинны слова max, то переменной max присваиваем значение t} end; i1:=i+1 {Увеличиваем с четчик слова} end; {Заканчиваем обработку текущего слова} if length(max)>0 then begin writeln(max); writeln(i2); end else writeln('Слов начинающихся на букву a в данной строке нет'); readln; {Ждем нажатия на клавишу enter} end. Удачи!!! --------- Я ничего не знаю. Я знаю только где можно найти ответы на мои вопросы.

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

Вопрос № 149.645

Добрый день уважаемые эксперты. Не могу никак сдать лабораторную работу помогите плиз. В двумерных массивах A[N* N] и В[M *M] определить максимальные значения. Если максимум расположен ниже главной диагонали, то числа на главной диагонали рассортировать по возрастанию. Если выше главной – то по убыванию. Если на главной – то обнулить числа на главной диагонали. Учительница злая, требует объяснения, в скобках немного напишите какие переменные что означают. С уважением Михаил:(

Отправлен: 06.11.2008, 13:31 Вопрос задал: Горбунов Михаил Валерьевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Горбунов Михаил Валерьевич! Программа в приложении. В программе есть ненужная строка(я её использовал для контроля алгоритма работы): © Цитата: {контрольная строка, принудительно меняя e или/и f для проверки алгоритма} f:=1; Вопросы по программе задавайте в минин-форум. Удачи! Приложение: uses crt; const n=10; var a:array[1..n,1..n]of integer; c,d,e,f:integer; begin randomize; {пока максимальный элемент с индексом} e:=1; f:=1; {в цикле создаем массив} for c:=1 to n do begin for d:=1 to n do begin a[c,d]:=random(50); {подсвечиваем главную диагональ} TextColor((7+8*ord(c=d))); {выводим элемент} write(a[c,d]:3); {возвращаем } TextColor(7); {сравниваем с максимальным элементом} if a[c,d]>a[e,f]then begin {запоминаем новый максимальный элемент} e:=c; f:=d; end; end; writeln; end; writeln; {контрольная строка, принудительно меняя e или/и f для проверки алгоритма} f:=1; {выводим индекс максимального элемента и его значение} writeln('maximum a[',e,',',f,']:=',a[e,f]); writeln; {определяем где находится максимальный элемент} c:=e-f; if c<>0 then c:=c div abs(c); {начинаем сортировку} for e:=1 to n-1 do for f:=e+1 to n do {производим сортировку в нужном напррвлении} if ((a[e,e]*c)>(a[f,f]*c))or(c=0)then begin d:=c*c*a[e,e]; a[e,e]:=c*c*a[f,f]; a[f,f]:=d; end; {вывод результата сортировки с подсветкой главной диагонали} for c:=1 to n do begin for d:=1 to n do begin TextColor((7+8*ord(c=d))); write(a[c,d]:3); TextColor(7); end; writeln; end; readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Горбунов Михаил Валерьевич! Задача не сложная, но всвязи с множественностью условий имеет довольно длинный код. Чтобы его сократиь и не писать по два раза ввод матриц, их обработку и вывод, эти действия описаны в подпрограммах-процедурах. Код с пояснениями в приложении. Приложение: uses crt; type Tmatr=array[1..50,1..50]of integer;{тип матрицы для передачи их в процедуры в виде параметров} procedure Vvod(x:integer;var z:Tmatr);{создание и вывод на экран исходных матриц, входной параметр-размер матрицы х, выходной параметр (var) сама матрица z} var i,j:integer; {локальные переменные-счетчики циклов по строкам и столбцам} begin for i:=1 to x do begin for j:=1 to x do begin z[i,j]:=random(20);{заполняем матрицу случайными числами в инт.[0,19], если нужно ввод с клавиатуры, эту процедуру переделать, хотя ручной ввод здесь ни к чему, все варианты положения максимального элемента попадают часто} write(z[i,j]:4); end; writeln; end; end; Procedure Sort(x:integer; var z:Tmatr);{процедура обработки матрицы по условию, параметры те же.} var i,j,max,imax,jmax,bf:integer;{ max-максимальный элемент,imax-строка, где он находится,jmax-столбец,bf-переменная-буфер для сортировки обменом } begin max:=z[1,1];imax:=1;jmax:=1;{начальные значения} for i:=1 to x do for j:=1 to x do if z[i,j]>max then begin max:=z[i,j];[находим максимальный} imax:=i; {номер строки} jmax:=j; {номер столбца} end; if jmax<imax then {это признак того, что элемент ниже главной диагонали} begin for i:=1 to x-1 do for j:=1 to x-1 do if z[j,j]>z[j+1,j+1] then {обычная сортировка пузырьком главной диагонали, ее признак-номер строки=номеру столбца} begin bf:=z[j,j]; z[j,j]:=z[j+1,j+1]; z[j+1,j+1]:=bf; end; end else if jmax>imax then {признак того, что элемент выше главной диагонали,остальное тоже, только по убыванию} begin for i:=1 to x-1 do for j:=1 to x-1 do if z[j,j]<z[j+1,j+1] then begin bf:=z[j,j]; z[j,j]:=z[j+1,j+1]; z[j+1,j+1]:=bf; end; end else if jmax=imax then {на главной диагонали} begin for i:=1 to x do z[i,i]:=0; {елементы главной диагонали} end; end; Procedure Vyvod(x:integer; var z:Tmatr);{обычный вывод матрицы на экран} var i,j:integer; begin for i:=1 to x do begin for j:=1 to x do write(z[i,j]:4); writeln; end; end; var a,b:Tmatr; {глобальные переменные программы, две матрицы} n,m:integer; {и их размеры} begin clrscr; randomize; write('n=');readln(n); write('m=');readln(m); writeln('Matrica A:'); Vvod(n,a); {вызываем ввод для А} Sort(n,a); {преобразование} Writeln('Rezultat po matrice A:'); Vyvod(n,a); readln; writeln('Matrica B:'); Vvod(m,b); {тоже для В} Sort(m,b); Writeln('Rezultat po matrice B:'); Vyvod(m,b); readln end.

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

Вопрос № 149.710

Даны натуральные числа n, a0, a1, a2, ... , a3n-1. Каждая тройка чисел ai, ai+1, ai+2, где i кратно трем, задает координаты центра круга (ai , ai+1) и его радиус ai+2. Построить и закрасить какими-либо цветами круги, заданные последовательностью a0, a1, a2, ... , a3n-1

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Иванов Виктор Олегович! Вариант решения в приложении. Можно над ним поработать, если что не нравится. Попробуйте сами, не получится, пишите, переделаем. Сделал для ввода данных с клавиатуры. Можно переделать под случайный ввод, только надо отдельно для х, у и радиуса. Приложение: uses crt,graph; {подключае модули для работы с экраном и графический режим} const n=14; {количество кругов=(14+1):3=5} var i,gd,gm:integer; a:array[0..n]of integer;{массив данных} begin clrscr; writeln('Massiv dannyh:'); i:=0; while i<=n do begin write('x',i div 3,'=');readln(a[i]);{начиня с ноля, каждый третий элемент-координата х} write('y',i div 3,'=');readln(a[i+1]); {следующий – координата у} write('radius',i div 3,'=');readln(a[i+2]); {следующий - радиус} i:=i+3; {переходим через три номера} end; clrscr; (очищаем экран) for i:=0 to n do write(a[i],' '); {выводим массив} gd:=detect; InitGraph(gd,gm,''); {инициируем графический режим} for i:=0 to n div 3 do {для 5 кругов (при n=14)} begin Setcolor(i+1); {цвет границы круга, его номер на 1 больше номера круга} SetFillStyle(1,i+1); {тот же цвет внутри} FillEllipse(a[i*3],a[i*3+1],a[i*3+2],a[i*3+2]); {рисуем заполненый эллипс с равными радиусами} end; readln; closegraph; {vyhod po nazatiu Enter} end.

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

Вопрос № 149.712

Даны натуральные числа n, b0, ... , bn Вычислить f(b0) + f(b1) + ... + f(bn) , где f(x) = { (1) x2 , если x кратно 3. (2) x , если x при делении на 3 дает остаток 1. (3) [x/3] в остальных случаях x. { - система из трех выражений

Отправлен: 06.11.2008, 22:10 Вопрос задал: Иванов Виктор Олегович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Шичко Игорь Здравствуйте, Иванов Виктор Олегович! Предлагаю Вам следующий вариант решения. Примерный код в приложении. Приложение: var n, i: integer; b: array[1..100] of integer; temp, summ: real; begin summ:= 0; writeln('Введите число элементов от 2 до 100'); readln(n); if (n < 2) or (n > 100) then begin writeln('Ошибка: Введите 1 < n < 101'); readln; exit; end; for i:= 1 to n do b[i]:= Random(100); {Формируем массив случайным образом} for i:=1 to n do begin if b[i] mod 3 = 0 then temp:= sqr(b[i]) else if b[i] mod 3 = 1 then temp:= b[i] else temp:= b[i] / 3; summ:= summ + temp; {подсчет суммы} end; writeln('Сумма = ', summ:10:2); readln; end.

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

Вопрос № 149.719

У прилавка в магазине выстроилась очередь, из n покупателей. Время обслуживания продавцом i - го покупателя равно ti (i=1, ... , n). Пусть даны натуральное n и действительные t1, ... , tn. Получить c1, ... , cn , где ci - время пребывания i - го покупателя в очереди (i=1, ... , n). Указать номер покупателя, для обслуживания которого продавцу потребовалось самое малое время.

Отправлен: 06.11.2008, 22:32 Вопрос задал: Иванов Виктор Олегович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Verena Здравствуйте, Иванов Виктор Олегович! Время обслуживания покупателей (то время, которое продавец тратит на разговор с покупателем, приём денег и выдачу товара) хранится в массиве из n элементов. В таком случае время ожидания покупателя (т.е. время, пока он просто стоит в очереди и ничего не делает) также будет храниться в массиве из n элементов. Первый покупатель не стоит в очереди вообще, значит, время его ожидания равно 0, т.е. c[1] = 0. Время ожидания второго покупателя равно времени обслуживания первого покупателя, т.е. с[2] = t[1] = 0+t[1] = c[1]+t[1] Следовательно, каждое c[i], начиная со второго, будет представимо в виде формулы: c[i] = c[i-1]+t[i-1] Номер покупателя, для обслуживания которого продавцу потребовалось наименьшее время, - это индекс минимального элемента в массиве t. Находим минимум обычным образом, всё должно быть ясно из комментариев. Код в приложении. Удачи! Приложение: Var t, c: array [1..20] of real; {Массивы} i, n, imin: integer; {Счётчик, размерность, индекс минимального} begin writeln ('Vvedite chislo pokupatelei: '); {Ввод данных} readln (n); writeln ('Vvedite massiv t:'); for i:=1 to n do readln (t[i]); c[1]:= 0; {Время ожидания первого покупателя равно 0} for i:=2 to n do c[i]:= c[i-1]+t[i-1]; {А каждого следующего - время ожидания предыдущего + время обслуживания предыдущего} writeln ('Vremia v ocheredi: '); {Вывод результата} for i:=1 to n do write (c[i]:3:5, ' '); imin:= 1; {Принимаем первый за минимальный} for i:=2 to n do if t[i]<t[imin] then imin:= i; {Если находим меньший - перезапоминаем} writeln; {Выводим результат} writeln ('Minimalnoe vremia obslujivania pokupatelia ', imin); end. --------- Эта история - не для истории, понимаешь?

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

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