Turbo Pascal Výpočet čtverce pro jehlan!! KOD

franke

Ano je to pravidelný čtyřboký jehlan. Který má vypočítat obvod, úhlopříčku, atd. Mělo by to fungovat jako tady http://kle.cz/vy­pocty/jehlanctyr­boky.html

Prosím nemáte skype nebo něco?

Vojtěch

uses Crt; { Nacteme knihovnu Crt nebot nize potrebujeme pouzit jeji funkci ClrScr a ReadKey. }

var
{ Deklarace promennych – Real znaci realne (desetinne) cislo }
{ NazevPromenne : TypPromenne; }
a : Real; { Deklarace promenne a – delka prvni strany podstavy jehlanu }
b : Real; { Deklarace promenne b – delka druhe strany podstavy jehlanu }
v : Real; { Deklarace promenne v – vyska jehlanu }
h : Real; { Deklarace promenne h – delka hrany jehlanu }

procedure VycistiObrazovku;
begin
ClrScr; { Vycisti obrazovku }
end;

procedure ZadejZadani;
begin
WriteLn(‚a – delka prvni strany podstavy jehlanu‘);
WriteLn(‚b – delka druhe strany podstavy jehlanu‘);
WriteLn(‚v – vyska jehlanu‘);
WriteLn(‚Hodnoty nezadavej na jeden radek, ale za kazdou stiskni klavesu Enter.‘);
WriteLn(‚Zadej hodnoty a, b, v:‘);
ReadLn(a, b, v)
end;

procedure TiskniZadani;
begin
WriteLn(‚Zadal jsi tyto hodnoty:‘);
WriteLn('a = ', a);
WriteLn('b = ', b);
WriteLn('v = ', v);
end;

procedure Pocitej;
var
tmp : Real; { Deklarace pomocne promenne tmp}
begin
{ Polovina delky uhlopricky podstavy jehlanu }
{ sqr – funkce pro vypocet druhe mocniny }
{ sqrt – funkce pro vypocet druhe odmocniny }
tmp := sqrt(sqr(a) + sqr(b)) / 2;
{ Delka hrany jehlanu }
h := sqrt(sqr(tmp) + sqr(v));
end;

procedure TiskniVysledek;
begin
WriteLn(‚Vysled­ky:‘);
{ Cislice za promennou urcuji formatovani cisla. Napriklad „h:10:5“ znamena, ze }
{ promenna „h“ bude mit celkem 10 cislic, z toho 5 za desetinnou teckou. Nebude }
{ tak tisknout napriklad 1.2345678901E+01, ale 12.34567 }
WriteLn('Delka hrany jehlanu h = ', h:10:5);
end;

procedure CekejNaKlavesu;
begin
WriteLn(‚Stiskni libovolnou klavesu pro ukonceni.‘);
ReadKey; { Cekej na stisk klavesy }
end;

begin
VycistiObrazovku;
ZadejZadani;
TiskniZadani;
Pocitej;
TiskniVysledek;
CekejNaKlavesu;
end.

franke

JJ díky moc ale když to přepíšu do pascalu tak mi to píše 2 chyby jehlan.PAS (23,1) Fatal: syntax error ; expected but '' identifier READLN FO
a jehaln.pas (0) Fatal: Compilation Aborted