Ia9 -fesil-1: 9 qxd

sətIrlər

³⁷. Aşağıdakı proqram ASCII simvollarının sıra nömrəsini və simvolların özlərini ekrana çıxarır. Proqramdakıkdəyişənindən bir sətirdə 15 simvol vermək üçün sayğac kimi istifadə olunur. Proqramın necə icra olunduğunu yoxlayın.

program Task37; var i, k : Integer;

begin

WriteLn('Simvolların sıra nömrəsinin -

i dəyişəninin qiymətinin və simvolla- rın özlərinin ekrana çıxarılması');

k := 0;

for i := 1 to 255 do begin

Write(i : 4, ' Simvol ', Chr(i)); k :=k + 1;

if k = 15 then begin WriteLn;

k := 0;

end; end; end.

38. 
    Yazı qaydalarına görə mətndə vergüldən sonra həmişə boşluq qoyulur. Aşağıdakı proqram mətndə bu tipli səhvləri tapıb düzəldir. Proqramın necə icra olunduğunu yoxlayın.
    

program Task3 8;

var i : Integer; s : string;

begin

WriteLn('Mətni daxil edin'); ReadLn(s);

i := 1;

while i < Length(s) do begin

if (s[i] = ',') and not(s[i + 1] = ' ')

then Insert(' ' s, i+1); i :=i + 1; end;

WriteLn(s); ReadLn; end.

38. 
    Əvvəlki məsələnin proqramını elə dəyişdirin ki, "!", "?", "." simvolların- dan sonra da uyğun səhvi düzəltsin.
    
39. 
    Verilmiş sətirdə ən qısa və ən uzun sözü müəyyənləşdirən proqram yazın.
    
40. 
    Sətirdə müəyyən hərfə (məsələn, "a") neçə dəfə rast gəlindiyini hesablayan proqram yazın.
    

FAYLLAR

42. Diskdə "test.txt" adı ilə saxlanılan mətn faylı verilib:

123 17 25 256 80 5 89 56 234 123 123 123 81 11 11 11

Aşağıdakı proqramın icrasından sonra ekrana nə çıxarılacaq?

program Task42;

var f : text;

s : string; n, m : Integer; c, z : Char; begin

Assign(f, 'test.
Reset(f);
ReadLn(f, s)	^;
ReadLn(f, n)	^;
Read(f, m);
ReadLn(f, c)	^;
Read(f, z);
Close(f);
WriteLn ('s='	^,	s)
WriteLn ('n='	^,	n)
WriteLn ('m='	^,	m)
WriteLn ('c='	^,	c)
WriteLn ('z='	^,	z)
ReadLn;

end.

⁴³. Tutaq ki,fmətn faylı vəstsətri verilmişdir. Aşağıdakı proqramsdə- yişəninin qiymətiniffaylının sətirlərində axtarır və hansı sətirdə tapırsa, həmin sətri yenigfaylına yazır.

program Task4 3;

var f, g : text;

s, st : string;

begin

WriteLn('Sətri daxil edin '); ReadLn(s);

Assign(f, 'test.txt'); Assign(g, 'test2.txt'); Reset(f); Rewrite(g);

while not eof(f) do begin

ReadLn(f, st);

if pos(s, st) <> 0 then WriteLn(g, st); end;

close(f); close (g); ReadLn; end.

44. 
    
    
45. 
    
    
46. 
    soyadı
    

Mətn faylı verilib. Bu faylın ən qısa sətirlərini yeni fayla yazın. Verilmiş mətn faylında ən uzun sətri müəyyənləşdirən proqram yazın. Şagirdlərin siyahısından ibarət mətn faylı verilib. Hər sətirdə bir şagirdin və adı yazılıb. Bu faylı oxuyub ekrana çıxaran proqram yazın.





Səhifənin istiqaməti kağız vərəqin fəzada vəziyyətini təyin edir. İki cür istiqa- mət var: kitab və albom (portret və mənzərə).

ROQRAM

İnformatika - IX sinif (həftədə 1 saat, cəmi 32 saat)

1. 
   PASCAL PROQRAMLAŞDIRMA DİLİ (21 saat)
   

Proqram təminatının təsnifatı. Proqramlaşdırma dilləri. Yüksək səviyyəli dillər. Proqramların hazırlanması. Turbo Pascal redaktoru. Pascal-proq- ramın ümumi strukturu. Operatorlar. Praktikum. Şərti yoxlayan operator- lar. Praktikum. Dövr operatorları. Praktikum. Massivlər. Praktikum. Sətirlərlə iş. Praktikum. Altproqramlar. Fayllar. Praktikum.

2. 
   ELEKTRON SƏNƏD (4 saat)
   

Mətn sənədi və onun obyektləri. Mətn sənədin hazırlanması. Sənədin redaktəsi. Sənədin formatlanması.

3. 
   CƏDVƏL PROSESSORU (5 saat)
   

Cədvəl prosessorunun təyinatı. Elektron cədvəlin obyektləri. Elektron cədvəl verilənləri. Düsturlar. Diaqramın yaradılması və redaktəsi. Cədvəl sənədinin formatlanması.

4. 
   İNFORMASİYA CƏMİYYƏTİ (2 saat)
   

Cəmiyyətin informasiyalaşdırılması. Kompüter texnikasının tətbiq sahələri.

MÜNDƏRİCAT

1. 
   PASCAL PROQRAMLAŞDIRMA DİLİ
   

İNFORMATİKA 1

PASCAL 2

PROQRAMLAŞDIRMA DİLİ 2

6akı

İnformatika - ümumtəhsil məktəblərinin 9-cu sinfi üçün dərslik.

İsmayıl Calal oglu Sadıqov

Ramin Əli Nazim oglu Mahmudzadə

Naidə Rizvan qızı İsayeva

Bakı, "Bakınəşr", 2008. 128 səh.

© Dizayn "Bakınəşr", "TM" artgroup, 2008.

Format 70 x 100¹/₁₆. Ofset kağızı N°1. Fiziki çap vərəqi 8. Çapa imzalanmışdır 29.07.2008. Tiraj 155 000. Pulsuz.