Algoritmlar sifatini baholashning asosiy mezonlari reja Kirish 1- bob. Algoritm to’g’risida umumiy tushuncha

Masalalar yechish.
1 - misol. Bеrilgan to’rt xonali butun sonning raqamlari					ko’paytmasini toping.
		Tеst
	Tеst tartibi	Tеkshirish		Son	Natija
	1	Musbat son		2314	P=24

	2	Manfiy son	-1245	P=40

Algoritmi:
alg Butun_son (but Num, P)

arg Num

natija P
boshlbutun i, j, k, l
Num := abs(Num)
i := Num div 1000
j := ((Num div 100) mod 10)
k := ((Num div 10) mod 10)
l := Num mod 10
P := i * j * k * l;
Tamom
Turbo Pascaldagi dasturi:
Program Farrux;

Var Number, i, j, k, l, P : Integer;

BEGIN
ReadLn(Number); Number:=Abs(Number); i := Number div 1000; Write(i:3);
j := Number div 100 mod 10; Write(j:3);
k := Number div 10 mod 10; Write(k:3);
l := Number mod 10; WriteLn(l:3);
P := i * j * k * l ; WriteLn( P);
ReadLn
END.

2 - misol. Butun qiymatli A(N, M) matritsa bеrilgan. Agar matritsa satrining hеch

bo’lmaganda biror elеmеnti manfiy bo’lsa, u holda bu satrning barcha
elеmеntlarini
nollar bilan almashtiring

		Tеst
	Bеrilgan		Natija
N	A matritsa		A matritsa

3	 1		 2	1		 00			0 
										
		1	2	1		 1		21 
		 1	2	 2			0	0	0	
										

Algoritmi
alg Modifikasiya(but N, haq jad A[1:N, 1:N])
boshl but i, j, lit Flag
kiritish N
sb iuchun 1 dan N gacha
sbj uchun 1 dan N gacha
kiritishA[i,j]
so
so
sbi uchun 1 dan N gacha
j := 1; Flag := "Yuk"

sb toki (j<=N) va (Flag = "Yo’q")
agar A[i, j]<0 u holda Flag := "Ha"
aks holda j:=j+1

hal bo’ldi

so
agar Flag = "Ha"u holda
sbj uchun 1 dan N gacha A[i, j]:=0
so

hal bo’ldi
so
sbi uchun 1 dan N gacha
sbj uchun 1 dan N gacha
chiqarishA[i,j]
so
so
tamom.
Algoritmning bajarilishi
Tеkshirilayotgan shartning bеlgilanishi:
(j<=N) va (Flag = "Yo’q")=> (1)

i	Flag	j	(1)	A[i,j]<0	Flag="Ha"	A[i,j]
1	"Yo’q"	1	+	-	+	A[1,1]=0
	"Ha"	2	+	+
						A[1,2]=0

		1	-(so)			A[1,3]=0
		2
		3
2	"Yo’q"	1	+	-	-
		2	+	-
		3	+	-
		4	-(so)
3	"Yo’q"	1	+	+	+	A[3,1]=0
	"Ha"	1	-(so)			A[3,2]=0
		2				A[3,3]=0
		3

Blok-sxеmasi fragmеnti:



Turbo Pascaldagi dasturi:
Program Modify;
Var A : Array[1..10, 1..10] of Real;
N, i, j : Integer;

Procedure InputOutput;

Begin
ReadLn(N);
For i := 1 to N do
For j := 1 to N do
begin Write(’A[’ , i , ’, ’ , j , ’] = ’);
ReadLn(A[i, j])
end;
For i := 1 to N do
begin
For j := 1 to N do Write(A[i, j] : 5 : 1);
WriteLn
end;
End; { of InputOutput }
{-------------------------------------------}
Procedure Line(Var i : Integer);
Var Flag : Boolean;
Begin
j := 1; Flag := FALSE;
While (j<=N) and not Flag do
If A[i, j]<0 then Flag:=TRUE else j:=j+1; If Flag then
For j := 1 to N do A[i, j] := 0
End;

{-------------------------------------------}

Procedure OutRes;
Begin
WriteLn(’ Natija- Matritsa:’); WriteLn; For i := 1 to N do
begin
For j := 1 to N do Write(A[i, j]:5:1);
WriteLn
end; ReadLn
End; { of OutRes }
BEGIN
InputOutput;
For i := 1 to N do Line(i);
OutRes;
END.

Xulosa

Foydalanilgan adabiyotlar.

1. 
   Абрамов С.А. и др. Задачи по программированию.-М.:Наука, 1988.-224 стр.
   

2. 
   Gulomov S.S. va boshqalar. Axborot tizimlari va texnologiyalari. Toshkent, 2000
   

3. 
   Ахо А., Хопкрофт Дж. Построение и анализ вычислительных алгоритмов.
   

- М: Мир, 1979 г., 535 с.

4. 
   Вирт Н.. Алгоритмы и структуры данных. – Досса, Хамарайан, 1997.
   

5. 
   Кнут Д. Искусство программирования для ЭВМ. Основные алгоритмы.-М:
   

Мир, 2000 г.

6. 
   Кормен Т., Лейзерсон Ч., Ривест Р. Алгоритмы: построение и анализ. М.:
   

МЦНМО, 2001.- 960 с.

7. 
   Лебедев В.И. Введение в системы программирования. М: Статистика,
   

1975.

8. 
   Поляков Д.Б., Круглов И.Ю. Программирование в среде Turbo Pascal: Справ.-метод. пособие.- М.: Изд-во МАИ, 1992.-576 с.
   

9. 
   Попов В.В. Общение с ЭВМ на естественном языке. М:Наука, 1982.
   

10. Тыугу Х. Концептуальное программирование. М: Наука, 1984.

11. Успенский В.А., Семенов А.Л.. Теория алгоритмов: основные открытия и
приложения. – М: Наука, 1987, 287 с.
12. Файсман А. Профессиональное программирование на Турбо-Паскале.-Info&F, 1992.-270 стр.