Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
lord111
0 / 0 / 3
Регистрация: 02.11.2012
Сообщений: 16
#1

Подпрограммы - Pascal

24.12.2012, 18:41. Просмотров 235. Ответов 0
Метки нет (Все метки)

Здравствуйте, помогите написать программу по теме "подпрограммы". Задание следующее: нужно написать функцию процедуру вектора n, чтобы выводилось на экран последовательность чисел по возрастанию. например имеется вектор (5 2 3 4 -1), нужно чтобы находились числа по возрастанию, в данном случае будет (2 3 4) и чтобы они выводились сами цифры, а не их колличество. Вот примерный код программы, только там выводится количество цифр по возрастанию, а мне нужно чтобы сами цифры выводились. заранее спасибо.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
program variant_1;
uses wincrt;
const n=10;
type vector= array[1..n] of integer;
var i, v_max, v_min: integer;
a:vector;
 
procedure posled (var a:vector);
var i, count, max, b, g:integer;
begin
max:=0;
for i:= 1 to n do
begin
count:=2;
for g:= 1 to i do
begin
if (a[g]<a[g+1])
then count:=count+1
else break;
end;
if (count>max)
then b:=count;
end;
write('chisla= ' b,);
end;
 
begin
randomize;
writeln('diapozon chisel:');
write('v_min=');
readln(v_min);
write('v_max=');
readln(v_max);
writeln;
for i:= 1 to n do
begin
a[i]:=random(v_max-v_min+1)+v_min;
end;
writeln('vector');
for i:= 1 to n do
begin
write(a[i]:5);
end;
writeln;
posled(a);
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2012, 18:41
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Подпрограммы (Pascal):

Составление прогами по использованию подпрограммы процедур и подпрограммы функций
Записать программу решения задачи. Процедуру вычислений повторяющихся записать...

подпрограммы
1)Напишите функцию CUBЕ, которая возвращает куб ее числового параметра 2)4....

Подпрограммы
Помогите решить завтра сдавать не получаетсь 2 дня уже сижу Задача ...

Подпрограммы
Помогите пожалуйста задачки решить через функцию, очень надо, завтра отчет...

Подпрограммы
Даны вещественные a, b, c. Среди всех перестановок этих чисел (a,b,c), (a,c,b),...

Подпрограммы
Написать программу, которая по заданным натуральным значениям a и n вычисляет...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.12.2012, 18:41
Привет! Вот еще темы с решениями:

Подпрограммы
Задание: Написать программу с использованием подпрограмм. В подпрограммах не...

подпрограммы
Написать программу с использованием подпрограмм. В подпрограммах не должно...

Подпрограммы
Уважаемые, помогите пожалуйста решить задачу В задаче №1 описать предложенную...

Подпрограммы
Помогите пожалуйста построить блок-схему var a,b,c,d,i:real; procedure...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru