Algoritmlar. O’quv-uslubiy majmua

Masalani yechish dasturi.

Program massiv;

type n=1..20;

var X:array [n] of real; i:integer; S:real;

begin S:=0;

for i:=1 to 20 do read(X[i]);

if X[i]>= 0 then S:=S+X[i];

writeln(‘S=’,S);

end.
Nazorat savollari:

• 
  O’zgaruvchilar qiymatini ecrandan kiritish operatorini tushuntiring?
  
• 
  Ma’lumotlar va o’zgaruvchilar qiymatini ekranga chiqarish opеratorini tushuntiring?
  
• 
  Tanlash opеratorini tushuntiring?
  
• 
  Takrorlanishlar soni jihatidan while va repeat - until opеratorlari qanday farq
  

qiladi?

• 
  Massivlar qanday tavsiflanadi?
  
• 
  Massivni tartiblashtirishning qanday usullari mavjud?
  

Tavsiya etiladigan adabiyotlar:

5. 
   O`.T.Haitmatov va b.Informatika va axborot texnologiyalari. O’quv qo’llanma. T. TKTI. 2005 y.
   
6. 
   O`.T.Haitmatov va b. Informatika va axborot texnologiyalari fanidan laboratoriya ishlarini bajarish ushun uslubiy qo’llanma. T. TKTI. 2005 yHolmatov T.X.,Toyloqov N.I. Amaliy matematika, dasturlash va kompyuterning dasturiy ta’minoti. T.Mexnat, 2000 y. 27-32 b.
   
7. 
   В.А. Острейковский Лабораторный практикум по информатике: Учебное пособие для вузов. — М.: Высш. шк., 2003.
   
8. 
   Культин Н.Б.Программированиев Турбо Паскаль и Дельфи. СПб.:БХВ-Стнкт-Петербург,1999А.В. Петров и др. Вычислительная техника и программирование. Учебник для технических вузов.М.:Высш. шк.,1990.