Üçgen şeklinde ismi ve tersini azaltarak yazan program

deliman17.11.2008 - 18:04
Üçgen şeklinde ismi ve tersini azaltarak yazan program


uses crt;
var
a,ad:string;
y,z,x,i:integer;
begin
clrscr;
readln(a);
clrscr;
x:=length(a);
for y:=1 to x do begin
gotoxy(x,y);
for z:=x downto y do begin


ad:=copy(a,z,1);
write(ad:1);
end;
writeln('  ');
end;
gotoxy(1,1);
for i:=1 to x do begin
ad:=copy(a,i,x);
writeln(ad:6);end;
readln;
end.



Linkback: https://www.buyuknet.com/ucgen-seklinde-ismi-ve-tersini-azaltarak-yazan-program-t8634.0.html

Etiket:

Bu bilgi size yardimci oldu mu?

EvetHayır
Üçgen şeklinde ismi ve tersini azaltarak yazan program
Üçgen şeklinde ismi ve tersini azaltarak yazan program
(Ortalama: 5 üzerinden 2.5 - 2 Oy)
2