В кровавых рукопашных боях. Результати виконання програми:

 

Результати виконання програми:

Введіть масив Q1[6]:

3 5 4 5 6 4

Введіть масив Q2[18]:

3 4 2 3 1 2 3 4 5 6 7 8 9 9 8 7 6 5

Введіть масив Q3[14]:

3 4 3 2 4 5 6 7 6 7 5 6 5 4

Мінімальний елемент масиву Q1 =3

Мінімальний елемент масиву Q2 =1

Мінімальний елемент масиву Q3 =2

Найменший елемент серед мінімальних =1

 

Приклад 4. У кожному рядку матриці K[6,5] визначити перший додатний елемент та його індекси (номер рядка і стовпчика, в якому він знаходиться).

Текст програми:

Program PR4;

Uses crt;

Const n=6; {кількість рядків матриці}

m=5; {кількість стовпців матриці}

Type

vec=array[1..m] of integer; {вектор, який містить всі елементи поточного рядка}

Var i,j: integer; {параметри циклів}

a: integer; {перший додатній елемент рядка}

st: integer; {номер стовпця, в якому знаходиться перший додатній елемент рядка}

s:array[1..n]of vec; {матриця}

vr:vec; {вектор для збереження елементів одного рядка і передачі їх до процедури}

vr2: array[1..n] of integer; {вектор для збереження номерів стовпців, які містять перші додатні елементи рядків}

vr3:array[1..n]of integer; {вектор для збереження перших додатніх елементів рядків}

{---------------------------------------------------------------}

Procedure dod (riad:vec; Var d_el:integer; Var nom:integer);

{riad – рядок матриці, d_el – перший додатній елемент, nom – номер стовпця, в якому знаходиться перший додатній елемент рядка}

Var z:integer;

Begin

for z:=1 to m do if riad[z] > 0 then

begin d_el:= riad[z];

nom:= z;

break;

end;

End;

{---------------------------------------------------------------}

Begin

clrscr;

writeln(' Введіть матрицю ', n, 'x', m, ’:’);

for i:=1 to n do

for j:=1 to m do read(s[i,j]); writeln;

for i:=1 to n do

begin vr:=s[i];

dod(vr,a,st);

vr2[i]:=st;

vr3[i]:=a;

end;

writeln('ПЕРШІ ДОДАТНІ ЕЛЕМЕНТИ РЯДКІВ ТА ЇХ ІНДЕКСИ:');

for i:=1 to n do

writeln(vr3[i], ': i=', i, ';j=', vr2[i], '; ');

readkey

End.

 

Результати виконання програми:

Введіть матрицю 6х5:

-3 4 3 2 3

-6 -5 9 8 7

-3 -4 -2 3 2

1 2 3 4 5

-4 3 2 3 4

2 3 4 5 6

ПЕРШІ ДОДАТНІ ЕЛЕМЕНТИ РЯДКІВ ТА ЇХ ІНДЕКСИ:

4: i=1;j=2;

9: i=2;j=3;

3: i=3;j=4;

1: i=4;j=1;

3: i=5;j=2;

2: i=6;j=1;

 

Приклад 5. У послідовності слів, що розділяються пробілом, провести такі заміни: якщо слово має непарну кількість літер, то поміняти місцями середню та останню літери, якщо парну – то посередині вставити введену літеру.

Текст програми:

Program PR5;

Uses crt;

Var text: string; {послідовність слів}

s: string; {слово з заданої послідовності слів}

lit: char; {літера, яку потрібно вставити в усі слова з парною кількістю літер}

i: integer; {параметр циклу}

Pb: integer; {номер пропуску між словами}

a:integer; {кількість букв у слові, в яке вставили посередені введену літеру}

{---------------------------------------------------------------}

Procedure wordik(Var slovo:string;Var size:integer);

Var d:char;

Begin

If odd(size) then {якщо слово має непарну кількість літер}

begin

d:= slovo[size div 2+1];

slovo[size div 2+1]:= slovo[size];

slovo[size]:= d;

end

else

begin

insert(lit, slovo, size div 2+1);

size:=size+1;

end

End;

{---------------------------------------------------------------}

Begin

clrscr;

writeln('Введіть текст:');

readln(text);

writeln('Введіть літеру:');

readln(lit);

writeln('Перетворений текст:');

While Pos(' ',text) <> 0 do {поки в тексті ще є пропуски}

begin

Pb:= Pos(' ',text);

s:= Copy(text,1,Pb-1); {копіюємо усі символи до першого пропуску, тобто, одне слово}

a:=Length(s);

wordik(s,a); {звернення до процедури}

for i:=1 to a do write(s[i]); write(' ');

Delete(text,1,Pb); { вилучаємо з послідовності слів поточне слово разом з пробілом з метою опрацювання наступного слова }

end;

readln

End.

Результати виконання програми:

Введіть текст:

Вивчаємо процедури та функції

Введіть літеру:

у

Перетворений текст:

Вивчуаємо процидуре туа фунїцік

Учебно-тренировочный турнир в младшей группе. 4-ая четверть 2014/2015 года. Турнирное положение на 10.09.15

И

%

М

Раковщик Мария

Ермолаев Даниил

1½

3½

Поздняков Александр

3½

2½

Васильева Арина

1½

½

Якунина Ксения

½

11½

Богачёва Евгения

½

6½

Чистяков Артём

½

2½

1½

19½

Артемьев Дэвид

1½

½

2½

10½

Якунина Анастасия

1½

6½

Бережков Евгений

½

3½

Цатурян Анастасия

Гулин Филипп

½

½

 

Георгиевская лента - символ Дня Победы

Наш многовековой символ, олицетворяющий подвиг русских воинов-героев на полях сражений,

в кровавых рукопашных боях

Орденами и медалями, украшенными гвардейской (георгиевской) ленточкой, награждались воины за личный подвиг на поле боя: зазахват знамени врага, оказание помощи раненым под пулями неприятеля, спасение знамени своей части, проникновение первым в укрытие врага и ликвидацию его гарнизона.

Героев, получивших этот почетный знак, сразу же повышали в должности.

Награждались также героически сражавшиеся воинские подразделения.

 

Георгиевская ленточка присутствует в следующих знаках отличия:

 

· Орден Святого Георгия Победоносца (с 1769 г., Екатерина II; с 1992 г.)

· Георгиевский крест (с 1807 г.; с 1992 г.)

· Георгиевская медаль "За храбрость" (с 1913 г.)

· Орден Славы (с 1943)

· Медаль "За победу над Германией в Великой Отечественной Войне" (1945 г.)

· Медаль "За взятие Берлина" (с 1945 г.)

· На двойных петлицах мундиров штаб- и обер-офицеров Русской армии

· На петлицах мундиров нижних чинов Русской армии

· На наградном офицерском оружии в Русской армии

· На бескозырках матросов Гвардейского экипажа русской императорской гвардии и матросов кораблей, награждённых Георгиевским флагом

· На Георгиевских знаменах (штандартах) (с 1806)

· На Георгиевских трубах в Русской армии