Ajiniyoz nomidagi nukus davlat pedagogika

11-masala. 
 x va y- haqiqiy sonlar uchun x
y
 –qiymatini hisoblovchi dastur tuzing. 
 
var a,b:real; 
label 5; 
function daraja(a,b:real):real; 
 
    begin 
      if a>0 then daraja:=exp(b*ln(a)) else 
      if a<0 then daraja:=(a/abs(a))*exp(b*ln(abs(a))) else 
      if b=0 then daraja:=1 else 
                  daraja:=0 
      end; 
         Begin 
       5:  readln(a,b); if (a=0) and (b=0) then goto 5; 
         writeln(daraja (a,b)); 
         readln; 
         end. 
 
PROGRAM HISOBLAGICH
 ; 
   VAR FF:text; 
        N, P,son: INTEGER; 
     BEGIN 
     N:=0; P:=0; 
     Assign(ff,'c:/musman.txt'); 
     RESET (fF); (*faylni ochish va uning birinchi komponentasini o?qish*) 

---

     WHILE NOT EOF (fF) DO 
     BEGIN 
     read(ff, son); 
     writeln(son); 
 
     IF son < 0 THEN  N:=N+1 ELSE  P:=P+1; 
 
     END; 
       WRITELN ('musbat sonlar:', P,' ta'); 
       WRITELN ('manfiy sonlar:', N,' ta'); 
       readln; 
                           END.