Программа жасаудың алдыңғы қатардағы озық үлгілерін өмірге енгізу

жүктеу/скачать 394,57 Kb.

бет	8/8
Дата	26.01.2022
өлшемі	394,57 Kb.
	#114879
түрі	Программа

1 2 3 4 5 6 7 8

Байланысты:
f6076c67db5d95

4. Бір өлшемді массив

19 – Нұсқа

Есептің берілгені:

А массиві берілген. Ең үлкен элементті табыңыз. Оны алдында тұрған элементтердің қосындысының мәнімен ауыстырыңыз. Бастапқы және алынған массивтерді, ең үлкен элементтің мәні мен индексін, қосындының мәнін басып шығарыңыз.

Есептің блок-схема бойынша шешімі

Басы

n:=5

i:=1, n, 1

A[i]

max_indexi := 1;

max := a[1];

i:=2, n, 1

Шығу Max, max_indexi

A[i]>max

i:=1, n, 1

max_indexi := i;

sum := sum + a[i];

max := a[i];

Шығу sum

i:=1, n, 1

a[max_indexi] := sum;

соңы

Object Pascal тілінің жазылуы:

Var

n, i, max, min: Integer;

x: Array[1..100] Of Integer;

Begin

Read(n);

For i:= 1 To n Do

Begin

Read(x[i]);

End;

max:= x[1];

min:= x[1];

Begin

If (max < x[i]) Then

Begin

max:= x[i];

End;

If ( min > x[i]) Then

Begin

min:= x[i];

End;

Begin

max:= max - min;

WriteLn(max);

End;

End.
Бағдарламаны тестілеу

5. Екі өлшемді массивтерді өңдеу

19 - нұсқа

Есептің берілгені:

Матрица берілген. Бас диагональдан төмен оң элементтердің қосындысы мен санын есептеңіз. Матрицаны шығарыңыз, қосындысы - сан.

Есептің блок-схема бойынша шешімі:

Object Pascal тілінің жазылуы

const

n = 5; {жолдар мен бағандар саны}

var

а: бүтін сан [1..n, 1..n] массив; {массив}

k, қосынды: бүтін сан; {оң элементтер саны және элементтер қосындысы}

i, j: бүтін сан;

баста

writeln ('Массивті енгізу');

writeln ('Әр жолдың элементтерін енгізгеннен кейін', n, 'бүтін сандар, ' пернесін басыңыз ');

жиын: = 0; k: = 0;

i: = 1-ден n-ге дейін {n жол}

баста

жазу ('->');

j: = 1 үшін n істеу керек

оқу (a [i, j]);

Соңы;

writeln ('Кіріс массиві');

i: = 1 үшін n істеу керек

баста

жазу ('->');

j: = 1-ден n-1-ге дейін

жазу (a [i, j]: 4);

writeln (a [i, n]: 4);

{емдеу}

i үшін: = 1-ден n-ге дейін {әр жол үшін}

j: = 1-ден n-ге дейін {бір жолдың элементтерін қосыңыз}

егер i> j болса, онда қосынды: = summ + a [i, j];

егер (i> j) және (a [i, j]> 0) болса, онда k: = k + 1;

Соңы;

writeln ('-------------------------------');

writeln ('Матрицаның бас диагоналі астындағы элементтердің қосындысы =', қосынды: 2)

writeln ('Матрицаның негізгі диагоналінің астында орналасқан оң элементтер саны =', k:2);

жазба;

оқылған;

Соңғы шешімі:

Әр жолдың элементтерін, 5 бүтін санды енгізгеннен кейін, пернесін басыңыз

-> 1 1 1 1 1

-> 2 2 2 2 2

-> 1 1 1 2 2

Массив енгізілді

-> 1 1 1 1 1

-> 2 2 2 2 2

-> 1 1 1 2 2

-------------------------------

1-қатар = 5 2-қатар = 10 3-жол = 7

Бағдарламаны Тестілеу

Қорытынды

Қорыта келе өндірістік оқыту пәнінен оқу тәжірибесінде мен алгоритмдер теориясының негізгі ұғымдарын және бағдарламалау элементтерін зерттедім. Object Pascal процедуралық тілінің келесі бөлімдері мен мүмкіндіктері зерттелді және әртүрлі тапсырмаларда қолданылды:

- Object Pascal процедуралық тілінің негізгі түсініктері;

- Бағдарлама құрылымы. Бағдарламалау стилі бойынша кеңестер. Енгізу, шығару операторлары.

- Деректер түрлері, оларды жіктеу және қарапайым стандартты деректер түрлерін сипаттау;

- Паскаль тіліндегі тармақталу бағдарламасы туралы түсінік. If шартты операторының құрылымы;

- Циклдік операторлар: do, While Do, Repeat Until;

- Бір өлшемді массивтерді өңдеу;

- Екі өлшемді массивтерді өңдеу.

Оқу практикасының мақсатына қол жеткізілді, барлық зерттелген материалдар жеке тапсырмаларды орындау кезінде қолданылды.

Пайдаланылған әдебиеттер тізімі

Бөрібаев Б., Абдрахманова М.Б. Web-технологиялар: зертханалық жұмыстарға

арналған әдістемелік нұсқаулар, 1 бөлім.. –Алматы: АЭСА, 2014. -228 б.

Бөрібаев Б., Мадьярова Г. Web-технологиялар: Оқулық. –Алматы: «Дәуір» ЖШС, 2011.

-208 б.

Мазуркевич А., Еловой Д. РНР: настольная книга программиста.- М.: Новое знание,

2004. -479 с.

Основы программирования РНР: курс лекций: уч. Пособие для ст-тов вуза /

Н.В.Савельева. – М.: Интернет-Ун-т информ. технологий, 2005. –264 с.

Федотов Ф.М. Введение в Интернет. http://www.ict.nsc.ru/win/fedotov/inter
Джон Коггзолл. PHP5. Полное руководство. -М.: Диалектика. 2006.
Люк Веллинг, Лаура Томсон. Разработка Web-приложений с помощью PHP и MySQL.М.: Вильямс. 2007

жүктеу/скачать 394,57 Kb.

Достарыңызбен бөлісу:

1 2 3 4 5 6 7 8