sqrt atgriež real vērtību.
tas nozīmē ka a jādefinē kā real nevis kā integer.

^^ pareizi :)

Super, paldies =)

To Pascal māca tikai tapēc ka pasniedzēji ir tik tupi ka citu neko neprot. Reāli vairs dzīvē (darbā) to nau kur pielietot.

#4 šķiet, nesen rakstīji, ka esot bez darba :)

Da labi, pakaļgalvi #4, nemuldi daudz. Pascal sākotnēji tika izveidots vispār, lai MĀCĪTU programmēšanu skolās, nevis pielietotu reālos uzdevumos. Bet visiem baigi iepatikās.

Mūsdienās Pascal tiešs OOP turpinājums ir Delphi, kurš tiek lietots daudz un plaši. Ak jā, pati valoda saucās Object Pascal, Delphi ir tikai IDE.

Saprotu, ka problēma atrisināt, bet nesaprotu ko īsti šī proga dara. Kas ir R?
Ja kvadrāta laukums, tad jau nepareizi sanāk.

Un ja Pi ir domāts Π ~3.14159, tad nevajag pārdefinēt const Pi = 3;
Ja pareizi atceros, Paskālā Pi jau ir nodefinēts. Turklāt Pi ir REAL mainīgais, nevis vesels skaitlis.

uzdevums ir:
Ievadīt riņķa rādiusu R. Atrast kvadrāta malas garumu, kuram ir tāds pats laukums, kā riņķim.
Nu un pēc Jūsu padomiem man prgrm tagad izskatās šādi:

program lab2;
  uses crt;
   var R: integer;
     S,a: real;

    begin
clrscr;
       writeln('ievadiet R');
        readln(R);
S:=Pi*Sqr(R);
a:=Sqrt(S);
writeln('kvadrata malas garums ir ',a:0:1);
 readln;
  end.

Nu ja saskatāt kādu kļūdu ziņojat :D

S:=Pi*Sqr(R);
a:=Sqrt(S);

=>

a:=Sqrt(Pi*Sqr(R));

optimizācija/pārskatāmība