Paskalis

Kaip reiktu is didziausios pakeisti i maziausios reiksmes paieska?

program arbuzas;

uses crt;

const Greitis = 1000;

var n : integer; {Arbuzu skaicius}

sv : real; {Arbuzu svoris}

i : integer; {Arbuzu numeris}

D : real; {sunkiausio arbuzo svoris}

Dn : integer; {sunkiausio arbuzo numeris}

{-----------------------------------------------------------------------}

begin

TextBackground(black); ClrScr; {Valomas ekranas}

{------------------------------------------------------------------------}

Window (8, 3, 30, 5); GoToXY(5, 2);

TextBackground(Blue); ClrScr;

TextColor(Green); Write('Kiek yra arbuzu ? ');

TextColor(red); Read(n);

{---------------------------Sunkiausio paieska---------------------------}

Window (8, 7, 50, 20);

TextBackground(Blue); ClrScr;

TextColor(Green); GoToXY(10, 2);

Write ('Arbuzu svoriu ivedimas ');

Window (10, 9, 45, 19);

TextBackground(White); ClrScr;

TextColor(Black); GoToXY(1, 11);

D := 0; Dn := 0;

for i := 1 to n do begin

Write('Iveskite ', 1:2, ' -ojo arbuzo svori: ');

ReadLn(Sv);

if Sv > D then begin

D := Sv;

Dn := i;

end;

end;

{------------------Kompiuteris galvoja-----------------------------}

i := 1000;

while i < 8000 do begin

Sound(1500); Delay(Greitis); Nosound;

i := i + 1000;

end;

{------------------------------------Rezultatai---------------------}

Window(40, 3, 70, 6);

TextBackground(Brown); ClrScr;

TextColor(Magenta);

GoToXY(3, 1); Write('sunkiausias arbuzas Nr', Dn:4);

GoToXY(10, 3);

TextColor(Green); Write('Jo svoris : ', D:6:2);

{--------------------------------------------------------------------}

Delay(Greitis);

Window(1, 1, 80, 25); {Visas ekranas}

GoToXY(60, 25); TextColor(Red); Write('ENTER'); ReadLn;

end.

Ar as cia kazka maisaum, ar si programa tikrai neisko min/max reiksmiu? :DD

Nu taip ji dbr iesko didziausio arbuzo svori , o man reikia pakeisti kad rastu maziausio arbuzo svori.

Nu taip ji dbr iesko didziausio arbuzo svori , o man reikia pakeisti kad rastu maziausio arbuzo svori.

D := MaxInt; Dn := 0;

for i := 1 to n do begin

Write('Iveskite ', 1:2, ' -ojo arbuzo svori: ');

ReadLn(Sv);

if Sv < D then begin

D := Sv;

Dn := i;

end;

Shokutis didelis dekui.

program P7;

uses Crt;

{------------------------------------------------------------------------------}

procedure Kiek( sim : char );

var x, y , sp : integer;

begin

Randomize;

repeat x := Random(80);

y := Random(24);

sp := Random(15);

GoToXY(x, y); TextColor(sp); write(sim);

Delay (500);

until KeyPressed;

ReadLn;

end;

{------------------------------------------------------------------------------}

begin

ClrScr;

Kiek( '*' );

Kiek( #1 );

Kiek( #2 );

Kiek( #3 );

Kiek( #4 );

Kiek( #5 );

Kiek( #6 );

Kiek( #176);

Kiek( #177);

end.

Kaip pakeisti programa kad Atsitiktine tvarka butu destomi ivedami simboliai?

Turi omeny šitaip? :) Spaudina vieną tavo įvestą simbolį kol nuspaudi klavišą.

program P7;
uses Crt;
{------------------------------------------------------------------------------}
procedure Kiek( sim : char );
var x, y , sp : integer;
begin
Randomize;
 repeat
  x := Random(80);
  y := Random(24);
  sp := Random(15);
  GoToXY(x, y); TextColor(sp); write(sim);
  Delay (500);
 until KeyPressed;
ReadLn;
end;
{------------------------------------------------------------------------------}
var sim:char;
begin
ClrScr;
ReadLn(sim);
Kiek(sim);
end.

Ar šitaip? Spausdina įvestą simbolį, kol nuspaudi klavišą, tada gali įvesti kitą simbolį spausdinimui. Užbaigimui įvesti nulį.

program P7;
uses Crt;
{------------------------------------------------------------------------------}
procedure Kiek( sim : char );
var x, y , sp : integer;
begin
Randomize;
repeat
 Read(sim);
  repeat
x := Random(80);
y := Random(24);
sp := Random(15);
GoToXY(x, y); TextColor(sp); write(sim);
Delay (500);
until KeyPressed;
until sim=('0');
ReadLn;
end;
{------------------------------------------------------------------------------}
var sim:char;
begin
ClrScr;
Kiek(sim);
end.

Jo sitaip dekui :)