Ia9 -fesil-1: 9 qxd

if (a = 0) and (b = 0) and (c = 0) then begin

Write ('Bütün əmsallar 0-ra bərabərdir'); WriteLn ('x - ixtiyarı ədəddir') end else

if (a = 0) and (b <> 0)

then WriteLn('Tənliyin bir kökü var x=', (-c/b):6:2)

else begin

D := b*b - 4*a*c; if D > 0

then begin

x1:=(-b+sqrt(D))/(2*a); x2:=(-b-sqrt(D))/(2*a); WriteLn ('x1=', x1:6:2,'x2=', x2:6:2)

end else

if D = 0

then begin

x1: = -b/(2*a);

WriteLn ('Köklər eynidir');

WriteLn (x1=',x1:6:2,

'x2=', x2:6:2);

end

else WriteLn('Həqiqi kökləri yoxdur');

end;

end.

DOVRLƏR

24. 
    1-dən 20-ə kimi natural ədədlərin kvadratlarını çap edin.
    
25. 
    4-ə vurma cədvəlini çap edin.
    
26. 
    1-dən 100-ə kimi 4-ə tam bölünən natural ədədləri çap edin.
    
27. 
    nvəmnatural ədədləri verilmişdir. Vurma əməlindən istifadə etmədən onların hasilini tapan proqram yazın.
    

Verilmişnədədinə görə həmin ədədi

28.

6

6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6

şəklində (nümunən= 6 halı üçün göstərilib) ekrana çıxaran proqramı aşağıdakı kimi yazmaq olar. Onun necə icra olunduğunu yoxlayın.

program Task2 8;

var i, j, n : Integer;

begin

ReadLn(n);

for i := 1 to n do begin

for j := 1 to i do Write(n, ' '); WriteLn;

end; end.

29. Tam ədədləri aşağıdakı şəkildə ekrana çıxaran proqram yazın:

6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6

30. Tam ədədləri aşağıdakı şəkildə ekrana çıxaran proqram yazın:

0
1	0
2	1	0
3	2	1	0
4	3	2	1
5	4	3	2

MASSIVLƏR

31. Operatorlar ardıcıllığı yerinə yetirilərsə,pvəqdəyişənləri hansı qiymətləri alar?

for i := 1 to 10 do

for j := 1 to 5 do

A[i,j] := i*j;

^p	:= 0
^q	:= 0
m	:= 2
n	:= 5

for k := 1 to 5 do begin

p: = p + A[m,k]; q := q + An,k]; end;

³². Aşağıdakı proqram 10 elementdən ibarət birölçülüXmassivinin ilk 5 elementini çıxışa verir. Proqramın necə icra olunduğunu yoxlayın.

program Print; var i : Integer;

X : array[1..10] of Integer;

begin

for i := 1 to 5 do Write (X[i], ' '); WriteLn; end.

³³. Aşağıdakı proqram birölçülü massivdə müsbət və mənfi elementlərin

sayını hesablayıb çıxışa verir. Proqramın necə icra olunduğunu yoxlayın. program Task33; const Nmax = 100;

type TArr = array[1..Nmax] of integer; var A : Tarr;

procedure Solve;

var i, n, p : Integer; begin

p := 0; ReadLn(n);

for i := 1 to n do Read(A[ i]); for i := 1 to n do

if A[i] >=0 then Inc(p);

WriteLn('Müsbət elementlərin sayı ', p); WriteLn('Mənfi elementlərin sayı ', n - p); end;

begin

Solve; end.

34. 
    Verilmiş birölçülü massivdə sonuncu mənfi elementin nömrəsini tapan proqram yazın.
    
35. 
    Tam ədədlər massivi verilmişdir. Klaviaturadan daxil edilənqvət ədədlərinə görə massivin onlar arasında qalan elementlərinin cəmini tapın.
    

36. Ölçüsünxmolan Amassivini aşağıdakı qaydada doldurun:

1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28