Цель работы: Приобрести навыки обработки

жүктеу/скачать 174,5 Kb.

бет	2/2
Дата	15.10.2022
өлшемі	174,5 Kb.
	#43232
түрі	Реферат

1 2

For j:=1 to 5 do

Read(A[i,j]);
For i:=1 to 4 do
For j:=1 to 5 do
If A[j,j]> A[j+1,j+1] then
Begin
S:=A[j,j];
A{j,j]:=A[j+1,j+1];
A[j+1,j+1]:=S;
End;

For i:=1 to 5 do

Writeln(A[i,i])
End.

Төменде паскаль тіліндегі массивтерге мысал есептері келтірілген:

Мысал 4:
Массивтің элементтерінің мәндерін кездейсоқ сандар генераторы арқылы енгізіп, жолмен экранға шығару.
Ескерту:
Кездейсоқ сандарды қолдану үшін паскальда random: real (0…0.99 аралықта мәндерді қабылдайды) операторлары қолданылады. random(i: word):word - 0…1 аралықта сандарды болжап жазады.
program mas1;
var
a: array [1…10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(20);
write('a(', i, ')=', a[i], '')
end;
end.

Мысал 5:

Бір өлшемді массивтің элементтерін мына ереже бойынша толтыр: оның і-нші элементы а[i]=(+1)/sin(i) тең болуы керек.

program mas2;
var
a: array n…10] of real;
i: integer.
begin
for i:=1 to do begin
a[i]:=(i*i+1)/sin(i);
writeln('a(', i, ')=', a[i], '');
end;
end.

Мысал 6:

Бір өлшемді массив элементтерінің берілген t нақты санының мәнінен кіші болатын массивтер санын анықтау.

program mas3;
var a: array [1…10] of real;
i,k: integer; t:real;
begin write('введите число t='); read(t);
k:=0;
for i:=1 to 10 do begin
write('a(', i, ') элемент санын енгіз = '); readin(a[i]);
if a[end;
writeln ('ответ: берілген t санынан кем элементтер саны,');
writeln( k=',k);
end.

Мысал 7:

Массивтің бас диагональ бойында орналасқан элементтері арасында ең кіші және ең үлкен элементтерін табу.

program mas4;
var
a: array[1…10,1…10] of integer;
i,j,max min: integer;
begin
for i:= 1 to 10 do
for j:= 1 to 10 do begin
write( матрица элементтерін енгіз = ');
readln(a[i,j]) end;
max:=a[1,1];
min:=a[1,1];
for i:=1 to 10 do begin
if a[i,i]>max then max:=a[i,i];
if a[i,i]end;
writeln('наибольшее значение = ', max);
writeln('наименьшее значение = ', min);
end.

Мысал 8:

Массивті өсуі бойынша сұрыптау

program sortingmax;
var
i,j:integer;
r,q:real;
ad.kz x:array [1…20] of real;
begin
writeln('ведите массив, состоящий из 20 чис чисел:");
for i:=1 to 20 do read(x[i]);
for i:=1 to 19 do
for j:=11 to 20 do
if x[ then begin
r:=x[i];
x[i]:=×[j];
×[j]: =r;
end;
For i:=1 to 20 do writeln(x[i]);
end.

Әдебиет

Turbo Pascal. Үш бөлімнен құралған оқу құралы. II бөлім. Ж.Қ.Масанов, Б.А.Бельгибаев, А.С.Бижанова, Қ.Қ.Мақұлов. Алматы: «Бастау» баспаханасы, 2004 – 221 бет.
Новичков В.С. Алгоритмические языки в техникуме. - М.: Высшая школа, 1990-222с.
Боон К. Паскаль для всех. – М.: Энергоатомиздат, 1988.-188с.
Савельев А.Я. Языки программирования ( Паскаль. ПЛ/М). – М.: Высшая школа, 1987.-142с.
Львовский м.б. методическое пособие «воок» по информатике для 9-11 классов
адрес: http: // markbook.chat.ru/book/

жүктеу/скачать 174,5 Kb.

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

1 2