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

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

24.12.2012, 18:41. Просмотров 238. Ответов 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
Ответы с готовыми решениями:

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

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

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

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

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

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

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

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

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


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

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

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