PASCAL - Test 07
(Karma Sorular)
|
PASCAL |
Testler |
3N |
Ana Sayfa
|
type Ucus = record KalkisZamani, VarisZamani : real; Kapı : char; Sayi : integer; TamZaman, Satıldı : boolean; end; Ucuslar = array[1..100] of Ucus; var THY, KLM, TWA : Ucuslar;
Var m, n : integer; x, y : real; p, q : ^integer; a, b : ^real;
PROGRAM ust;
Var Taban,Ust : Real;
FUNCTION KUVVET(a, x : real) : real ;
Begin
Kuvvet := exp(ln(a) * x )
End;
BEGIN
Writeln('Taban ve Ust''u giriniz');
Readln(Taban,Ust);
Writeln(Taban:10:3,' ^ ',Ust:5:2,' = ', Kuvvet(Taban, Ust):10:3)
END.
http://mail.baskent.edu.tr/~tkaracay
© Timur Karacay, 2001. All rights reserved.