Borland Pascal (3 priklady)

PiDi · Príspevok od používateľa **PiDi** » 22 jan 2009, 17:46

Caute,
potreboval by som pomoct s tromi prikladmi v borlande,neviem s nimi hnut:
5.2 vytvorte proceduru bez parametra len s pouzitm lokalnej premennej,
ktora urobi vymenu dvoch premennych a potom tuto proceduru vyvolame v hlavnom programe.

5.4 procedura sa parametrom volana hodnotou, procedura nakresli ciaru s pismenok "X"
v hlavnom programe tuto dlzku vybera uzivatel
proceduru vyuzijeme na to, aby vo vystupe procedurobu bola nakreslena sipka
xxxxxxxx |1. opakovane na koniec ako 3.|
xxxxxxxxxxxxx
xxxxxxxx

6.3 porovnanie dvoch cisel ... funkcia porovna dve cisla, telo vypise vacsie

vopred dakujem

si robíš srandu? Veď to je primitívne, bežný stredoškolák by to bol schopný spraviť po 2 týždňoch informatiky ( jedna dvojhodinovka do týždňa s hlúpou učitelkou )
Aspoň sa pokús, daj čo máš a opravíme ti chyby

PiDi · Príspevok od používateľa **PiDi** » 22 jan 2009, 17:56

no mozno to je primitivne,ale zajtra musim odovzdat seminarku a nejak to nestiham

vyse 20 prikladov uz mam spravenych,chybaju mi tieto tri a dopisujem texty k tomu

neutronmind

No co uz s tebou...

Kód: Vybrať všetko

program pidi1;
var
X, Y: integer;

procedure vymen(X, Y: integer);
var
pom:integer;
begin
pom:=X;
X:=Y;
Y:=pom;
end;

begin
X:=10;
Y:=20;
vymen(X, Y);
readln;
end.

program pidi2;
var
a:integer;

procedure ciara(X:integer);
begin
while (X<>0) do
begin
write('X');
X:=X-1;
end;
writeln;
end;

begin
write('Zadaj dlzku: ');
readln(a);
ciara(a);
{nakreslenie sipky}
ciara(8);
ciara(13);
ciara(8);
readln;
end.

program pidi3;
var
a, b:integer;

function porovnaj(x, y:integer):integer;
begin
if (x>y) then
porovnaj:=x
else
porovnaj:=y;
end;

begin
write('Zadaj dve cisla: ');
readln(a, b);
writeln('Vacsie je ', porovnaj(a, b));
readln;
end.

PiDi · Príspevok od používateľa **PiDi** » 22 jan 2009, 19:04

dakujem ti velmi pekne

)
K+

BX · Príspevok od používateľa BX » 23 jan 2009, 10:40

prepacte trochu OT ale vsade sa stretavam s premennou pom a stale neviem co znamena

// aha no jasne ze si ju mozem nazvat ako chces (:-D), ale som nevedel co to znamena "pom"

diki

pomocná premenná, môžeš si ju nazvať aj aaaa, bbb, debil alebo magor ak chceš