MyDesign | Kod Arşivi - Anasayfaya Dön   No banner in farm
Anasayfa Araştır Forum Gelişmiş Arama Siteniz İçin En Hit İçerikler RSS İçerik Ekle Scriptler Destekleyenler Kadromuz Reklam İletişim Giriş Sayfası Yap  Sık Kullanılanlara Ekle
Bu Kategorinin En Yeni Kodları:


Bu Kategorinin En Çok Görüntülenen Kodları:






Arama:
Gelişmiş Arama


No banner in farm



En Çok Görüntülenen Kodlar:


Üye Girişi:
 Üye Ol



Anasayfa > Pascal > Kodlar

Çarpım Tablosu

Çarpım Tablosu

Kategori : Pascal
Gönderen : Rawkmetal
Telif :
Tarih : 23 Temmuz 2005
Örnek Dosya : Bulunmamakta
Okunma Sayısı : 29683
Puan
: 6,4 / 10 (134 Oy)
Puan Verin :
Google Bookmarks  del.icio.us  Digg  Yahoo! MyWeb  Windows Live  Furl
 
 
(* başlayalım... *)
Uses crt;
Var
rawkmetal , pascal : byte;
x,y:byte; (* x satır , b sutun *)
Begin
Clrscr;(* ekranı temizledik *)
x:1;
y:1;
for rawkmetal:=0 to 10 do
for pascal:=0 to 10 do Begin 
x:=x+1;
gotoxy(y,x);
Writeln(rawkmetal,'*'pascal,'=',rawkmetal*pascal);
if pascal=10 the Begin
x:=1;
y:=b+8;
end;end;end.(* the biter..*)
 
 

Çarpım Tablosu için yazılan yorumlar

deniz  { 16 Aral�k 2012 }
hep win keimesini koymayı unutmuşlar
sadece crt olmaz proğram baştan yanlış

ahmet  { 06 Aral�k 2012 }
yanlış yazılmamış arkadaşlar free pascal ide programıyla yazarsanız hataları söylüyor turbo pascaldan daha iyi!

MEHMET AKİF  { 03 Kas�m 2010 }
calısmıyo bu çürük

ibrahim   { 11 Mart 2007 }
yanlış yazılmış bir prog. sanıyorum
rawkmetal,'*',pascal,'=',rawkmetal*pascal
ayrıca b deişkeni olmadıgı halde y:=b+8 tanımlanmış pascalı pek anlamam ama bole olmaması gerekiyor gibi geliyo bana

Yorum ekleyin

Anasayfa > Pascal > Kodlar > Çarpım Tablosu
Kategoriler:


Forum:



Bağlantılar:


En Son Yorumlanan İçerikler:


Murat Yavuz | Site Haritası | Gizlilik Bildirimi | 54.92.190.11 | 0,14 Saniye
© Copyright 2004-2018 MyDesign | Kod Arşivi. Tüm Hakları Saklıdır.
MyDesign | Kod Arşivi, en iyi görünüm için, 1024x768 ve üzeri çözünürlük tavsiye eder.