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

• #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?

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