 процедуры |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| СТАНИСЛАВ |
 20.04.2006 16:30
Сообщение
#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 - 3.11.2006 22:49 |
   |
 
|
  |
Ответов(1 - 6)
| Ozzя |
20.04.2006 16:46
Сообщение
#2
|
 Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Цитата проверте написанную программу на правильность Ошибка в строке № 1. |
|
|
|
| volvo |
20.04.2006 17:03
Сообщение
#3
|
|
Гость |
Цитата проверте написанную программу на правильность Вообще-то этим компилятор заниматься должен... Ты ХОТЯ БЫ запускал Паскаль? |
|
|
|
| СТАНИСЛАВ |
20.04.2006 20:10
Сообщение
#4
|
|
Новичок Группа: Пользователи Сообщений: 10 Пол: Мужской Реальное имя: СТАНИСЛАВ Репутация: 0 |
Я не могу устранить эту ошибку просто не понимаю как. Вы не могли бы предложить свой вариант решения.
Сообщение отредактировано: СТАНИСЛАВ - 20.04.2006 20:11 |
|
|
|
| Романтик |
20.04.2006 21:12
Сообщение
#5
|
 Бывалый Группа: Пользователи Сообщений: 159 Пол: Мужской Реальное имя: Anton Репутация: 0 |
Цитата(СТАНИСЛАВ @ 20.04.2006 16:30)  3)создать процедуру вывода элемента мвссива начиная с максимального. пункт 3:Возьми пузырек Сообщение отредактировано: volvo - 3.11.2006 22:50 -------------------- made in USSR.
|
|
|
|
| СТАНИСЛАВ |
20.04.2006 21:37
Сообщение
#6
|
|
Новичок Группа: Пользователи Сообщений: 10 Пол: Мужской Реальное имя: СТАНИСЛАВ Репутация: 0 |
Что значит пузырёк.
|
|
|
|
| klem4 |
21.04.2006 6:26
Сообщение
#7
|
 Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Если бы ты сходил по ссылке то нашел бы ответ в посте №1.
Так называется способ сортировки - пузырьковый или метод пузырька. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 19.07.2025 5:29 |