|
|
|
| Autor |
Správa |
rochedo
Medium Star
Stav: 
Založený: 08.10.2005
Príspevky: 373
Karma:   
|
 Zaslal: 18 Apr 2008, 19:58 Predmet: Programy v Pascale |
  |
|
Potreboval by som surne spravit tieto programy. Kamos prisel ku mne ci by som mu nevedel s tym pomoct lebo on je totalna lama v Pascale. Povedal som mu ze s tym skusim pomoct a nic ine ma nenapadlo len vypytat pomoc na hojku: diky kazdemu kto sa na to pozrie.
1.
| Kód: |
napiste program ktory si nahodne zvoli 3 realne cisla intervale (-10,10) a vypise ich s presnostou na 3 desatinne cisla v tvare:
1. myslene cislo: ____
2. myslene cislo: ____
3. myslene cislo: ____ |
2.
| Kód: |
napiste program, ktory vypocita priemerny prospech ziakov z predmetu matematika ak zoznam ziakov je ulozeny v textovom subore a znamky ziakov sa zadavaju cez klavesnicu
|
3.
| Kód: |
napiste program na vypocet priemeru vysok 5 spoluziakov ak cez klavesnicu nacitate ich vysky. vystup upravte v tvare:
vyska 1. ziaka ..... ------
vyska 2. ziaka ..... ------
vyska 3 .ziaka ..... ------
vyska 4. ziaka ..... ------
vyska 5. ziaka ..... ------
priemerna vyska ..... ------
|
|
|
| Návrat hore |
|
 |
makaveli
Medium Professional
Pohlavie: 
Stav:
Založený: 17.10.2005
Príspevky: 1059
Bydlisko: Brno(FI MU),Martin
Karma: 
|
| Zaslal: 18 Apr 2008, 21:01 Predmet: |
|
|
nemam moc cas, tak aspon jeden...
| Kód: |
program uloha3;
uses crt;
var temp:Array[1..6] of Integer;
var i:integer;
begin
clrscr;
for i:=1 to 5 do begin
writeln('zadaj vysku ziaka c. ',i);
readln(temp[i]);
temp[6]:=temp[6]+temp[i];
end;
clrscr;
for i:=1 to 5 do
writeln('vyska ',i,'. ziaka je .... ',temp[i]);
writeln;
writeln('priemerna vyska je .... ',temp[6]/5:2:2);
readln;
end.
|
|
|
| Návrat hore |
|
|
juho
Expert
Stav:
Založený: 11.05.2007
Príspevky: 198
Karma:
|
| Zaslal: 19 Apr 2008, 8:59 Predmet: |
|
|
| Kód: |
uses crt;
function cislo:real;
var a:real;b:byte;
begin
a:=random(10)+random;
b:=random(2);
if b=0 then cislo:=a*-1 else cislo:=a;
end;
var a:byte;
begin clrscr;
randomize;
for a:=1 to 3 do writeln(a,'. myslene cislo: ',cislo:0:3);
end. |
|
|
| Návrat hore |
|
|
audiotrack
Moderátor
Pohlavie:
Stav:
Založený: 09.09.2005
Príspevky: 6452
Bydlisko: Prievidza
Karma: 
|
| Zaslal: 19 Apr 2008, 10:30 Predmet: |
|
|
juho wtf?
| Kód: |
a:=random(10)+random;
b:=random(2);
if b=0 then cislo:=a*-1 else cislo:=a; |
stačí a:=random(21)-10 a ušetríme jednu premennú. A tiež cez fciu je to zbytočné robiť, to random(20)-10 môžeš dať priamo do výpisu |
|
| Návrat hore |
|
|
ChesterZZ
Novice
Pohlavie:
Stav:
Založený: 06.09.2007
Príspevky: 9
Karma: 
|
| Zaslal: 21 Apr 2008, 16:23 Predmet: |
|
|
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: |
| 1.) Napíšte program na riešenie kvadratickej rovnice ax2 + bx + c = 0. Vstupné hodnoty sú a, b, c. Program má testovať, či rovnica je kvadratická alebo lineárna, v prípade kvadratickej určte riešenie v závislosti od diskriminantu rovnice. |
| Kód: |
2.) Napíšte program, ktorý pre tri reálne čísla dané na vstupe vypočíta a vypíše súčet tých z nich, ktoré sú z intervalu <-2,5;2,5>.
Výstup upravte v tvare: súčet X, Y, Z z daného intervalu je S. |
| Kód: |
| 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. |
| Kód: |
| 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. |
| Kód: |
| 5.) Napíšte program na výpočet n! (využite cyklus s podmienkou na konci). |
| Kód: |
6.) Napíšte program, ktorý v číselnom poli zadávanom cez klávesnicu navzájom vymení maximálny a minimálny prvok. Výmenu prvkov riešte pomocou procedúry.
Výstup pripravte nasledovne: napr. pôvodné pole: 5, 2, 3, 8, 4
upravené pole: 5, 8, 3, 2, 4 |
Díky ešte raz každému. |
|
| Návrat hore |
|
|
neppo
Star
Pohlavie:
Stav:
Založený: 09.06.2005
Príspevky: 650
Bydlisko: www.kzsk.sk
Karma: 
|
| Zaslal: 21 Apr 2008, 19:43 Predmet: |
|
|
5)
| Kód: |
program faktorial;
var n:integer;
fakt:longint;
begin
readln(n);
fakt:=n;
repeat
n:=n-1;
fakt:=fakt*n;
until(n=0);
end. |
|
|
| Návrat hore |
|
|
ChesterZZ
Novice
Pohlavie:
Stav:
Založený: 06.09.2007
Príspevky: 9
Karma:
|
| Zaslal: 21 Apr 2008, 20:59 Predmet: |
|
|
| Díky, ale skúšal si to ? Mne to nefunguje... |
|
| Návrat hore |
|
|
audiotrack
Moderátor
Pohlavie:
Stav:
Založený: 09.09.2005
Príspevky: 6452
Bydlisko: Prievidza
Karma:
|
| Zaslal: 21 Apr 2008, 21:05 Predmet: |
|
|
| ChesterZZ napísal: |
| Díky, ale skúšal si to ? Mne to nefunguje... |
má tam zlú podmienku, daj to until(n=1); |
|
| Návrat hore |
|
|
neppo
Star
Pohlavie:
Stav:
Založený: 09.06.2005
Príspevky: 650
Bydlisko: www.kzsk.sk
Karma:
|
| Zaslal: 21 Apr 2008, 23:15 Predmet: |
|
|
| sry pisal som to z hlavy... |
|
| Návrat hore |
|
|
ChesterZZ
Novice
Pohlavie:
Stav:
Založený: 06.09.2007
Príspevky: 9
Karma:
|
| Zaslal: 21 Apr 2008, 23:18 Predmet: |
|
|
Audiotrack díky moc  . Vidím, že sa vyznáš... S ostatnými programami by si mi nevedel pomôcť ?  Neppo dík aj tebe  |
|
| Návrat hore |
|
|
audiotrack
Moderátor
Pohlavie:
Stav:
Založený: 09.09.2005
Príspevky: 6452
Bydlisko: Prievidza
Karma:
|
| Zaslal: 21 Apr 2008, 23:45 Predmet: |
|
|
| vedel, ale sa mi nechce takto sa to nenaučíš |
|
| Návrat hore |
|
|
makaveli
Medium Professional
Pohlavie:
Stav:
Založený: 17.10.2005
Príspevky: 1059
Bydlisko: Brno(FI MU),Martin
Karma:
|
| Zaslal: 21 Apr 2008, 23:48 Predmet: |
|
|
| 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: |
| 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: |
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: |
| 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: |
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 |
|
| Návrat hore |
|
|
audiotrack
Moderátor
Pohlavie:
Stav:
Založený: 09.09.2005
Príspevky: 6452
Bydlisko: Prievidza
Karma:
|
| Zaslal: 22 Apr 2008, 0:03 Predmet: |
|
|
tak aj ja nejaké pridám, idem spať, ak to nikto nedorazí tak zajtra
| Kód: |
program blabla;
var cislo,sucet:real;
i:integer;
begin
sucet:=0;
for i:=1 to 3 do begin
writeln('Zadaj ',i,'. cislo: ');
readln(cislo);
if (cislo<=2.5) and (cislo>=-2.5) then sucet:=sucet+cislo;
end;
writeln(sucet:2:2);
end. |
| Kód: |
program blabla;
var cislo,delitel:integer;
i:integer;
begin
writeln('Zadaj cislo');
readln(cislo);
write('Delitele cisla ',cislo,' su: ');
for i:=1 to cislo do begin
if cislo mod i = 0 then write(i,', ');
end;
end. |
|
|
| Návrat hore |
|
|
ChesterZZ
Novice
Pohlavie:
Stav:
Založený: 06.09.2007
Príspevky: 9
Karma:
|
| Zaslal: 22 Apr 2008, 15:33 Predmet: |
|
|
| audiotrack napísal: |
| vedel, ale sa mi nechce takto sa to nenaučíš |
Viem, že nie, ale tie programy potrebujem súrne a už je neskoro učiť sa to... 
| audiotrack napísal: |
| má tam zlú podmienku, daj to until(n=1); |
Nefunguje to ani takto...
makaveli a audiotrack díky moc
Mohli by ste urobiť ešte tie zvyšné 3 programy ? Potrebujem to už na dneska.... Ďakujem |
|
| Návrat hore |
|
|
audiotrack
Moderátor
Pohlavie:
Stav:
Založený: 09.09.2005
Príspevky: 6452
Bydlisko: Prievidza
Karma:
|
| Zaslal: 22 Apr 2008, 17:20 Predmet: |
|
|
| ChesterZZ napísal: |
Nefunguje to ani takto...
|
zaujímavé, že moja logika aj kompilátor to vyhodnotil ako správne a vrátil výsledok zodpovedajúci faktorialu zadaného čísla
neviem ako si na to došiel že to nejde |
|
| Návrat hore |
|
|
|
|  |
|
|
Nemôžete odosielať nové témy do tohto fóra
Nemôžete odpovedať na témy v tomto fóre
Nemôžete upravovať svoje príspevky v tomto fóre
Nemôžete mazať svoje príspevky v tomto fóre
Nemôžete hlasovať v tomto fóre
Nemôžete pripájať súbory do tohto fóra
Môžete sťahovať súbory v tomto fóre
|
Powered by phpBB © 2005 phpBB Group, phpBB SEO, © Hojko 2004-2008
[ Vygenerované za: 0.2s ] :: [ 16 Queries ] :: [ 33,920 stránok za dnes ] :: [ Dnes DB: 634,269 ] :: [ Max DB: 2,334,336 Queries ]
|
