Возвести число в степень

@implex22 · Регистрация: 23.05.2016

Author24 — интернет-сервис помощи студентам

Помогите дорешать задачу, дана задача возвести число в степень, вот сама программа, она работает, но как сделать чтобы она записывала результат в текстовый документ???

Pascal

var
x,n:integer;
res:real;
i:byte;
begin
write('Число:');readln(x);
write('Степень');readln(n);
res:=1;
i:=0;
while i <abs(n) do begin
res:=res*x;
i:=i+1;
end;
if n < 0 then
res:=1/res;
writeln(res:10:5);
readln;
end.

@ZX Spectrum-128 · 13.04.2017, 19:04

Pascal

var
  x, n: integer;
  res: real;
  i: byte;
  f: text;
 
begin
  write('Число:');
  readln(x);
  write('Степень');
  readln(n);
  res := 1;
  i := 0;
  while i < abs(n) do 
  begin
    res := res * x;
    i := i + 1;
  end;
  if n < 0 then
    res := 1 / res;
  assign(f, 'result.txt');
  rewrite(f);
  writeln(res:10:5);
  writeln(f, res:10:5);
  close(f);
  readln;
end.

	13.04.2017, 19:04