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

• PumpkinSeed addikt

  #6710

  #6699 kornyiktamas

  2015-01-05 03:50:31

  Új Válasz

  Ú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

  

  PumpkinSeed

  addikt

  #6699 kornyiktamas

  #6699 kornyiktamas

  feladat

  elméletileg DELPHI-ben így néz ki:

  program Project1;

  {$APPTYPE CONSOLE}

  uses
  SysUtils;

  var
  Evszam: string;
  ev: integer;

  function TEvszam: integer;
  var
  i: integer;
  szam: array[1..8] of integer;
  szamok: string;
  osszeg: integer;

  begin
  szamok := Evszam[1] + Evszam[2] + Evszam[3] + Evszam[4] + Evszam[6] + Evszam[7] +
  Evszam[9] + Evszam[10];

  i := 0;
  for i := 0 to 8 - 1 do begin
  szam[i+1] := strtoint(szamok[i+1]);
  end;
  osszeg := szam[1] + szam[2] + szam[3] + szam[4] +
  szam[5] + szam[6] + szam[7] + szam[8];

  while osszeg > 9 do begin
  szamok := inttostr(osszeg);
  szam[1] := strtoint(szamok[1]);
  szam[2] := strtoint(szamok[2]);
  szam[3] := szam[1] + szam[2];
  osszeg := szam[3];
  end;

  result := osszeg;

  end;

  begin
  { TODO -oUser -cConsole Main : Insert code here }
  readln(Evszam);
  ev := TEvszam;
  writeln(ev);
  readln;
  case ev of
  1: writeln('Mars');
  2: writeln('Jupiter');
  9: writeln('valami');
  end;
  readln;

  end.

  [link]

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