|
|
|
|
Olimpiada çalışmalarını säthi tärtib etmäk olmaz (Olimpiada mäsälälärini tärtib edän müällim bu çalışmaları neçä saata yerinä yetirä bilär? ) 2001-ci il noyabr ayının 11-dä Azärbaycan Respublikasının müxtälif rayonlarında fänn olimpiadalarının mäktäb turları keçirildi. Xätai r-nunda “İnformatika vä hesablama texnikasının äsasasları” fänni üzrä mäktäblärä göndärilmiş çalışmalar säthi tärtib olunub. Çalışmaların rus dilindä olan ädäbiyyatdan, heç bir färq qoyulmadan tärcümä olunması (tärcümänin säviyyäsi çox aşağıdır), bu çalışmaların olimpiadaya ayrılmış 3 saata häll edilmäsini imkansız etmişdir. Täläbälärimizdän yalnız biri 1 çalışmanı 3 saata çox böyük çätinliklä häll edä bildi. Fikrimizcä olimpiadaları “xala xätrin qalmasın” prinsipilä keçirmäk qätiyyän düzgün deyil.Etibar Axundov, Xätai r-nunda keçirilän olimpiadanın "İnformatika vä HT äsasları" fänni üzrä olimpiadanın mäkätäb turunun sualları X-cu sinif, I variant 1. Verilän mätindän "k" härifi ilä başlayan sözlärin seçilib yazılması (çap edilmäsi) üçün BASIC proqramı yazmalı. Sözlär probellärä ayrılmışdır. 2. Verilmiş mätindän eyni härflä başlayan vä hämin härflä dä qurtaran sözlärin seçilmäsi üçün BASIC proqamı yazmalı. 3.Verilmiş T$ mätindä sözlär bir-birindän bir probel vasitäsi ilä ayrılmışdır. hämin sözlärin bir-birindän iki probellä ayrılması vä onların M$ massivindä yerläşdirilmäsi üçün BASIC proqramı yazmalı. 4. M ädädinä qädär olan bütün sadä ädädlärin çap edilmäsi üçün BASIC proqamı yazmalı. 5. Cüt-çüt götürüldükdä müxtälif ädädlärdän ibarät olan A [1:m] massivi verimşdir. Bu ädädlärin bütün yerdäyişmälärini tä`min edän vä onları çap edän BASIC proqramı yazın. X-cu sinif, II variant 1. Tam ädädlärdän ibarät olan N={n1, n2, n3, ...,n50} massivinin 3-ä bölünän elementlärinin seçilib çap edilmäsi üçün proqam yazılmalı. 2. Verilmiş massivin (a1, a2, ..., a100) elementlärini azalan sırada hämin sırada hämin massivdä yerinä yazmağa imgan verän proqram yazmalı. 3. Här märtäbäsindä 12 nömräsi olan beşmärtäbäli mexmanxanada yer sifariş verilmäsini tämin edän proqam yazmalı. Yerlärin sifarişi zamanı proqram qonaqların inisalını (ad, familya vä atasının adının baş häriflärini) özündä saxlamalıdır. 4. Müäyyän şöbänin 20 ämäkdaşı haqqında aşağıdakı mälumatı özündä saxlayan SOTRUDNIKI adlı disk faylının yaradılması üçün proqram yazmalı (familyası, adı, atasının adı (F.İ.O), väzifäsi, cädväl nömräsi, maaşı) mälumatların daxil edilmäsini dialoq rejmindä yerinä yetirmäli. 5. Ävvälgi mäsälädäki SOTRUDNIKI faylında ämäkdaşların adını, familyasını (F.İ.O) vä maaşlarını redaktä etmäg üçn proqram tärtib etmäli. REM ***************************************************** REM Proqramın adı:TsInstr.bas REM Çalışma 1: Verilän mätindän "k" härfi ilä başlayan REM sözlärin seçilib yazılması (çap edilmäsi) üçün BASIC proqramı yazmalı. REM Müällifi: Abbasov Räşad, 10b sinfinin şagirdi. REM Yazılma vä korrektä tarixi: 11-11-2001. REM Mänbäyi:2001-ci ildä Xätai rayonunda keçirilän "İnformatika vä NT äsasları" REM fänni üzrä keçirilän olimpiadanın mäktä turu. REM ******************************************************* a$ = "Anam kolxoz bazarina getdi vä oradan käläm , kartof aldı." CLS IF MID$(a$, 1, 1) = "k" OR MID$(a$, 1, 1) = "K" THEN intPozPr = INSTR(1, a$, " ") IF intPozPr = 0 THEN PRINT MID$(a$, 1, LEN(a$)) ELSE PRINT MID$(a$, 1, intPozPr) END IF END IF intPozPr = 1 DO WHILE intPozPr > 0 intPozPr = INSTR(intPozPr, a$, " ") IF intPozPr <> 0 THEN IF MID$(a$, intPozPr + 1, 1) = "k" OR MID$(a$, intPozPr + 1, 1) = "K" THEN intPozPr1 = INSTR(intPozPr + 2, a$, " ") IF intPozPr1 = 0 THEN PRINT MID$(a$, intPozPr + 1, LEN(a$)) GOTO MM ELSE PRINT MID$(a$, intPozPr + 1, intPozPr1 - intPozPr) intPozPr = intPozPr1 - 1 END IF ELSE intPozPr = intPozPr + 1 END IF END IF LOOP MM: END
|
