Elektrotekno.com Ana Sayfa || Bilgisayar || Bilgisayar Programlama


Pascalda yazılmış örnek kodlar

Kayıt: 16 Ağu 2005
Mesajlar: 3931

Offline
admin
Tarih: 28 11 2005 01:22

array
file
for
repeat TXT


---------
örn:
{Girilen isimlerin siralanmasi}
uses crt;
var
Name:array[1..100] of String[20];
i,j,n:integer;
k:string[20];
Begin
clrscr;
Write('Enter N?');Readln(n);
for i:=1 to n do
begin
Write('Name [',i,']=');Readln(name[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
begin
if name[i]>name[j] then
begin
k:=name[i];
name[i]:=name[j];
name[j]:=k;
end;
end;
for i:=1 to n do
begin
Writeln(name[i]);
end;
readkey;
end.


Reklamlar

1 Kullanıcı bu konu için admin arkadaşımıza teşekkür ettiler




Pascalda yazılmış örnek kodlar


Benzer Konular
- mülakat ile yazılmış makale
- Örnek Yol Aydınlatması
- Autocad ile hazırlanmış örnek topraklama hesabı

- dağıtım şirketince düzenlenmiş örnek bir enerji müsaadesi

- fabrika kuvvetli kolon şeması örnek
- Örnek OG Dağıtım Projesi
- askı tertip enh örnek
- Smith Abağı konu anlatımı ve örnek soru çözümleri
- 100 kva bir trafonun autocad ortamında örnek projesi

- rf duyuru panosu ve kodlar

- Örnek Yangın Projesi

Sitemize üyelik ve içeriğin indirilmesi tamamen ücretsizdir. Sitemizde paylaşılan tüm dokümanlar (Tezler, makaleler, ders notları, sınav soru cevaplar, projeler) paylaşımcıların bireysel çalışmaları olup telif hakları kendilerine aittir ya da açık bir şekilde kamusal alana yerleştirilmiş dokümanların birer kopyalarıdır. Kişilerin bireysel çalışmalarını sitemizde yüklemesinde, sitemizde paylaşıma teşvik eden puanlama sisteminin de etkisi büyüktür. Bunlara rağmen hala size ait olan ve burada bulunmasına izin vermediğiniz dokümanlar varsa iletişim bölümünden yöneticilere bildirmeniz durumunda derhal silineceklerdir.
Powered by phpBB | Translated by phpBB Turkiye | Ads by Google Adsense | Design by Crazy Bat based