program usalma;
uses crt;
var
i,j:real;
s:string[1];
begin
repeat
clrscr;
writeln('örnek');
writeln('tabanı giriniz: 3.4');
writeln('üssü giriniz: 1.5');
writeln('sonuc: 6.2693');
writeln;
write('tabanı giriniz: ');readln(i);
write('üssü giriniz: ');readln(j);
writeln(i: 3:4,' üssü ',j: 3:4,' = ',exp(i*ln(j)): 3:4);
s:=readkey;
until (s='0');
end.
Bende pascal yok deneyemedim. Delphi ile benzerini denedim çalıştı. Böyle çalışması lazım.
|