IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> процедуры
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской
Реальное имя: СТАНИСЛАВ

Репутация: -  0  +


привет всем я вновь в затруднительном положении. Задали решить задачу. смысл которой заключается в следующем:
1)написать процедуру вывода одномерного массива вещественных чисел.
2)составить функцию определяющую позицию МАХ элемента.
3)создать процедуру вывода элемента мвссива начиная с максимального.

начал писать программу но что-то не заладилось и правильный результат не получился. помогите пожалуста. мой вариант программы:

rogram sputnik;
type a=array[1..10] of integer;
procedure vivod(var x:a; n:integer);
var i :integer;
begin
for i:=1 to n do
begin
write('x[',i:2,']=');
readln(x[i]);
end;
end;
function max(var x:a; n:integer):integer;
var j, max_posic:integer;
begin
max_posic:=x[1];
for j:=2 to ndo
if x{j}>max_posic then max_posic:=x[j];
max:=max_posic;
end;
var x:a; k:integer;
begin
writeln('vivod max');
readln (k);
vivod(x,k);
writeln('max=',max(x,k));
end.


прошу помоч составить третий пункт задания т.е составить процедуру вывода элемента массива начиная с МАХ.
Ну а также пожалуста проверте написанную программу на правильность.
Зарание очень благодарен за помощь и потраченое время.

Сообщение отредактировано: volvo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Цитата
проверте написанную программу на правильность

Ошибка в строке № 1.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Цитата
проверте написанную программу на правильность

Вообще-то этим компилятор заниматься должен... Ты ХОТЯ БЫ запускал Паскаль?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской
Реальное имя: СТАНИСЛАВ

Репутация: -  0  +


Я не могу устранить эту ошибку просто не понимаю как. Вы не могли бы предложить свой вариант решения.

Сообщение отредактировано: СТАНИСЛАВ -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Бывалый
***

Группа: Пользователи
Сообщений: 159
Пол: Мужской
Реальное имя: Anton

Репутация: -  0  +


Цитата(СТАНИСЛАВ @ 20.04.2006 16:30) *
3)создать процедуру вывода элемента мвссива начиная с максимального.

пункт 3:Возьми пузырек

Сообщение отредактировано: volvo -


--------------------
made in USSR.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской
Реальное имя: СТАНИСЛАВ

Репутация: -  0  +


Что значит пузырёк.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Если бы ты сходил по ссылке то нашел бы ответ в посте №1.

Так называется способ сортировки - пузырьковый или метод пузырька.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 24.06.2017 22:42
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"