Új hozzászólás Aktív témák

• #2352 Balákka tag klambi #2351

  Új Válasz 2009-11-28 18:34:34 #2352

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Balákka

  tag

  válasz klambi #2351 üzenetére

  nekem a harmadik feladatra a megoldásom:
  _____________________________________________________________________
  program harmas;
  uses crt;
  var a,b:integer;
  function hatv(alap:integer;kitevo:integer):longint;
  begin
  hatv:=1;
  for cv:=1 to kitevo do begin
  hatv:=hatv*alap;
  end;
  end;
  begin
  clrscr;
  writeln('kérem az alapot');
  readln(a);
  writeln('kérem a kitevőt');
  readln(b);
  writeln(hatv(a,b));
  readln;
  end.
  ______________________________________________________________________

  én free pascalban fordítottam a programot, lehet eltérés turbo pascalban ha hiba van szolj és megpróbálok segíteni

Új hozzászólás Aktív témák