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

• #2375 Gyuri16 senior tag borsodika #2374

  Új Válasz 2010-06-04 12:46:06 #2375

  Ú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

  

  Gyuri16

  senior tag

  válasz borsodika #2374 üzenetére

  ebben tobb hiba is van, ugy nez ki nem vagy tisztaban a pascal szintaxisaval. tomboket [] zarojelekkel indexeljuk, for ciklust egeszet ki kell irni, nem csak a valtozot.. itt van nagyjabol kijavitva kommentekkel, nem futtattam, szoval lehet meg benne hiba, de egy fokkal jobb

  Program kodolas;
  uses crt;
  const
  n=400; {konstans definialasa}
  var
  i,j:integer;
  b: array[1..n] of boolean; {b egy tomb}
  Begin
  for i:=1 to n do { ide nem kell pontosvesszo es a for-t oda kell irni }
  b[i]=false; {tombot kockas zarojellel indexelsz}
  { Writeln b(i)
  End;
  Begin ez a harom sor nem kell }
  for i:=1 to n do {ismet for es pontosvesszo}
  begin {ide kell begin, hosszabb ciklusmag kovetkezik}
  j:=0;
  while j+i<=n do {while ciklus kell}
  begin
  j:=j+i;
  b[i]:=not b[j]; {szinten tomb + negalasra not valo }
  end;
  End;
  for i:=1 to n do { for ciklus}
  Begin
  if b[i] then {tomb [] }
  writeln(i:4); {kiiratas}
  End;
  End.

  most, hogy jobban megneztem ezt a feladatot latom, hogy ez a kettes megoldasa..

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