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

• #4748 pohár félisten pohár #4747

  Új Válasz 2010-10-10 15:43:33 #4748

  Ú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

  

  pohár

  félisten

  válasz pohár #4747 üzenetére

  mindegy, kész letten vele
  remélem jó is...

• #4747 pohár félisten pohár #4744

  Új Válasz 2010-10-10 14:27:23 #4747

  Ú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

  

  pohár

  félisten

  válasz pohár #4744 üzenetére

  valaki?

• #4744 pohár félisten

  Új Válasz 2010-10-09 15:54:24 #4744

  Ú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

  

  pohár

  félisten

  első progi:

  var szam1, szam2: integer;
  valasz: char;
  begin
  repeat
  writeln('Kerem az elso szamot: ');
  readln(szam1);
  writeln('Kerem a masodik szamot: ');
  readln(szam2);
  if szam1 > szam2 then
  writeln('A ket szam szorzata: ', szam1*szam2)
  else
  if szam1 < szam2 then
  begin
  if szam2 <> 0 then
  writeln('A ket szam hanyadosa: ',szam1/szam2:0:2)
  else
  writeln('A nullaval valo osztas tiltott!');
  end
  else
  writeln('A ket szam osszege: ', szam1+szam2);
  repeat
  writeln;
  writeln('Folytatja? (I/N)');
  readln(valasz);
  until (valasz = 'n') or (valasz = 'N') or (valasz = 'i') or (valasz = 'I');
  until (valasz = 'n') or (valasz = 'N');
  end.

  második progi:

  const n=4;
  var i,j:byte;
  begin
  for i:= 1 to n do {meghatározza hány sor lesz}
  begin
  for j:=1 to n do {meghatározza hány karakter lesz 1 sorban}
  write('x');
  writeln;
  end;
  readln;
  end.

  valaki tudna segíteni megrajzolni folyamatábrában és leírónyelvben?

• #4271 pohár félisten

  Új Válasz 2010-01-08 14:25:35 #4271

  Ú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

  

  pohár

  félisten

  Skacok, valaki egy Visual Basic-es alap számológépet össze tudna dobni?
  Excelben kéne csinálni, elég ha van összeadás és kivonás

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