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

Выпуск № 540
от 08.01.2008, 20:05

Вопрос № 116.688

Здравствуйте. Составил программку для сортировки массива по возрастанию, да что-то не так. Работает почти как надо, но не совсем. Помогите найти ошибку в коде. Приложение: program min; uses crt; type mas=array [1..10] of integer; var a:mas; function vvod(var a:mas):integer; var i:integer; begin for i:=1 to 10 do a[i]:=random(100); end; function vyvod(var a:mas):integer; var i:integer; begin for i:=1 to 10 do write(a[i]:5); end; function sort(var a:mas):integer; var i,j,c:integer; begin for i:=1 to 9 do for j:=10 downto 2 do begin if a[i]>a[j] then begin c:=a[j]; a[j]:=a[i]; a[i]:=c; end; end; for i:=1 to 10 do write(a[i]:5); end; begin randomize; clrscr; writeln; vvod(a); vyvod(a); writeln; writeln(sort(a)); end.

Отправлен: 03.01.2008, 00:12 Вопрос задал: Work_stranger (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Work_stranger! Работающий код в приложении. Удачи! Приложение: program min; uses crt; type mas=array [1..10] of integer; var a:mas; procedure vvod; var i:integer; begin for i:=1 to 10 do a[i]:=random(100); end; procedure vyvod; var i:integer; begin for i:=1 to 10 do write(a[i]:5); end; function findmin(k:integer):integer; var i, min : integer; begin min := k; for i := k+1 to 10 do if a[i] < a[min] then min := i; findmin := min; end; procedure change(var a,b:integer); var t : integer; begin t := a; a := b; b := t; end; procedure sort; var i:integer; begin for i := 1 to 9 do change(a[findmin(i)],a[i]); end; begin randomize; clrscr; writeln; vvod; vyvod; writeln; sort; vyvod; ReadLn; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Практикант) Ответ отправлен: 03.01.2008, 00:27 Оценка за ответ: 5

Отвечает: Gh0stik Здравствуйте, Work_stranger! Дело в том, что у Вас вспомогательный алгоритм sort описан как функция (function sort(var a:mas):integer;), которая возвращает результат типа integer. В следствии чего при обращении к данной функции writeln(sort(a)); оператор writeln помимо того, что вызывает на выполнение саму функцию, так еще и пытаеся вывести резульат функции на экран, который (результат) в самой функции не определен, вот Вам и получается что данная строка (writeln(sort(a));) кроме самого массива выводит еще ОДНО число - результат функции. Поэтому Вам достаточно преобразовать имеющуюся функцию в процедуру. В приложении смотрите исправленный и немного подкорректированый код. Good Luck!!! Приложение: program min; uses crt; const n=10; type mas=array [1..n] of integer; var a:mas; function vvod(var a:mas):integer; var i:integer; begin randomize; for i:=1 to n do a[i]:=random(100); end; function vyvod(var a:mas):integer; var i:integer; begin for i:=1 to n do write(a[i]:5); end; procedure sort(var a:mas); var i,j,c:integer; begin for i:=1 to n-1 do for j:=n downto i+1 do begin if a[j-1]>a[j] then begin c:=a[j-1]; a[j-1]:=a[j]; a[j]:=c; end; end; for i:=1 to n do write(a[i]:5); end; begin clrscr; writeln; vvod(a); vyvod(a); writeln; sort(a); readln; end. --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Академик) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) WWW: http://gh0stik.rusfaq.ru/ ICQ: 289363162 ---- Ответ отправлен: 03.01.2008, 02:47 Оценка за ответ: 5 Комментарий оценки: ПРЕОГРОМНЕЙШЕЕ СПАСИБО!

Отвечает: Rumata Здравствуйте, Work_stranger! Поменяйте следующие строки: for j:=10 downto i+1 do begin if a[j-1]>a[j] then

Ответ отправил: Rumata (статус: 2-ой класс) Ответ отправлен: 03.01.2008, 12:05 Оценка за ответ: 4

Вопрос № 116.753

Дана действительная квадратная матрица порядка n.Преобразовать матрицу по правилу:строку с номером n сделать столбцом с номером n,а столбец с номером n сделать строкой с номером n.

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

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Петренко Игор Максимович! код в приложении. Удачи! Приложение: const n = 10; var A : array[1..n,1..n] of real; procedure change(var a,b:real); var t : real; begin t := a; a := b; b := t; end; procedure writemas; var i,j : integer; begin for i := 1 to n do begin for j := 1 to n do write(A[i,j],' '); writeln; end; end; var i,j : integer; begin randomize; for i := 1 to n do for j := 1 to n do A[i,j] := random(50)/(random(10)+1); {или какая-то другая формула для заполнения случайными числами} writemas; writeln; for i := 1 to n-1 do change(A[n,i],A[i,n]); writemas; readln; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Практикант) Ответ отправлен: 03.01.2008, 19:03

Вопрос № 116.770

Написать програму что содержит процедуру формирования списка и функцию что подсчитывает количество слов в списке которые начинаются и кончаются одной и той же буквой

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

Отвечает: -=Dr. Штопор=- Здравствуйте, Морозко Александр Викторович! Не знаю, в каком виде дан список. Буду считать, что в массиве из 10 элементов. Для этого случая код в приложении. Для своего случая меняйте верхний предел цикла (можете брать входным параметром функции). Если что, пишите на e-mail. ____________________________ Tantum possumus, quantum scimus Приложение: function(count(a:array of string):integer; var i,c:integer; BEGIN c:=0; for i:=1 to 10 do if a[i][1]=a[i][length(a[i])] then c:=c+1; count:=c; END; --------- Tantum possumus, quantum scimus

Ответ отправил: -=Dr. Штопор=- (статус: 5-ый класс) Ответ отправлен: 03.01.2008, 19:49

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