8-laboratoriya: Dallanuvchi algoritmlarning oqim jadvallarini tuzish. Reja

Masalani yechish algоritmining blоk-sxemasi

Algоritmning Paskal tilidagi dasturi:

Program Ex3;

Var

A:array[0..5, 0..5] of integer;

I,j,min:Integer;

Begin

For i:=0 to 5 do

For j:=0 to 5 do

Readln(a[i,j]);

Min:=A[0,0];

For i:=0 to 5 do

For j:=0 to 5 do

If A[i,j]

Writeln(‘Massivning eng kichik xadi =’,min);

End.

Kiritilgan matritsaning eng kichik hadi ekranga chоp etiladi.

C(m,m)matritsaning bosh dioganal hadlari yigindisini toping va natijani chop eting.

PROGRAM M1;

const m=3;

VAR A:array[1..m,1..m] of real;

i,j: integer;

S:real;

begin

for i:=1 to m do

for j:=1 to m do

readln (a[i,j]);

S:=0;

for i:=1 to m do

S:=S+a[i,i];

writeln('S=',S);

readln;

end.
Test savollari

1. Quyidagi berilganlardan qaysi yozuv to`g`ri ko`rsatilgan?

*a) c: array [1..3,1..5] of integer;

b) MATR = array[1..3,1..5] of integer;

c) d: array [1...3,1...5] of integer;

d) c: array [1..3,1.5] of integer;
2. Quyidagi tavsiflarning qaysi biri noto`g`ri?

a) Var A: array [1..100] of real;

b) Var A: array[1..100,1..100] of real;

c) Type

Mas=array [1..100] of real;

Var A:MAS;

d)* Type

MAS=array[1..100;1..100] of r

eal;

VARA:MAS;

Amali:
100 ga 100 gacha bo’lgan matritsa yozish dasturi code blokc dasturida ko’rinishi:

Xulosa:

Men ushbu labaratoriayni bajarish mobaynida Dallanuvchi algoritmlarning oqim jadvallarini tuzish. va uning xususiyatlari xaqida ko’plab ma’lumotlarga ega bo’ldim va unga oid masalalarni code blocks dasturi yordamida ishladim bu jarayon menga unchalik qiyinchilik tug’dirmadi chunki bu dasturdan oldindan foydalanib kelganmiz. Asosiysi o’z bilimimni yanada mustaxkamlab oldim.