( ********************************1 **S * HAZIRLAYAN : ESER CEKER *\ **{ * TEMMUZ 1988 - MAGOSA * ** ********************************: : "":53281,6:53280,14 ""= X121:"":l ("" 2" MENU " <X119:"": F""< P"1 BILGISAYAR ?";"2 COMP.BLOK":i Z"3 CPU 4 DILLER": d"5 ANALIZ 6 SEMBOL": n"7 ALGO>AKIS 8 AKIS>ALGO": x"9 ORNEK BASIC10 KARAKTER":* "11 VERI TURU 12 DEGISKENLER":] "13 OPERATORLER 14 A.ATAMA DEY": "15 ALFAB.FONK 16 PRINT": "17 PROGRAM MOD'U 18 ONCELIK" "SECIMINIZI GIRIN ";C:C1C1810, C90C1C:C13010,200,430,640,840,920,1350,1110,1460o C90C2C9:C21580,1680,1920,2070,2240,2380,2530,2690,2850w 10 "": BILGISAYAR BLOK SEMASI "GIRIS";" ";"CIKIS" " MANTIK "1 " ";" ";" "n " 1-KLAVYE ";" UNITESI ";" 1-MONITOR " " ";"Ò";" " " 2-GRAFIK ";" ARITMETIK";" 2-YAZICI "%" TABLET ";" ";" "i" ";">";" UNITESI ";">";" 3-SES """3-ISIK.K ";"Ò";" "," ";" DAGITIM ";" 4-KART "6" 4-KONT.K ";" ";" YAZICI "\@" ";" UNITESI ";" "J" 5-KART ";" "T" OKUYUCU";""^" ";"V"h" "!r"BIRIKTIRME";" 1-ANA BELLEK"W|" ";" 2-DISKET/KASET"" UNITESI ";" 3-SABIT DISK"" "C$:C$" "410"":53281,5:53280,13:"""CPU: MERKEZI ISLEM UNITESI":K" ";"65535"t" GIRIS/CIKIS BELLEGI ""Ò";"65280""ROM >";" CALISTIRMA SISTEMI ""Ò";"49152"0"ROM >";" KULLANILACAK DIL "b"Ò";"32769""RAM >";" GRAFIK ICIN ""Ò";"24576"" KULLANICININ "&"RAM >";" BASIC PROGRAMININ ">0" DEPOLANDIGI YER "o:"Ò";"3584"D"RAM >";" ISLETIM SISTEMI "N" ";"0 BIT":X"ROM: YALNIZ OKUNABILIR BELLEK":%b"RAM: RASTGELE ERISIMLI BELLEK":lC$:C$" "620@v`"":53281,6:53280,1:"""PROGRAM LAMA DILLERI":X140:"";:X:"OZ.":"";"";"BASIC";"""FORTRAN";"";"COBOL";"";"PL/1";"";"RPG";"";"PASCAL"TE116L"";"";"";"";"";""TTEq"":X140:"";:X"":X140:"";:X"":X140:"";:X"":X140:"";:X"":X140:"";:X#"BIL";"";"";"";"":"KUL"^"TIC";"";"";"";"":"KUL" "KON":"DIL";"";"";"":"BEN""AZ":"ANA" "BEL";"";"";"";"":"GER"*" : UYGUNLUK",4C$:C$" "8202>NH"":53281,8:53280,7~R" PROBLEMIN ANALIZI ":""\X117:" ";" ";" ";:f"ALGORITMA";">";">"/p"AKIS";"BASIC"gz"DIYAGRAMI";"PROGRAMI":::|C$:C$" "900"":53281,1:53280,7" AKIS DIYAGRAMI SEMBOLLERI """;"η";"";""F"";"";"";"";"";"";"";"""";"";"";"";"";"";"""";"";"";"";"""";"";"";"")"";""E"BASLANGIC";"GIRIS"~"/BITIS";"/CIKIS";"KONTROL";"C.KONTROL""η";"Ϸ""";"";"";"" "";"";"";""V">";"";"̯";"̯"p$""."PROGRAM";"BAGLAC";"GIRIS";"CIKIS"8"AKIS";"OKU";"YAZ":"YONU"BC$:C$" "1090LV"":53281,2:53280,10=`""\j"BASLA"{t""~"""V""Ϸ""I=1" "̯")">"E"Ϸ V"d"I=I+2 η""̯ YAZ I"" ί""""V""H";"E")"?";""U "DUR"" ";""" "(""2C$:C$" "1330<!F"":53281,2:53280,10:"PROBLEM: 1-21 ARASI TEK SAYILARIN YAZIMI"IP"PROGRAMIN ALGORITMASI"nZ"---------------------"d"1.I=1 DEGERIN IN ATANMASI"n"2.I DEGERININ YAZDIRILMASI"x"3.I=21 OLUP OLMADIGININ KONTROLU." "ESIT DEGILSE I'YA 2 ILAVE EDILMESI"8 "4.I<>21 ISE 2. ISLEME DONUS"Z "5.I=21 ISE PROGRAM SONU"p C$:C$" "1440v  "":53281,1:53280,1:"" "ORNEK BASIC PROGRAMI " "10 PRINT'BANA BIR SAYI VERINIZ'" "20 INPUT A"/!"30 PRINT'BIR SAYI DAHA VERINIZ LUTFEN'"C!"40 INPUT B"]!"50 LET C = A + B"!"60 PRINT'SAYILARIN TOPLAMI=' ; C"!"70 STOP"!"80 END"!C$:C$" "1560!"!,"":53281,2:53280,10:"""614)"KARAKTERLER"::""@10)"SIMGELER - SAYILAR":@"JI3364:(I);" ";:::c"T:10)"BUYUK HARF ALFABE":"^I6590:(I);" ";:::"h:10)"GRAFIK KARAKTERLER":"rI96127:(I);" ";::I161191:(I);" ";:"|C$:C$" "1660"#"":53281,6:53280,14A#">1 TAM SAYILAR"]#""#" >2 S.VIRGULLU T.S"#" "#" SABIT >3 Y.VIRGULLU T.S"#" "2$" >4 16 TABANLI SAYI"N$"^ "$" >5 8 TABANLI SAYI"$" VERI "$"  >T.S"$" >1 SAYISAL " %" V  >GER."<%" "h%&"  >2 DIZEYLER"%0"  DEGISKEN "%:"  "%D"  >3 ALFABETIK"%N" " &X" "9&b" >4 ALFASAYISAL"O&lC$:C$" "1900U&vu&"":53281,1:53280,1:""&" BASIC DEGISKENLERI "&" SATIR NO  ATAMA  DEGISKEN  DEGER "'"2LETA=3(D)"7'"10LETALI=0.5(D)"g'"15LETA8=-3(D)"'"120LETA$=9.5(Y)"'"140LETA$='ATA'(D)"'"180LETB$='419'(D)"'("190LETA2$= ALI (Y)"W("250LET2A$='ALI'(Y)"("260LETA2$='ALI'(D)"("800LETK='ALI'(Y)"(C$:C$" "2050( ("":53281,7:53280,8:""$) ""`)*X120:" ";:X)4"")>" OPERATORLER ")H"AR.ISLEM ESITLIK/ESITSIZ MANTIK" *R"+ TOPLAMA = ESITTIR"*\" AND"B*a"< KUCUKTUR"V*f" CIKARMA"{*p" > BUYUKTUR"*z" * CARPMA KUCUK OR"*"<= VEYA ESIT"*"/ BOLME >= BUYUK"+"VEYA ESIT NOT"@+"^ US ALMA<>ESIT DEGIL"V+C$:C$" "2220\+}+"":53281,5:53280,13:""+" ARITMETIK AT AMA DEYIMLERI "+"ABS(X) : X SAY ISININ MUTLAK DEGERI","COS(X) : X ACI SI KOSINUSU (RAD)"0,"EXP(X) : E'SAY ISININ X.KUVVETI"_,"INT(X) : X SAY ISININ TAMSAYI KISMI","LOG(X) : X SAY ISININ LOGARITMASI", "RND(X) : 0-1 A RASI RASTGELE SAYI", "SGN(X) : X SAY ISININ ISARETI" - "SIN(X) : X ACI SI SINUSU (RAD)"3-$ "SQR(X) : X SAY ISI KAREKOKU"`-. "TAN(X) : X SAY ISI TANJANTI (RAD)"v-8 C$:C$" "2360|-B -L "":53281,2:53280,10:""-V " ALFABETIK FONKSIYONLAR "-` "LEFT$(A$,X) : A$' IN SOLUNDAN X TANE"'.j "RIGHT$(A$,X): A$' IN SAGINDAN X TANE"U.t "MID$(A$,X,Y): A$' IN X.ELEMANINDAN"}.~ "ITIBAREN Y TANE". "CHR$(X) : ASCI I KOD'U X OLAN". "ALFABETIK DEGISKENI VER". "LEN(X$) : X$'IN KARAKTER SAYISI")/ "ASC(X$) : X$'IN ASCII KODUNU VER"T/ "STR$(X) : X SAYISINI SOZCUK YAP"z/ "VAL(X$) : X$'I SAYISAL YAP"/ "TAB(X) : X.KOLONA YAZ"/ C$:C$" "2510/ / "":53281,6:53280,14:""/ " PRINT KOMUTU "+0 "12*3 -YANLIS-"W0 "PRINT 12*3 -DOGRU-"0 "PRINT ATA -YANLIS-"0 "PRINT 'ATA' -DOGRU-"0 "PRINT 12*12 144"1( "PRINT'12*12' 12*12"112 "PRINT 3+5,12/3,4^2 "S1< "8 4 16"1F "PRINT 3+5;12/3;4^2 "1P "8416"1Z "PRINT 'MURAT','ATABEY'"1d "MURAT ATABEY"1n C$:C$" "26701x 2 "":53281,2:53280,1042 " PROGRAM MOD'U ""~2 "* SATIR NUMARALARI TASIYAN YONERGE SETINE PROGRAM DENIR."2 "* PROGRAM ANCAK 'RUN' KOMUTU ILE CALISTIRILABILIR." 3 "* PROGRAMDA AKSI SOYLENMEDIKCE ISLEM SIRASI KUCUK SATIR"Q3 "NUMARALARINDAN BUYUGE DOGRUDUR."3 "* BELLEKTEKI PROGRAMI EKRANA GETIRMEK ICIN 'LIST' KOMUTU"3 "KULLANILIR."3 "* SECMELI LIST ELEME DE YAPILABILIR.":"4 "LIST 30 30.SATIR LISTELENIR"Q4 "LIST 20-70 20-70 ARASI LISTELENIR"z4 "LIST 70- 70.SATIR SONRASI"4 "LIST -20 20.SATIRA KADAR"4 " ":""5 X119:"  ";:XE5 " "[5 C$:C$" "2830a5 5" "":53281,6:53280,14:""5, ""56 X121:" ":X6@ " "F6J " ONCELIK SIRASI "u6T ""6^ X118:"":X6h " ":""7r "1. -,+ ISARETI VE ( ) PARANTEZ";7| "2. ^ US ALMA ISLEMI"e7 "3. *,/ CARPMA VEYA BOLME"7 "4. +, TOPLAMA VEYA CIKARTMA"7 "AYNI ONCELIKLI ISLEMLERDEN EN"7 "SOLDAKI ONCE YAPILIR!"7 C$:C$" "29908 8 "":53281,2:53280,10R8 "BILGISAYAR:BELLI KOMUTLAR DOGRULTUSUNDA"8 "HESAPLAMALAR YAPABILEN,KARSILASTIRABILEN,KARAR VEREBILEN E.MAKINE.":8 "BILGISAYAR EN GENELDE 3 IS YAPABILIR:"8 "" 9 9);"1- ARITMETIK "(9 9);"2- HEBERLESME "D9 9);"3- KARAR VERME"e9 ""9 :"TARIHCESI:DUNYADA BILGISAYARLAR,1940'"9 "LARDA GELISEREK KULLANILMAYA BASLANDI." : "ANCAK O ZAMANIN BILGISAYARLARI HANTAL, YAVAS VE PAHALI IDILER."X: "40 YIL ICINDE 4 KUSAK GECIREN BILGISAYARLAR 1980'LI YILLARA COK DAHA": "HIZLI,KUCUK,KULLANISLI,EKONOMIK,YUKSEK KAPASITELI OLARAK GIRDILER.":: "GUNUMUZDE BILGISAYARLAR HAYVANCILIK,METEOROLOJI,TIP,ARSIV,BANKACILIK,"C;& "HAVACILIK,UYDU YAYIN,URETIM SANAYI, TICARET,EGITIMDE KULLANILMAKTADIR"s;0 "SIKCA KULLANILMAKTADIR";: C$:C$" "3130;D