Anonymní profil klobása-irča – Programujte.com

Ahoj.Mám dle daných instrukcí předělat jeden program vektory, ale nějak se mi to nedaří. Výchozí program je v připojeném souboru a nějaký můj výtvor zde hned dám.
Mezi ty instrukce jak mám program opravit jsou zde:
- vytvořte proceduru nebo funkci VELIKOST, která vypočte velikost zadaného vektoru, začleňte ji do programu tak, aby se postupně vypočetly a zobrazily velikosti vektorů u, v, u+v, u-v.
- vytvořte proceduru VSTUP s jedním parametrem volaným odkazem typu VEKTOR, která zajistí vyžádání a uložení souřadnic daného vektoru
- upravte první řádky hlavního programu tak, aby pro vstup souřadnic vektorů u a v byla využita procedura VSTUP.

Moc Vám děkuju jestli mi s tím někdo poradíte. Zde je nějaký můj výtvor, ale moc toho není:

Uses crt;

TYPE vektor=record
x,y:real;
end;

var u,v,w:vektor;
S:real;

procedure SOUCET(A,B:vektor;var C:vektor);
begin
c.x:= a.x+b.x;
c.y:= a.y+b.y;
end;

procedure ROZDIL(A,B:vektor;var C:vektor);
begin
c.x:= a.x-b.x;
c.y:= a.y-b.y;
end;

procedure SKSOUCIN(U,V:vektor;var S:real);
begin
S:= u.x*v.x+u.y*v.y;
end;

function SKSOUCIN1(U,V:vektor):real;
begin
SKSOUCIN1:= u.x*v.x+u.y*v.y;
end;

function KOLME(u,v:vektor):boolean;
begin
KOLME:= SKSOUCIN1(u,v)=0 ;
end;

function KOLME1(u,v:vektor):string;
begin
IF SKSOUCIN1(u,v)=0 then KOLME1:='Zadane vektory jsou kolme.'
else KOLME1:='Zadane vektory nejsou kolme.';
end;

procedure VYSTUP(v:vektor);
begin
writeln(' = (',v.x:4:1,'; ',v.y:4:1,')');
end;


function VELIKOST(u,v: Vektor):Real;
begin
VELIKOST:= Sqrt(u.x*u.x + u.y*u.y);
end;

function VELIKOST1(u,v: Vektor):Real;
begin
VELIKOST1:= Sqrt(v.x*v.x + v.y*v.y);
end;

procedure VSTUP(m: Vektor);
begin

end;


begin
writeln('Vektory:');
Writeln;
write('Zadejte prvni souradnici vektoru u: ');
readln(u.x);
write('Zadejte druhou souradnici vektoru u: ');
readln(u.y);
write('Zadejte prvni souradnici vektoru v: ');
readln(v.x);
write('Zadejte druhou souradnici vektoru v: ');
readln(v.y);
writeln;

Write('Velikost souradnic u pomoci funkce: ');
Writeln('u = ',VELIKOST(u,v):3:2);

Write('Velikost souradnic v pomoci funkce: ');
Writeln('v = ',VELIKOST1(u,v):3:2);
Writeln;

write('u'); VYSTUP(u);
write('v'); VYSTUP(v);

SOUCET(u,v,w);
write('u + v'); VYSTUP(w);

ROZDIL(u,v,w);
write('u - v'); VYSTUP(w);
Writeln;

write('Skalarni soucin pomoci procedury: ');
SKSOUCIN(u,v,S);
writeln('u.v = ',S:3:1);

write('Skalarni soucin pomoci funkce: ');
writeln('u.v = ',SKSOUCIN1(u,v):3:1);
Writeln;
write('Kolmost vektoru pomoci funkce KOLME(u,v): ');
if KOLME(u,v) then writeln('Zadane vektory jsou kolme.')
else writeln('Zadane vektory nejsou kolme.');

write('Kolmost vektoru pomoci funkce KOLME1(u,v): ');
writeln(KOLME1(u,v));

readln;
end.

To Nrigo :
Veď som písal, že som na učenie starý(48) a do hlavy mi teória fakt nechce vliezť, ale ešte to skúsim, dám si poradiť, ale výsledok nezaručujem, ale to užl nebude Tvoj problém, fakt díky za čas a trpezlivosť.

To Nrigo :
Tak to je na mńa veľmi veľa´, to nezvládnem asi to vzdám som neschopný, ak by sa Ti chcelo tak mi napíš celý script, ak nie ser na to a budem aj ja a fakt veĺmi pekne ďakujem za čas a trpezlivosť, bol si moc zlatý a ochotný. Díky moc.

To Nrigo :
Zadal som to správne, lebo aj databáza sa volá irca a aj jeden stlpec sa volá irca (zatiaľ zadávam názvy bez diakritiky, lebo mi to zobrazuje blbo) a keď som zadal echo "$a" tak sa nič nezmenilo stále prázdna stránka

To Nrigo :
Ja som to len skopíroval a to som si nevšimol, ale robí to presne to isté čo som písal na úplnom začiaktu : nič prázdna stránka

To Nrigo :
Asi to fakt nemá cenu teraz mi to vypisuje : Parse error: parse error in C:\xampp\htdocs\Objednavky\vypis.php on line 23
a pritom ten script nemá 23 riadkov asi mám chybu niekde inde, ale aj tak veľmi pekne ďakujem za snahu a za čas čo si mi venoval, budem ďalej skúšať a skúšať a skúšať možno sa mi niečo podarí

To Nrigo :
Už pár dní sa snažim niečo o php si naštudovať, ale do mojej starej a prechlastanej makovice tá teória akosi nechce vliesť, tak všetko robím systémom pokus-omyl a náhodou sa mi podarilo vytvoriť databázu v nej tabuľky a aj som ich napnil skúšobnými údajmi, len ten výpis mi akosi hapruje.

To Nrigo :
Teraz mi to vypisuje : Warning: mysql_fetch_array(): supplied argument is not a valid MySQL result resource in C:\xampp\htdocs\Objednavky\vypis.php on line 5

To Nrigo :
Tu je celý script, ktorý som zadal :
<?
require("nastaveni.php");

$result=mysql_query($sql) ;
while($bn=mysql_fetch_array($result)
{ $vypis=$bn["irca"];
echo "$vypis";
}
?>

To klobása-irča :
Ale predsa mi tu niečo chýba : názov tabuľky, ten Tvoj script mi vypisuje chyba v riadku 6

To klobása-irča :
Sorry veď ho mám v nastavení.

To Nrigo :
Díky, ale nikde tam nieje názov databázy, kde ho mám vložiť? Som úplný začiatočník samouk v databázach.

To KIIV :
To mám v tej istej zložke ako nastaveni.php :
<?
$SQL_Server = "localhost";
$SQL_Uzivatel = "root";
$SQL_Heslo = "";
$Databaze = "irca";
?>

Prosím o radu či mám niečo v mysql nastaviť, alebo mám chybu s scripte. Script mám uložený v htdocs ako výpis.php v zložke objednavky.
Tu je script :
<?
require("nastaveni.php");
$sql = "EXPLAIN SELECT * FROM `objednavky` WHERE 1";
?>
Ale keď dám príkaz : http://localhost/objednavky/vypis.php, tak sa mi ukáže prázdna stránka.
Vopred ďakuje za radu.