Технология програмирования! для экзамена= )

@antoine_vix · Регистрация: 31.05.2009

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

Внимание! Решение задач оформлять в виде подпрограмм-функций или подпрограмм-процедур, которые вставлять в программные модули.
В головной программе предусмотреть связь с модулем и вызов подпрограмм из него. Если в задании используется вектор, то передавать его в подпрограмму в виде открытого массива.
Рабочие массивы не использовать.

Кто чем поможет =)))) заранее очень благодарен )) поможем друг другу ))

1. Из заданного натурального числа n удалить все четные цифры.
2. Перевернуть заданное натуральное число n и сложить с исходным.
3. Поставить все цифры заданного натурального числа n по возрастанию.
4. Вычислить:
S =((…(n2 – (n – 1)2 )2 – (n – 2)2 )2 – (n – 3)2 )2 ) - …- 22 )2 – 12 )2
5. Определить сумму n последних цифр заданного натурального числа k.
6. Определить максимальную и минимальную цифру заданного натурального числа k (все цифры в числе различные).
7. Определить, сколько раз в заданном натуральном числе n встречается заданная цифра k.
8. Определить, стоят ли в заданном натуральном числе n цифры по возрастанию при просмотре его слева направо.
9. Установить, является ли заданное натуральное число n палиндромом (одинаково читается как слева направо, так и справа налево).
10. Установить, является ли заданное натуральное число n<100 000 членом ряда Фибоначчи.
11. Задан факториал числа n. Найти это число.
12. Сложить по mod 10 слева направо соответствующие цифры двух натуральных чисел k и n: 375 + 1436 = 4186
13. Определить, имеется ли в заданной строке S палиндром длиннее двух символов:
перебор → ере.
14. С клавиатуры вводятся несколько цифр (конец ввода – цифра 0, не входящая в последовательность). Составить из них самое большое и самое маленькое целые числа.
15. Дан кирпич со сторонами a, b, c. Выяснить, пройдет ли он в прямоугольное отверстие со сторонами x и y.
16. Поезд прибывает на станцию в a часов и b минут, убывает в c часов и d минут. Пассажир пришел на вокзал в x часов и y минут. Опоздал ли он на поезд? ( 0 ≤ a,c,x ≤ 23 0 ≤ b,d,y ≤ 59)
17. В заданном целочисленном векторе Vn определить, сколько раз повторяется в его элементах заданная цифра k.
18. Отыскать центр тяжести заданного вектора Vn – такой его элемент, для которого сумма элементов слева и справа от него одинакова или наиболее близка к одинаковой (n нечетно).
19. В заданном векторе Vn найти расстояние (разность индексов) между минимальным и максимальным его элементами.
20. В заданном векторе Vn , состоящем из нулей и единиц, поменять местами нули и единицы, стоящие рядом.
21. Удалить из заданного целочисленного вектора Vn все повторяющиеся элементы, заменив их нулями и оставив только их первые вхождения.
22. В заданном целочисленном векторе Vn имеются только два одинаковых элемента. Найти их.
23. В заданном целочисленном векторе Vn переписать сначала все нули, затем все положительные элементы, затем все отрицательные элементы в порядке их следования.
24. В заданном целочисленном массиве Anm обнулить строки и столбцы, в которых находятся максимальный и минимальный элементы массива.
25. В заданном целочисленном массиве Anm сдвинуть все столбцы на один шаг вправо (последний столбец – на первое место).

@Saplex · 02.03.2010, 17:21

24. В заданном целочисленном массиве Anm обнулить строки и столбцы, в которых находятся максимальный и минимальный элементы массива.

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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
uses wincrt;
const
n=5;m=8;a_min=1;a_max=9;
type
matrix=array [1..n,1..m]  of integer;
var
a:matrix;
imin,imax,jmin,jmax:word;
procedure form_matr(n,m,min,max:integer;var mat:matrix);
var i,j:word;
begin
for i:=1 to n do
    for j:=1 to m do
    begin
      mat[i,j]:=random(max-min)+min;
    end;
end;
procedure print_matr(n,m:integer;mat:matrix);
var i,j:word;
begin
for i:=1 to n do
begin
  for j:=1 to m do
    write(mat[i,j]:2);
  writeln;
end;
end;
function i_min(n,m:integer;mat:matrix):word;
var i,j:word;
k:word;
min:integer;
begin
k:=1;
min:=mat[1,1];
  for i:=1 to n do
    for j:=1 to m do
      if mat[i,j]<min then
      begin
        min:=mat[i,j];
        k:=i;
      end;
i_min:=k;
end;
function j_min(n,m:integer;mat:matrix):word;
var i,j:word;
k:word;
min:integer;
begin
k:=1;
min:=mat[1,1];
  for i:=1 to n do
    for j:=1 to m do
      if mat[i,j]<min then
      begin
        min:=mat[i,j];
        k:=j;
      end;
j_min:=k;
end;
function i_max(n,m:integer;mat:matrix):word;
var i,j:word;
k:word;
max:integer;
begin
k:=1;
max:=mat[1,1];
  for i:=1 to n do
    for j:=1 to m do
      if mat[i,j]>max then
      begin
        max:=mat[i,j];
        k:=i;
      end;
i_max:=k;
end;
function j_max(n,m:integer;mat:matrix):word;
var i,j:word;
k:word;
max:integer;
begin
k:=1;
max:=mat[1,1];
  for i:=1 to n do
    for j:=1 to m do
      if mat[i,j]>max then
      begin
        max:=mat[i,j];
        k:=j;
      end;
j_max:=k;
end;
procedure zero(n,m:integer;imn,jmn,imx,jmx:word;var mat:matrix);
var i,j:word;
begin
  for i:=1 to n do
    for j:=1 to m do
      if (imn=i)or(imx=i)or(jmn=j)or(jmx=j) then
        mat[i,j]:=0;
end;
begin
randomize;
writeln('Matrix A:');
form_matr(n,m,a_min,a_max,a);
print_matr(n,m,a);
writeln;
imin:=i_min(n,m,a);
imax:=i_max(n,m,a);
jmin:=j_min(n,m,a);
jmax:=j_max(n,m,a);
writeln('min=a(',imin,',',jmin,')  max=a(',imax,',',jmax,')');
writeln;
zero(n,m,imin,jmin,imax,jmax,a);
print_matr(n,m,a);
end.

Добавлено через 19 минут
Поворот матрицы на 90 градусов

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
uses wincrt;
var n,i,j,p,k,x:integer;
    a:array[1..50,1..50] of integer;
begin
clrscr;
write('n=');readln(n);
writeln('Ischodnaia matritsha:');
randomize;
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(15)-4;
        write(a[i,j]:4);
      end;
  writeln;
  end;
p := n div 2; {разбиваем матрицу на 4 части}
for i:=1 to p do
for k:=i to n-i do{меняем элементы по кругу из одной четверти в другую}
  begin
    x:=a[i,k];
    a[i,k]:=a[n-k+1,i];
    a[n-k+1,i]:=a[n-i+1,n-k+1];
    a[n-i+1,n-k+1]:=a[k,n-i+1];
    a[k,n-i+1]:=x;
  end;
Writeln('Povorot na 90 grad:');
for i:=1 to n do
  begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln;
  end;
readln
end.

и второй вариант я маленько по-другому сделал - сначала матрицу отобразил зеркально, потом транспонировал (поменял строки со столбцами)

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
uses wincrt;
const
n=5;a_min=1;a_max=9;
type
matrix=array [1..n,1..n] of integer;
var
a:matrix;
 
procedure form_matrix(n,min,max:integer;var m:matrix);
var i,j:word;
begin
for i:=1 to n do
for j:=1 to n do
begin
m[i,j]:=random(max-min)+min;
end;
end;
 
procedure print_matrix(n:integer;m:matrix);
var i,j:word;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(m[i,j]:2);
writeln;
end;
end;
 
procedure mirror(n:integer;var m:matrix);
var i,j:word;
t:integer;
begin
for i:=1 to (n div 2) do
for j:=1 to n do begin
t:=m[i,j];
m[i,j]:=m[n-i+1,j];
m[n-i+1,j]:=t;
end;
end;
 
procedure transp(n:integer;m:matrix);
var i,j:word;
t:integer;
begin
for i:=1 to n do
for j:=i to n do
begin
t:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=t;
end;
end;
 
begin
randomize;
writeln('Matrix A:');
form_matrix(n,a_min,a_max,a);
print_matrix(n,a);
mirror(n,a);
transp(n,a);
writeln;
print_matrix(n,a);
end

.

Новые блоги и статьи Все статьи Все блоги /
Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .	В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .
Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .	rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .	Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .	Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .

@antoine_vix 4 / 4 / 0 Регистрация: 31.05.2009 Сообщений: 69

	Технология програмирования! для экзамена= ) 21.01.2010, 08:19. Показов 2844. Ответов 20 Метки нет (Все метки) Внимание! Решение задач оформлять в виде подпрограмм-функций или подпрограмм-процедур, которые вставлять в программные модули. В головной программе предусмотреть связь с модулем и вызов подпрограмм из него. Если в задании используется вектор, то передавать его в подпрограмму в виде открытого массива. Рабочие массивы не использовать. Кто чем поможет =)))) заранее очень благодарен )) поможем друг другу )) 1. Из заданного натурального числа n удалить все четные цифры. 2. Перевернуть заданное натуральное число n и сложить с исходным. 3. Поставить все цифры заданного натурального числа n по возрастанию. 4. Вычислить: S =((…(n2 – (n – 1)2 )2 – (n – 2)2 )2 – (n – 3)2 )2 ) - …- 22 )2 – 12 )2 5. Определить сумму n последних цифр заданного натурального числа k. 6. Определить максимальную и минимальную цифру заданного натурального числа k (все цифры в числе различные). 7. Определить, сколько раз в заданном натуральном числе n встречается заданная цифра k. 8. Определить, стоят ли в заданном натуральном числе n цифры по возрастанию при просмотре его слева направо. 9. Установить, является ли заданное натуральное число n палиндромом (одинаково читается как слева направо, так и справа налево). 10. Установить, является ли заданное натуральное число n<100 000 членом ряда Фибоначчи. 11. Задан факториал числа n. Найти это число. 12. Сложить по mod 10 слева направо соответствующие цифры двух натуральных чисел k и n: 375 + 1436 = 4186 13. Определить, имеется ли в заданной строке S палиндром длиннее двух символов: перебор → ере. 14. С клавиатуры вводятся несколько цифр (конец ввода – цифра 0, не входящая в последовательность). Составить из них самое большое и самое маленькое целые числа. 15. Дан кирпич со сторонами a, b, c. Выяснить, пройдет ли он в прямоугольное отверстие со сторонами x и y. 16. Поезд прибывает на станцию в a часов и b минут, убывает в c часов и d минут. Пассажир пришел на вокзал в x часов и y минут. Опоздал ли он на поезд? ( 0 ≤ a,c,x ≤ 23 0 ≤ b,d,y ≤ 59) 17. В заданном целочисленном векторе Vn определить, сколько раз повторяется в его элементах заданная цифра k. 18. Отыскать центр тяжести заданного вектора Vn – такой его элемент, для которого сумма элементов слева и справа от него одинакова или наиболее близка к одинаковой (n нечетно). 19. В заданном векторе Vn найти расстояние (разность индексов) между минимальным и максимальным его элементами. 20. В заданном векторе Vn , состоящем из нулей и единиц, поменять местами нули и единицы, стоящие рядом. 21. Удалить из заданного целочисленного вектора Vn все повторяющиеся элементы, заменив их нулями и оставив только их первые вхождения. 22. В заданном целочисленном векторе Vn имеются только два одинаковых элемента. Найти их. 23. В заданном целочисленном векторе Vn переписать сначала все нули, затем все положительные элементы, затем все отрицательные элементы в порядке их следования. 24. В заданном целочисленном массиве Anm обнулить строки и столбцы, в которых находятся максимальный и минимальный элементы массива. 25. В заданном целочисленном массиве Anm сдвинуть все столбцы на один шаг вправо (последний столбец – на первое место). 0