Подпрограммы и массивы Паскаль

@feelossoff · Регистрация: 28.03.2009

Студворк — интернет-сервис помощи студентам

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

@Puporev · 01.04.2009, 16:22

Может еще и саму задачу напишете?

Добавлено через 23 минуты 56 секунд
Вот пример программы, ввод массива, вывод, определение первой цифры в числе, удаление нолей из массива, сортировка массива по возрастанию первой цифры.

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
uses crt;
type mas=array[1..100] of integer;
procedure Vvod(var x:byte;var ms:mas);
var i:byte;
begin
write('Vvedite razmer massiva: ');
readln(x);
for i:=1 to x do
  begin
    write('el mass[',i,']=');
    readln(ms[i]);
  end;
end;
procedure Vyvod(x:byte;var ms:mas);
var i:byte;
begin
for i:=1 to x do
write(ms[i],' ');
writeln;
end;
{Opredelenie pervoj cifry}
function Cifr(x:integer):byte;
var s:string;
    t,c:integer;
begin
str(x,s);
val(s[1],t,c);
Cifr:=t;
end;
{Udalenie nolej}
procedure UdalenieNolej(var x:byte;var ms:mas);
var
i,k:byte;
begin
for i:=x downto 1 do
if ms[i]=0 then
  begin
    for k:=i to x-1 do
    ms[k]:=ms[k+1];
    x:=x-1;
  end;
end;
{Sortirovka po pervoj cifre}
procedure Sort(x:byte;var ms:mas);
var i,k:byte;
    b:integer;
begin
for i:=1 to x-1 do
for k:=i+1 to x do
if Cifr(ms[i])>Cifr(ms[k])then
   begin
    b:=ms[i];
    ms[i]:=ms[k];
    ms[k]:=b;
   end;
end;
var a:mas;
    n:byte;
begin
clrscr;
Vvod(n,a);
clrscr;
writeln('Ishodnyj massiv:');
Vyvod(n,a);
UdalenieNolej(n,a);
Sort(n,a);
writeln('Rezultat:');
Vyvod(n,a);
readln
end.

@feelossoff · 01.04.2009, 18:56 **[ТС]**

Сообщение от Puporev

Может еще и саму задачу напишете?

Добавлено через 23 минуты 56 секунд
Вот пример программы, ввод массива, вывод, определение первой цифры в числе, удаление нолей из массива, сортировка массива по возрастанию первой цифры.

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
uses crt;
type mas=array[1..100] of integer;
procedure Vvod(var x:byte;var ms:mas);
var i:byte;
begin
write('Vvedite razmer massiva: ');
readln(x);
for i:=1 to x do
  begin
    write('el mass[',i,']=');
    readln(ms[i]);
  end;
end;
procedure Vyvod(x:byte;var ms:mas);
var i:byte;
begin
for i:=1 to x do
write(ms[i],' ');
writeln;
end;
{Opredelenie pervoj cifry}
function Cifr(x:integer):byte;
var s:string;
    t,c:integer;
begin
str(x,s);
val(s[1],t,c);
Cifr:=t;
end;
{Udalenie nolej}
procedure UdalenieNolej(var x:byte;var ms:mas);
var
i,k:byte;
begin
for i:=x downto 1 do
if ms[i]=0 then
  begin
    for k:=i to x-1 do
    ms[k]:=ms[k+1];
    x:=x-1;
  end;
end;
{Sortirovka po pervoj cifre}
procedure Sort(x:byte;var ms:mas);
var i,k:byte;
    b:integer;
begin
for i:=1 to x-1 do
for k:=i+1 to x do
if Cifr(ms[i])>Cifr(ms[k])then
   begin
    b:=ms[i];
    ms[i]:=ms[k];
    ms[k]:=b;
   end;
end;
var a:mas;
    n:byte;
begin
clrscr;
Vvod(n,a);
clrscr;
writeln('Ishodnyj massiv:');
Vyvod(n,a);
UdalenieNolej(n,a);
Sort(n,a);
writeln('Rezultat:');
Vyvod(n,a);
readln
end.

красивое решение

спасибо - вы мне очень помогли примером

я то задачку решил сам но только благодаря вашему примеру

@Puporev · 01.04.2009, 18:57

В следующий раз не нужно цитировать полностью сообщение, а особенно код.

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@feelossoff 0 / 0 / 1 Регистрация: 28.03.2009 Сообщений: 77

	Подпрограммы и массивы Паскаль 31.03.2009, 21:03. Показов 1516. Ответов 3 Метки нет (Все метки) Составить программу решения задачи на Паскале, использовать процедуры ввода и вывода массивов, выделить в задаче вспомогательные алгоритмы и оформить их в виде подпрограмм. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	01.04.2009, 18:57
	В следующий раз не нужно цитировать полностью сообщение, а особенно код. 0