forum kurmak | ©phpBB | Bedava yardımlaşma forumu | Suistimalı göstermek | Yetkinblog
ForumAlem

ForumAlem
 
AnasayfaAnasayfa  SSSSSS  AramaArama  Üye ListesiÜye Listesi  Kullanıcı GruplarıKullanıcı Grupları  Kayıt OlKayıt Ol  Giriş yapGiriş yap  

Paylaş | 
 

 KLAVYEDEN GIRILEN IFADEYI FARKLI YAZAN PROGRAM

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
ToPrAk
Admin
Admin
avatar

Mesaj Sayısı : 457
Kayıt tarihi : 05/08/08
Yaş : 28
Nerden : KONYA

MesajKonu: KLAVYEDEN GIRILEN IFADEYI FARKLI YAZAN PROGRAM   Cuma Ağus. 08, 2008 6:03 pm

uses crt;
var
A:array[1..720] of string[6];
m,s:string[6];
test,stop:boolean;
say,Q,count,j,k:integer;
ara:char;
{factor}
Label atla;

function factor(s:string):integer;
var
mul,num:integer;
code,c:integer;
begin
mul:=1;
for c:=1 to length(s) do
begin
mul:=mul*c;
end;
factor:=mul;
end;

{program}

begin
clrscr;
Write('Enter S:');readln(s);
for j:=1 to factor(s) do A[j]:=";

k:=1;
A[k]:=s;
j:=2;
While A[k]<>" do
begin
s:=A[k];
for Q:=1 to length(s)-1 do
begin
ara:=s[Q]; s[Q]:=s[Q+1]; s[Q+1]:=ara;
test:=true;
for say:=1 to j do
if A[say]=s then Test:=false ;
if test then
begin
A[j]:=s; inc(j);
end;
end;
inc(k);
end;
clrscr;

for Q:=1 to FACTOR(S) do
begin
writeln(' ',q,' : ',A[Q]);
end;
writeln(q,' degisik sekilde yanyana gelebilirler.');
readln;
end.
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
 
KLAVYEDEN GIRILEN IFADEYI FARKLI YAZAN PROGRAM
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
ForumAlem :: Programlama Dilleri :: PascaL-
Buraya geçin: