 |
|
|
Elektronika.lt portalo forumas
Jūs esate neprisijungęs lankytojas. Norint dalyvauti diskusijose, būtina užsiregistruoti ir prisijungti prie forumo.
Prisijungę galėsite kurti naujas temas, atsakyti į kitų užduotus klausimus, balsuoti forumo apklausose.
Administracija pasilieka teisę pašalinti pasisakymus bei dalyvius,
kurie nesilaiko forumo taisyklių.
Pastebėjus nusižengimus, prašome pranešti.
Dabar yra 2024 12 15, 17:32. Visos datos yra GMT + 2 valandos.
|
|
|
 |
Forumas » Programavimas » Reikalinga pagalba uzbaigti programai (Free pascal)
|
Jūs negalite rašyti naujų pranešimų į šį forumą
Jūs negalite atsakinėti į pranešimus šiame forume
Jūs negalite redaguoti savo pranešimų šiame forume
Jūs negalite ištrinti savo pranešimų šiame forume
Jūs negalite dalyvauti apklausose šiame forume
|
|
|
 |
Reikalinga pagalba uzbaigti programai (Free pascal) |
 Parašytas: 2012 02 12, 15:38 |
  |
|
|
|
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 |
|
|
|
|
|
|
|
Reikalinga pagalba uzbaigti programai (Free pascal) |
| Parašytas: 2012 02 12, 16:54 |
|
|
|
|
Čia kažkiek kietesnis variantas, kažkada buvau parašęs... Yra labai gera funkcija downto... Nusikopink i kompaileri, pažiurek kas gaunasi ir pakeisk, kad rašytu A raides. Funkcija galima išmesti, bet buvo reikalavimas ją naudoti...
Jei nori .pas failiuko, įmesiu, nes čia dingo visas formatavimas ir sunkiai skaitomas pasidarė 
program Pyramide;
Function tarpai( fi, fsk2 : integer) : integer;
Begin
tarpai := ((fsk2 - fi) * 2) + 1;
End;
var i, j, k, sk1, sk2, up, suma : integer;
Begin
Readln( sk1, sk2); //parasyk pirma sk nemaziau 10, antra kieknors daugiau uz pirmaji
up := sk1;
for i := sk1 to sk2 do
Begin
Write(' ':tarpai(i, sk2));
For j := sk1 to up do
Begin
Write(j);
suma := suma + j;
End;
For k := up - 1 downto sk1 do
Begin
Write(k);
suma := suma + k;
End;
j := 0;
k := 0;
up := up + 1;
writeln;
End;
writeln;
writeln(' Skaiciu suma: ',suma:4);
Readln;
end. |
|
|
|
|
|
|
|
Reikalinga pagalba uzbaigti programai (Free pascal) |
| Parašytas: 2012 02 12, 17:39 |
|
|
|
|
| rytiss20 rašo: |
Dėkoju už informacija, bet šis kodas man truputi per sudėtingas... Nesuprantu, ką daro "Write(' ':tarpai(i, sk2));" ir "For k := up - 1 downto sk1 do"  |
Write(' ':tarpai(i, sk2)); - funkcijos tarpai iškvietimas, perduodant jam kintamuosius i ir sk2. Atitraukinėja rašymą nuo krašto, kad gautųsi piramidė.
For k := up - 1 downto sk1 do - nuo viršutinės skaičių ribos eina žemyn iki žemiausio nurodyto skaičiau - ta dešinioji dalis piešiama taip.
Pasiskaityt teorijos:
http://ikelk.lt/items/i8tCmwJw1h
Jau kažkur čia forume buvau įdėjęs šitai...
P.S. Kodas nėra sudėtingas Čia net žemiau nei valstybinio lygmuo  |
|
|
|
|
|
|
|
Reikalinga pagalba uzbaigti programai (Free pascal) |
| Parašytas: 2012 02 12, 18:06 |
|
|
|
|
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?.. |
|
|
|
|
|
|
Reikalinga pagalba uzbaigti programai (Free pascal) |
| Parašytas: 2012 02 12, 20:59 |
|
|
|
|
| rytiss20 rašo: |
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?.. |
Na jei jau su visa šia informacija nesugalvoji... |
|
|
|
|
|
|
 |
Google paieška forume |
|
|
|
Naujos temos forume |
|
|
FS25 Tractors
Farming Simulator 25 Mods,
FS25 Maps,
FS25 Trucks |
|
ETS2 Mods
ETS2 Trucks,
ETS2 Bus,
Euro Truck Simulator 2 Mods
|
|
FS22 Tractors
Farming Simulator 22 Mods,
FS22 Maps,
FS25 Mods |
|
VAT calculator
VAT number check,
What is VAT,
How much is VAT |
|
LEGO
Mänguköök,
mudelautod,
nukuvanker |
|
Thermal monocular
Thermal vision camera,
Night vision ar scope,
Night vision spotting scope |
|
FS25 Mods
FS25 Harvesters,
FS25 Tractors Mods,
FS25 Maps Mods |
|
Dantų protezavimas
All on 4 implantai,
Endodontija mikroskopu,
Dantų implantacija |
|
FS25 Mods
FS25 Maps,
FS25 Cheats,
FS25 Install Mods |
|
GTA 6 Weapons
GTA 6 Characters,
GTA 6 Map,
GTA 6 Vehicles |
|
FS25 Mods
Farming Simulator 25 Mods,
FS25 Maps |
|
|
 |
