Опис алгоритму. В даному алгоритмі спочатку вводимо з клавіатури матрицю

В даному алгоритмі спочатку вводимо з клавіатури матрицю. Пізніше сумі S1 присвоюємо суму всіх елементів, S2 присвоюємо суму тих елементів, які не входять в заштрихований шаблон, тобто тих, які не належать рамці. Розмір рамки вводимо з клавіатури. Щоб знайти суму елементів що належать заштрихованому шаблону ми від S1 віднімаємо S2.

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

Program mat;

uses crt;

var A:array[1..10,1..10] of integer;

S1, S2, S, i, j, n, m, k:integer;

begin

clrscr;

textColor(green);

writeln('vvedit rozmir matruci');

read(n);

textColor(magenta);

writeln('vvedit elementu matruci');

for i:=1 to n do

for j:=1 to n do

read(a[i,j]);

S1:=0;

for i:=1 to n do

for j:=1 to n do

S1:=S1+a[i,j];

textColor(lightblue);

writeln('vvedit rozmir ramku');

read(k);

S2:=0;

for i:=k+1 to n-k do

for j:=k+1 to n-k do

S2:=S2+a[i,j];

S:=S1-S2;

textColor(red);

writeln('S1= ',S1,' - syma vsih elementiv matruci');

writeln('S2= ',S2,' - syma elementiv matruci, jaki ne vhodjat v ramky');

writeln('S1= ',S1,' - syma elementiv, jaki nalezhat ramci');writeln;

readln;

repeat until keypressed;

end.

Апробація

1) VVEDIT ROZMIR MATRUCI

VVEDIT elementu MATRUCI

1 2 3 4

2 3 4 5

3 4 6 5

6 8 9 7

VVEDIT ROZMIR RAMKU

S1:=72 - syma vsih elementiv matruci

S2:=17 - syma elementiv matruci, jaki ne vhodjat v ramky

S:=55 - syma elementiv, jaki nalezhat ramci

2) VVEDIT ROZMIR MATRUCI

VVEDIT elementu MATRUCI

-4 3 8

0 8 9

3 -2 4

VVEDIT ROZMIR RAMKU

S1:=27 - syma vsih elementiv matruci

S2:=0 - syma elementiv matruci, jaki ne vhodjat v ramky

S:=27 - syma elementiv, jaki nalezhat ramci

3) VVEDIT ROZMIR MATRUTSI

VVEDIT elementu MATRUCI

2 3 4

2 3 4

3 3 3

VVEDIT ROZMIR RAMKU

S1:=27 - syma vsih elementiv matruci

S2:=0 - syma elementiv matruci, jaki ne vhodjat v ramky

S:=27 - syma elementiv, jaki nalezhat ramci

Завдання № 4

тема завдання

Постановка задачі

Задана послідовність із n (n < 21) слів (текстових стрічок). Надрукувати лише ті слова, в яких символи впорядковані по алфавіту.

Опис алгоритму

Текст текст текст

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

program rjadok;

USES CRT;

var a:string;

k: array[1..20] of integer;

m, b, c, t, i: integer;

begin

CLRSCR;

writeln ('vvedit rjadok a');

readln (a);

for i:=1 to length (a) do

begin

k[t]:=pos(' ', a);

if k[t]=0 then break;

t:=t+1;

delete (a, k[t], 1);

insert ('p', a, k[t]);

end;

for m:=1 to t do

begin

delete (a, k[t], 10);

insert (' ', a, k[t]);

end;

for i:=1 to t-1 do

for b:=k[i]+1 to k[i+1]-1 do

for c:=k[i]+2 to k[i+1]-1 DO

if a[b]>a[c] then writeln (a[i]) else writeln(‘takuh skiv ne vvedeno’);

REPEAT UNTIL KEYPRESSED;

WRITELN;

READLN;

end.

Апробація

1) vvedit rjadok a

kit fre ac bite bktw

ac bktw

2) vvedit rjadok a

Dut dty ja aklm

Dty aklm

3) vvedit rjadok a

Nas hurb elips

takuh skiv ne vvedeno

Завдання № 5

тема завдання

Дата добавления: 2015-07-17