Pascal

JonathanDavi

zdar chlapci potreboval by som pomoct s tymto prikladom
Vytvorte program, ktory:
a)vygeneruje 100 celych nezapornych cisel
b)zisti, kolko cisel zo vstupneho suboru sa konci na 0,1,9 a vypise , ktore su to
Diki.

neppo · Príspevok od používateľa **neppo** » 26 sep 2007, 9:26

vyskusaj toto

Kód: Vybrať všetko

program prog_2457;
uses crt;
var all,num:array[1..100] of integer;
    i,count:integer;
begin
clrscr;
randomize;
count:=1;
for i:=1 to 100 do begin
    all[i]:=random(20000);
    write(all[i],' ');
    if (((all[i] mod 10)=0) or ((all[i] mod 10)=1) or ((all[i] mod 10)=9)) then begin
       num[count]:=all[i];
       inc(count);
    end;
end;
writeln;
writeln;
writeln ('Cisel co maju nakonci 0,1,9 je presne ',count-1,' a su to tieto: ');
writeln;
for i:=1 to count-1 do begin
    write(num[i],' ');
end;
readln;
end.

JonathanDavi

funguje , diki moc kamo
K+

"J" · Príspevok od používateľa **"J"** » 16 okt 2007, 15:42

caute, nechcem zakladat novu temu, tak pisem sem.
potrebujem zeby som mal zadat cislo dna ktory bude zajtra a vypise mi rozvrh. som skusil taketo a nejde mi. (nesmejte sa este len zacinam

)

Kód: Vybrať všetko

program rozvrh;
var den:integer;
uses crt;
begin
clrscr;
 writeln('zadaj cislo dna aky bude zajtra; 1=pondelok, 7=nedela');
 readln(den);
 if 0<den<8
  then
   case den of
    1 : writeln('AJ,INF,GEO,FYZ,MAT,NJ');
    2 : writeln('NJ,TV,DEJ,MAT,CHE,LIT');
    3 : writeln('ESV,MAT,FYZ,GEO,NAB');
    4 : writeln('MAT,DEJ,TV,SJ,AJ,FYZ');
    5 : writeln('NJ,CHE,MAT,FYZ,AJ,LIT,TV');
    6 : writeln('hura sobota');
    7 : writeln('hura nedela');
   else
    writeln('mas krivy prst alebo nevies pocitat');
readln;
end.

juho · Príspevok od používateľa **juho** » 16 okt 2007, 16:37

toto zboznujem co tak pozret sa na chybu a ked jej nerozumies tak ju sem este dopisat..
uses musi byt prvsie nez var.
podmienka: uplne nevies ako sa tvoria podmienky if (den>0) and (den<8 )
no co uz nevies narabat ani s case:
case den of
1:
2:
......
end;