Turbo Pascal тілінде екі өлшемді массивті орындау

 

 

№3 Тапсырма.

 

Берілгені: Массивтағы кесте бағанының орындарын ауыстыру.

Орындау алгоритімі.

• Біріншіден, программаның жұмысын көрсету үшін, пернетақтақтаның көмегімен зерттелген массивті енгіземіз.
• Массив бағанының номері беріледі. Әрине, олар тең емес, сондықтан, үлкен мағынасы массивтегі бағанның мағынасынан үлкен болмайды. 
• Одан соң, массив бағанының мағынасы сақтық орынға ауыстырылады, ал екінші бағанның мағынасы бірінші бағанның мағынасына ауыстырылады.

 

Программаның  мәтіні

program pr3;

uses crt;

const n=50;

m=10;

var mas1:array[1..n,1..m] of real;

mas2:array[1..m]of real;

i,j,l,p,n1,n2:integer;

ch:char;

begin

clrscr;

write('kestede bos orinnan kein katar men bagan sanin korset ');

readln(l,p);

writeln;

for i:=1 to l do

begin

for j:=1 to p do

begin

writeln ('massiv engiz1[',i,j,']');

readln(mas1[i,j]);

end;

end;

for i:=1 to l do

begin

for j:=1 to p do

write (' ',mas1[i,j]:3:2,' ');

writeln;

end;

readln;

repeat

clrscr;

writeln;

write('usinilgan bagan nomerin <',p,' bos orinnan kein korset');

readln(n1,n2);

for i:=1 to l do

begin

mas2[i]:=mas1[i,n1];

mas1[i,n2]:=mas1[i,n2];

mas1[i,n2]:=mas2[i];

end;

for i:=1 to l do

begin

for j:=1 to p do

write('',mas1[i,j]:3:2,'');

writeln;

end;

writeln;

write('orin auistirudi kaitalau kerek pe? y/n');

readln(ch);

until upcase(ch)<> 'y'

end.

 

Есептің жауабы

kestede bos orinnan kein katar men bagan sanin korset 4 2

massiv engiz1[11]

1

massiv engiz1[12]

2

massiv engiz1[21]

3

massiv engiz1[22]

4

massiv engiz1[31]

5

massiv engiz1[32]

6

massiv engiz1[41]

7

massiv engiz1[42]

8

1.00  2.00

3.00  4.00

5.00  6.00

7.00  8.00

usinilgan bagan nomerin <2 bos orinnan kein korset5

3

1.002.00

3.004.00

5.006.00

7.008.00

orin auistirudi kaitalau kerek pe? y/n

 

 

 

 

 

 

 

 

 

Қорытынды

 

Мен курстық жобамды  Турбо Паскаль тілінде жазып  аяқтадым. Бұл курстық жоба маған  Турбо Паскаль ортасында ары- қарай жұмыс істеуге жол ашты деп ойлаймын. Осы жасалынған курстық жоба программалау пәнінен берілген тапсырма болған .Менің жасаған курстық жобам өзімнің оқып жүрген  мамандығыма өзінің бір есігін ашты деген ойдамын.

Маған берілген тапсырма «Turbo Pascal екі өлшемді массив есептерді  орындау» болатын. Яғни осы тапсырмаға мен Турбо Паскаль тілінің ортасында программа құрдым, жасалынған тапсырма тек маған ғана емес осы саладағы  басқа адамдарға да  керектігін тигізеді деген мақсаттамын.

Осы жасалынып отырған  курстық жоба арқасында Турбо  Паскаль тілі қаншалықты ыңғайлы тіл екендігін түсіндім.

   Яғни, қазіргі  кезде программалау тілдері өте  көп. Ол алғаш программалауды  үйренушілерге программалауды үйретуге  ең қолайлы тіл Паскаль тілі  болып келеді.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Қолданылған әдебиеттер тізімі:

 

1. Н.Б.Культин. Turbo Pascal. Программирование на О.Р. Петербург-2001год.
2. Балапанов. «30-сабақ» Алматы 2003.
3. Халықова. Паскаль тілінде программалау.

 

4. Фаронов В.В. Turbo Pascal 7.0  Москва 2002