İsmi kelebek şeklinde yazan program.

uses crt;
   var
   i,x:integer;
   ad,isim:string;
   begin
   clrscr;
   readln(isim);
   x:=length(isim);
   for i:=1 to x do
   begin
   gotoxy(30,5+i);
   ad:=copy(isim,1,i);
   write(ad,'  ':14-i*2);
   ad:=copy(isim,7-i,i);
   write(ad,'  ');

   gotoxy(30,10+i);
   ad:=copy(isim,i,9-i);
   write(ad,'  ':i*2);
   ad:=copy(isim,1,7-i);
   write(ad,'  ');
   end;
   readln;
   end.



Linkback: https://www.buyuknet.com/ismi-kelebek-seklinde-yazan-program-t8623.0.html