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

• #2385 Gyuri16 senior tag jagello #2376

  Új Válasz 2010-06-07 19:55:12 #2385

  Ú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 jagello #2376 üzenetére

  elso:

  var
  a,b,e,tmp: integer;
  
  begin
  write('Add meg a kocka elhosszat: ');
  readln(e);
  write('Add meg a papirlap a oldalhosszat: ');
  readln(a);
  write('Add meg a papirlap b oldalhosszat: ');
  readln(b);
  
  if (a>b) then
  begin
  tmp:=a;
  a:=b;
  b:=tmp;
  end;
  
  if (a>=3*e) and (b>=4*e) then
  writeln('Elkeszitheto')
  else
  writeln('Nem keszitheto el');
  end.

  az elso resz a beolvasas. masodik elintezi, hogy az a valtozoban legyen a kisebb oldal a b-ben pedig a nagyobb. vegen osszehasonlitas.

  masodik:

  const
  max = 15;
  
  var
  szamok: array [1..max] of integer;
  c,i: integer;
  
  begin
  c:=0;
  writeln('Add meg a(z) ',max,' szamot');
  for i:=1 to max do
  readln(szamok[i]);
  
  for i:=2 to max-1 do
  if (szamok[i]>szamok[i-1]) and (szamok[i]>szamok[i+1]) then
  c:=c+1;
  
  writeln('A lokalis maximumok szama: ',c);
  end.

  ehhez a koritest megirtam privatban valaszkent a kerdesedre. remelem segit

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