reikalinga pagalba uzbaigti prgramelei (free pascal)

Sveiki, Free pascal turiu parašyt programą, kuri "nupieštų piramidę" iš A raidžių:

_____A

____AA

___AAA

__AAAA

_____...

(_ - tarpai)

Užstrigau ties vieta, kai reikia "apsukti piramidę". Mano programa:

program Bevardë21;

var i,x,y,a,b,c,j:integer;

begin

for i:= 1 to 20 do

begin

for j:= 1 to i do

write('A');

writeln;

end;

readln();

end.

Būčiau labai dėkingas, jei kas pasakytų, kaip tai reikia padaryti :)

Is esmes turiu pavyzdi viena http://bit.ly/zYL2Yd, cia isvedama kaledu elglute tokiu pat budu. Biski veliau galesiu parasit butent su a, jai reikes.

Is esmes turiu pavyzdi viena http://bit.ly/zYL2Yd, cia isvedama kaledu elglute tokiu pat budu. Biski veliau galesiu parasit butent su a, jai reikes.

Na dėkui už pavyzdį, bet šitas kodas truputi per sudėtingas man :D Būčiau labai dėkingas, jei parašytumėt būtent su A...

sio metu tuo ir uzsiemu, taciau neatsimenu absoliuciai sintakses, tad uzims biski laiko.

Daryk for ciklą ir tarkim kai skaičius lygus kažkam pieštų raidę A, perkeltų į kitą liniją ir vėl kai skaičius lygus kažkam rašytų AA ir t.t.

program Bevardë21;
var i,x,y,j:integer;
raide:char;
begin
writeln('Kiek eiluciu isvesti?');
readln(x);
writeln('Kokia raide isvedsti');
readln(raide);
y:=0;
for i:= 1 to x+1 do
write(' ');
writeln(raide);
for i:= x downto 1 do
begin
for j:=1 to i  do
write(' ');
y:=y+2;
writeln(raide,raide:y);
end;
readln();

end.

Daryk for ciklą ir tarkim kai skaičius lygus kažkam pieštų raidę A, perkeltų į kitą liniją ir vėl kai skaičius lygus kažkam rašytų AA ir t.t.

Butent tokiu budu yra rasomos programos microsoft kompanijoje)))

Man kyla dar vienas noob'iškas klausimas... Kai turi:

program Bevardë21;

var i,x,y,j,k:integer;

begin

for i:= 1 to 20+1 do

write(' ');

writeln('A');

for i:= 20 downto 1 do

begin

for j:=1 to i do

write(' ');

write('A');

writeln();

end;

readln();

end.

kaip padaryti, kad rašytų ne po vieną "A" raidę kiekvienoj eilutėj, o vis viena daugiau?..

Ta prasme? As daveu jums veikianti varianta, kuris isveda tokiu budu

http://apieviska.info/wp-content/uploads/2012/02/apie_piramide.png

Kas netip?

Ta prasme? As daveu jums veikianti varianta, kuris isveda tokiu budu

http://apieviska.info/wp-content/uploads/2012/02/apie_piramide.png

 

Kas netip?

Na "piramidės" vidus turėtų taip pat būt užpildytas A raidėmis, o ne būti tuščias...

oh tas kietasis programavimas-hardcodingas... Pamirsti elementarius dalikus...

program trikampis;
uses crt;
var a,i,x,y,j_space,j_integer:integer;
   raide:char;
begin
clrscr;
writeln('Kiek eiluciu isvesti?');
readln(a);
writeln('Kokia raide isvesti?');
readln(raide);
x:=a;
y:=a;
for i:= a downto 1 do
   begin
   //writeln('x= ', i);
       for j_space:= 1 to i do
          write(' ');
   //writeln(' x=',x,' y=',y);
       for j_integer:= y to x do
           write(raide);
           //writeln(' i-1=',i-1, ' i+1=',i+1);
       writeln();
       x:=x+1;
       y:=y-1;
   end;
readln();

end.

isveda kaip prasei

http://apieviska.info/wp-content/uploads/2012/02/apie_piramide_full.png

Stai kodas kuris padaro puse piramides, man pasirode kad tu butent taip atvaizdavai savo prasyme kad butu suprogramuota piramide:

program piramide;
var i, j, p, eilutes, kiek : integer;
begin
Readln(eilutes);                            	// Kiek eiluciu pildysim
kiek := 1;                                  	// A raidziu kintamasis
   	for i := 1 to eilutes do begin          	// darys nuo 1 iki eiluciu skaiciaus
       	for j := 1 to eilutes - kiek do begin   // paskaiciuoja kiek reike idet tarpu kiekvienai eilutei
           	write(' ');
       	end;
       	for p := 1 to kiek do begin 			// paskaiciuoja kiek reikia pridet A raidziu kiekvienoj eilutej
           	write('A');
       	end;
   	inc(kiek);                              	// padidina A raidziu kintamaji (kiek) vienetu
   	Writeln;
   	end;
 Readln;
end.

Esu labai dėkingas visiem už pastangas ir laiką :)