ChesterZZ napísal:Tiež by som potreboval nejaké tie programy do školy a absolútne nemám šajnu ako na to... PLS pomožte ak viete, díky:
Kód: Vybrať všetko
4.) V premennej VKLAD je suma peňazí, ktorú sme vloŽili na účet. V premennej UROK je v percentách vyjadrená hodnota úrokovej miery, podľa ktorej sa náš účet každoročne zvyšuje. Napíšte časť programu, ktorá zistí koľko rokov musíme mať peniaze na účte, aby sme spolu s nazbieranými úrokmi dosiahli sumu určenú hodnotou premennej SUMA.
spravil som ti tento program, je to spravene pre jednoduche urokovanie, take, ze suma, ktora je na ucte sa raz za rok zuroci...
Kód: Vybrať všetko
program urokovanie;
uses crt;
var suma,urok,vklad,p:integer;
var temp:real;
begin
clrscr;
writeln('zadaj vklad na ucet');
readln(vklad);
writeln;
writeln('zadaj rocny urok');
readln(urok);
writeln;
writeln('zadaj sumu, ktoru chces dosiahnut');
readln(suma);
writeln;
temp:=suma;
p:=0;
while temp>vklad do begin
temp:=temp/(1+(urok/100));
p:=p+1;
end;
if p<5 then
writeln('z vkladu ',vklad,' dosiahnes sumu ',suma,' s urokovou mierou ',urok,' za ',p,' roky.')
else
writeln('z vkladu ',vklad,' dosiahnes sumu ',suma,' s urokovou mierou ',urok,' za ',p,' rokov.');
readln;
end.
ChesterZZ napísal:Kód: Vybrať všetko
3.) Napíšte program, ktorý zistí a vypíše počet všetkých deliteľov prirodzeného čísla načítaného na vstupe. Výstup upravte v tvare: Deliteľmi prirodzeného čísla N sú : X1, X2, ... , XN.
tu mas este ten na delitele:
Kód: Vybrať všetko
program delitele;
uses crt;
var n,c,k,t:integer;
var p:Array[1..100] of integer;
begin
clrscr;
c:=0;
t:=1;
writeln('zadaj cislo u ktoreho chces zistit pocet delitelov');
readln(n);
for k:=1 to n do begin
if n mod k = 0 then begin
c:=c+1;
p[t]:=k;
t:=t+1;
end;
end;
writeln;
writeln('Cislo ',n,' ma ',c,' delitelov.');
writeln('Tieto delitele su: ');
writeln;
for k:=1 to (t-1) do
if k<(t-1) then write(p[k],', ') else write(p[k]);
readln;
end.
//vidim, ze ma audiotrack s delitelmi predbehol
Neppo dík aj tebe 
