Ahoj všem příznivcům pascalu !!!
Potřebovala bych prosím, aspoň v krátkosti, vysvětlit tyhle kroky v pascalu...Děkuji
PS - zajímá mě, co jaký příkaz udělá atd..alespoň tu první část, děkuji...

program program_4;
uses crt;

procedure obdelnik(x,y,xa,ya: byte);
var i: integer;
begin
for i := x to xa do
begin
gotoXY(i,y);
write('o');
gotoXY(i,ya);
write('o');
end;

for i := y to ya do
begin
gotoXY(x,i);
write('o');
gotoXY(xa,i);
write('o');
end;
end;

begin
clrscr;
obdelnik(1,1,80,24);


begin
gotoXY(30,12);
writeln('Text uvnitr ramecku.');
readln;
end;
end.

Potřebovala bych prosím, aspoň v krátkosti, vysvětlit tyhle kroky v pascalu...

Uz to fakt chce toho cviciho, predmet, tridu a skolu, at to alespon nekdo muze naprasit, jako rafinovany zpusob seznameni to nevypada, tak at za tebe nedelame praci zbytecne. :)

uses crt;

CRT je (nejsem si jistym Pascalovym nazvoslovim) knihovna funkci, v programu je pouzita kvuli volani funkce pro smazani obrazovky a kvuli funkci gotoXY().

procedure obdelnik(x,y,xa,ya: byte);
var i: integer;
begin

Definovani procedury obdelnik a lokalnich promennych.

for i := x to xa do
begin
gotoXY(i,y);
write('o');
gotoXY(i,ya);
write('o');
end;

Cyklus, ktery pro pomocnou promennou "i" od "x" do "xa" (podle toho, jak je "obdelnik()" zavolana) nejprve zvola gotoXY(), ktera presune kurzor na pozici zadanou argumenty a nasledne tam napise znak "o". Tim se vytvori dve cary, ktere nasledujici cyklus doplni na obdelnik:

for i := y to ya do
begin
gotoXY(x,i);
write('o');
gotoXY(xa,i);
write('o');
end;
end;


begin
clrscr;
obdelnik(1,1,80,24);


Hlavni telo programu smaze obrazovku, zavola proceduru obdelnik() a vypise do nej text:

begin
gotoXY(30,12);
writeln('Text uvnitr ramecku.');
readln;
end;
end.


Cely ten trivialni program je proste o tom, ze se smaze obrazovka, zavola procedura, ktere se zadaji souradnice vsech 4 rohu, dva cykly pak postupne nakresli cary tim, ze se pomoci urcite funkce ukaze na misto na obrazovce, tam se napise "o" a nakonec se do vznikleho obdelniku dopise text.

Děkuju !!!!
Noo, škola - Obchodní akademie - obor Informatika v ekonomice, jsem ve druháku a předmět je to Algoritmizace...Stačí? :-)

Stačí? :-)

Porad malo, ale alespon sem ted muzou prijit dotazy na ucetnictvi. :)

HAHAHAH :-D

Tak těch by taky nebylo málo :-)