Ukol do skoly:( – Pascal – Fórum – Programujte.com

Ahoj, mame takovej ukol do skoly v Pascalu, ale ja jsem na pc antitalent takze si stim nejak nevim rady:) Mame vytvorit program, po tom co ho nejakej uzivatel zapne, tak pise ruzny cisla, az napise nulu, tak mu program rekne, ktere cislo bylo nejvetsi a ktere nejmensi. Poradite mi s tim nekdo? Diky

Zhruba bych to viděl takhle:

program cisla;
uses crt;
var A,B,C : Integer;

begin

randomize;

repeat
a:=random(30000); {sem si das max velikost cisla ye kterzch chces vzbirat}

if A>B then B:=A;
if A<C thene C:A;

until A=0;

writeLN('Nejmensi cislo bylo:',B);
writeLN(Nejvetsi:'C);

end.

ja som to pochopil tak ze ucitel bude zadavat cisla... tak tu mas este jeden zdrojak

rogram cisla;
var n,pmax,pmin:real;

begin
writeln('Zadavaj cisla, po zadani nuly program vypise najvacsie a najmensie cislo');
pmax:=0;
pmin:=0;
repeat
readln(n);
if n>pmax then pmax:=n;
if n<pmin then pmin:=n;
until n=0;
writeln ('najvacsie cislo je ',pmax:0:2,' a najmensie je ',pmin:0:2);
readln;
end.

Diky moc za pomoc :)

Dekuju,dekuju,dekuju :D

aj ja mam nejaky: mozno ze je to pre vas lahke; mame vymysliet program, ktory vypise tie cisla od 1 do 100, ktore sa koncia na 3 (3,13,23 at

ps2console napsal:

aj ja mam nejaky: mozno ze je to pre vas lahke; mame vymysliet program, ktory vypise tie cisla od 1 do 100, ktore sa koncia na 3 (3,13,23 atd)

program Project2;



var num: integer;

begin

   for num := 1 to 100 do

     if ((num mod 10) = 3) then

      writeln(num);

   readln;

 

end.

thanks man

ps2console napsal:

thanks man

Ja by som to riesil takto :

program cisla;

begin
clrscr;
write ("3,13,23,33,43,53,63,73,83,93");
readln;
end.

:cigo:

Qwertz napsal:

Ja by som to riesil takto :

program cisla;

begin
clrscr;
write ("3,13,23,33,43,53,63,73,83,93");
readln;
end.

:cigo:

otzi píše:#
# ja som to pochopil tak ze ucitel bude zadavat cisla... tak tu mas este jeden zdrojak#
##
#rogram cisla;#
#var n,pmax,pmin:real;#
##
#begin#
# writeln(##uvozovka##Zadavaj cisla, po zadani nuly program vypise najvacsie a najmensie cislo##uvozovka##);#
# pmax:=0;#
# pmin:=0;#
# repeat#
# readln(n);#
# if n>pmax then pmax:=n;#
# if n<pmin then pmin:=n;#
# until n=0;#
# writeln (##uvozovka##najvacsie cislo je ##uvozovka##,pmax:0:2,##uvozovka## a najmensie je ##uvozovka##,pmin:0:2);#
# readln;#
#end.

To vird: jj je to tak, a melo by se to nejspis delat tak, ze v prvnim projeti cyklu se do pmin a pmax zapise n, potom muzes vynechat to nulovani pmax a pmin...