Dört köşeden azalan isimi ekrana yazan program.

deliman17.11.2008 - 18:01
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,7-i);
   write(ad,'  ':i*2);
   ad:=copy(isim,i,9-i);
   write(ad,'  ');


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


Linkback: https://www.buyuknet.com/dort-koseden-azalan-isimi-ekrana-yazan-program-t8624.0.html

Etiket:

Bu bilgi size yardimci oldu mu?

EvetHayır
Dört köşeden azalan isimi ekrana yazan program.
Dört köşeden azalan isimi ekrana yazan program.
(Ortalama: 5 üzerinden 2.5 - 2 Oy)
2