BARBAROS İLKÖĞRETİM OKULU TEKİRDAĞ
 
  Ana Sayfa
  SİTEMİZE HOŞGELDİNİZ
  YAYLAYA ÇIKTIK,YÜKSEKTEN UÇTUK
  Misyonumuz
  Forum
  Siir Dinle
  Sözlükler
  Bilgi Yarismasi
  Gazete
  OKULUMUZ PERSONELİ VE ÖĞRENCİLERİMİZ
  Milli Egitim Haberleri
  Youtube Giris
  Not Hesapla
  Basarilarimiz
  Faydali Linkler
  Dunya Haritasi
  yeni binamız
  Duyuru
  il il turkiye
  Sosyal Bilimler haberleri
  Programlar
  Periyodik Cetvel
  Bunlari biliyormuydunuz
  günün sözü
  Barbaros'a Bakalım
  Tayin olan öğretmenler
  Anasınıfı öğrencilerimiz
Not Hesapla
uses crt; label devam; var a,d,sat,sut,r:byte; sec1:byte; sec2,sec3:char; s1,s2,sn:longint; t,c,ck,b:real; begin clrscr; devam: textattr:=yellow;gotoxy(30,15);writeln('1:HESAP MAKINESI ..'); gotoxy(30,17);write('2:CARPIM TABLOSU ..'); gotoxy(30,19);write('3:KRONOMETRE ..'); gotoxy(30,21);write('4:ASCII KOD TABLOSU.. '); gotoxy(30,23);write('5:RENK KOD TABLOSU..'); gotoxy(30,35);write('seciminiz...:');READLN(sec1); if sec1=1 then begin clrscr; gotoxy(30,10);writeln('-HESAP MAKINESI-'); gotoxy(25,15);writeln('TOPLAMA ISLEMI + :'); GOTOXY(25,17);writeln('CIKARMA " - :'); gotoxy(25,19);writeln('CARPMA " * :'); GOTOXY(25,21);writeln('BOLME " / :'); GOTOXY(25,30);write('seciminiz...:');readln(sec2); if sec2='+' then begin gotoxy(25,35);write('1.sayiyi girin...:');readln(s1); gotoxy(25,36);write('2.sayiyi girin...:');readln(s2); t:=s1+s2; gotoxy(25,37);writeln('sonuc...:',t:3:2);end; if sec2='-' then begin gotoxy(25,35);write('1.sayiyi girin...:');readln(s1); gotoxy(25,36);write('2.sayiyi girin...:');readln(s2); ck:=s1-s2;gotoxy(25,37);write('sonuc...:',ck:3:2);end; if sec2='*' then begin gotoxy(25,35);write('1.sayiyi girin...:');readln(s1); gotoxy(25,36);write('2.sayiyi girin...:');readln(s2); c:=s1*s2; gotoxy(25,37);write('sonuc...:',c:3:2);end; if sec2='/' then begin gotoxy(25,35);write('1.sayiyi girin...:');readln(s1); gotoxy(25,36);write('2.sayiyi girin...:');readln(s2); b:=s1/s2; gotoxy(25,37);write('sonuc...:',b:3:2);end;end; if sec1=2 then begin clrscr; gotoxy(30,3);writeln ('-CARPIM TABLOSU-'); FOR a:=1 TO 10 DO begin for d:=1 to 10 do begin gotoxy(sut,sat+d);write(a,'x',d,'=',a*d);end; sut:=sut+13; if a=5 then begin sut:=10;sat:=8;end;end;end; if sec1=3 then begin clrscr; gotoxy(30,10);write('-KRONOMETRE-'); GOTOXY(30,20);write('saniyeyi girin...:');readln(sn); for a:=1 to sn do begin gotoxy(30,25);delay(1000);write(a);end; gotoxy(30,25);write(a,' saniyelik sreniz doldu...'); end;if sec1=4 then begin clrscr; sut:=10;sat:=5; gotoxy(32,2);write('-ASCII KOD LISTESI-'); for a:=1 to 255 do begin gotoxy(sut,sat); write(a,'=',chr(a)); sat:=sat+1; if sat>44 then begin sat:=5;sut:=sut+10;end; end;readln; end; if sec1=5 then begin clrscr;gotoxy(30,5);write('-RENK KOD TABLOSU-'); FOR A:=1 TO 30 DO begin sat:=20;sut:=32; gotoxy(32,a+10);textcolor(a);writeln(a ,' .renk...: ');end; end;readln;clrscr; gotoxy(30,30);write('devam etmek istiyormusunuz?(e/h)...:');readln(sec3); if sec3='h' then exit;if sec3='e' then goto devam; readln; end.kadir şirin ve safa yıldırımkadirsirin_08@hotmail.com ve marco_pasa_1907@hotmail.com
 
   
Bugün 1 ziyaretçi (2 klik) kişi burdaydı!
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol