Kaip pakelti skaičių laipsniu (kvadratu/kubu) ? [Pascal]

Šiame įraše yra parodama, kaip galima pakelti skaičių reikiamu laipsniu Pascal‘yje. Yra parodyti 2 variantai: paprastas vienkartinis kėlimas ir atskirai aprašyta funkcija laipsnis, leidžianti naudoti skaičių a pakeltą laisniu b.

Kėlimas laipsniu

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program ApieViska;
var
    a,b,result,i:longint;
begin
  WriteLn('ApieViska.INFO');
 
  WriteLn('Įveskite skaičių');
  Readln(a);
 
  WriteLn('Kokiu laipsniu jį pakelti?');
  Readln(b);
 
  result:=a;
 
  for i:= 1 to b-1 do
    begin
        result:=result*a;
    end;
 
  WriteLn('Skaičius ',a,' laipsnyje ',b, ' lygus ', result);
  ReadLn;
 
end.

Kėlimas laipsniu, panaudojant funkciją

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program ApieViska;
var
    a,b:longint;
function laipsnis (a,b:longint):longint;
    var
        result,i:longint;
    begin
    result:=a;
 
    for i:= 1 to b-1 do
        begin
            result:=result*a;
        end;
    laipsnis:=result;
    end;
 
 
begin
  WriteLn('ApieViska.INFO');
  WriteLn('Įveskite skaičių');
  Readln(a);
  WriteLn('Kokiu laipsniu jš pakelti?');
  Readln(b);
 
  WriteLn('Skaičius ',a,' laipsnyje ',b, ' lygus ',laipsnis(a,b));
  ReadLn
 
end.

Žymos: , , , , ,

Susiję Įrašai:

Masyvo maksimumas / minimumas [Pascal] Masyvo maksimumas / minimumas [Pascal]
Skaičių seka [Free Pascal] Skaičių seka [Free Pascal]
Kaip nupieštų piramidę / trikampį iš simbolio / skaičiaus? [Free Pascal] Kaip nupieštų piramidę / trikampį iš simbolio / skaičiaus? [Free Pascal]
Šviesoforas [Pascal] Šviesoforas [Pascal]

Palikite komentarą

Rašyti komentarą
© 2014 Viskas Apie Viską. All rights reserved. XHTML / CSS Valid.
Proudly designed byTheme Junkie.