Kod: uses crt; var f, t:text; yan, ch:char; s, z:string; i:byte; procedure buyuk; begin for i:=1 to length do s := upcase ; end; procedure ekle; begin clrscr; append ; write('ad soyad.(max.20 harf):');readln ; buyuk; s:=s+'';s:=copy(s,1,20);write ; write('telefon..(max.20 harf):');readln ; s:=s+'';s:=copy(s,1,20);write ; write('adres...(max.30 harf:)');readln ; buyuk; s:=s+'';s:=copy(s,1,30);writeln ; close ; end; procedure liste; begin clrscr; writeln ; reset ; repeat readln ; writeln ; until eof ; ch:=readkey;if ch=

bi de anlasam şunlardan tam süper olacak... You must log in or register to reply here. Forum Programlama Html - CSS - XML - JavaScript - Ajax Bize Ulaşın Forum Kuralları Gizlilik Sözleşmesi Yardım Ana Sayfa RSS bafra oto ekspertiz, Tiktokbegeni.com, erkek cüzdan, eskişehir haber, çelik ranza, hasta yatağı kiralama, bonus veren siteler, ankara oto ekspertiz, istanbul oto ekspertiz, eskişehir oto ekspertiz, çorum oto ekspertiz, geobonus. org, deneme bonusu, bonusportali.com, vbet giriş, Pokerklas, Caddebet, megapari giriş, meritking giriş, meritking, kingroyal giriş, bahis siteleri, betwinner, rokubet giriş, deneme bonusu veren siteler, takipçi satın al, deneme bonusu veren siteler, betnano giriş, elektronik sigara, deneme bonusu veren siteler, replika saat, melbet giriş, smok, deneme bonusu, bahis forum, melbet, izmit oto ekspertiz, poppers turkiye, eskişehir oto ekspertiz, dalyan otel, hack forum, melbet, sohbet numaraları Wardom. Org Bilginin Adresi. 1998'den beri Wardom yayında! Wardom Türkiye'nin en eski forum sitelerinden biri olarak günümüz web sitelerine sponsor linkler yayınlanmaktadır. ataşehir escort maltepe escort pendik escort gaziantep rus escort xxx videos erotik film izle istanbul escort ankara escort istanbul escort gaziantep escort gaziantep escort Paylaşım sitemizde 5651/8 ve 125. madellere göre, tüm üyeler ve ziyaretçiler sitenin kullanımı ve yapılan paylaşımlarından kendileri sorumludur. Şikayetleriniz için bize ulaşabilirsiniz. Tüm hakları saklıdır 2015 Wardom. Org bilginin adresi. Forum ve bilgisayar güvenliği sitesi. var sc_project=2030864;var sc_invisible=1;var sc_security="c6df530c"; Üst <div class="tooltip-content-inner"> <div class="reactTooltip"> <a href="#" class="reaction reaction--1" data-reaction-id="1"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Like" title="Like" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--2" data-reaction-id="2"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Love" title="Love" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--3" data-reaction-id="3"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Haha" title="Haha" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--4" data-reaction-id="4"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Wow" title="Wow" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--5" data-reaction-id="5"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Sad" title="Sad" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--6" data-reaction-id="6"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Angry" title="Angry" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> </div> </div> { "@context": "https://schema.org", "@type": "DiscussionForumPosting", "@id": "https:\/\/www.wardom.org\/threads\/rehber.161360\/", "headline": "Rehber ", "articleBody": "uses crt;\r\nvar\r\nf, t:text;\r\nyan, ch:char;\r\ns, z:string;\r\ni:byte;\r\nprocedure buyuk;\r\nbegin\r\nfor i:=1 to length do\r\ns := upcase ;\r\nend;\r\nprocedure ekle;\r\nbegin\r\nclrscr;\r\nappend ;\r\nwrite('ad soyad.(max.20 harf):');readln ;\r\nbuyuk;\r\ns:=s+'';s:=copy(s,1,20);write ;\r\nwrite('telefon..(max.20 harf):');readln ;\r\ns:=s+'';s:=copy(s,1,20);write ;\r\nwrite('adres...(max.30 harf:)');readln ;\r\nbuyuk;\r\ns:=s+'';s:=copy(s,1,30);writeln ;\r\nclose ;\r\nend;\r\nprocedure liste;\r\nbegin\r\nclrscr;\r\nwriteln ;\r\nreset ;\r\nrepeat\r\nreadln ;\r\nwriteln ;\r\nuntil eof ;\r\nch:=readkey;if ch=