Alisher navoiy nomidagi samarqand davlat

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 













2
2
1
1
2
1
1
2
1










0
0
0
1
2
1
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" 
"Ha" 
1 
2 
+ 
+ 
- 
+ 
+ 
A[1,1]=0 
A[1,2]=0 

---

1 
2 
3 
-(so) 
A[1,3]=0 
2 "Yo’q" 1 
2 
3 
4 
+ 
+ 
+ 
-(so) 
- 
- 
- 
- 
  
3 "Yo’q" 
"Ha" 
1 
1 
2 
3 
+ 
-(so) 
+ 
+ 
A[3,1]=0 
A[3,2]=0 
A[3,3]=0 
 
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 стр.