 | | |
 | Stránka: 1 z 1
| [ Príspevkov: 15 ] | |
| Autor | Správa |
|---|
Registrovaný: 14.02.07
Prihlásený: 01.01.11
Príspevky: 24
Témy: 9 |
 Ahojte. Mam 5 programov a neviem s nimi pohnut..ale je to surne...
1. Napíšte program, ktorý zistí, či sa slová S1 a S2 rýmujú t.j. či sa posledné tri alebo dve hlásky zhodujú.
2. Napíšte program, ktorý zistí počet výskytov zadanej slabiky vo vete „Jak kukam, tak kukam, nic nevykukam!“
3. Napíšte program, ktorý bude kontrolovať celkovú hmotnosť ľudí vo výťahu a ich počet. Maximálna hmotnosť je 400kg a max. počet osôb je 5. (hmotnosť osôb je medzi 55-110 kg)
4.Zostavte program, ktorý naplní postupnosť x1,...,xn postupne hodnotami 0,1,2,3,4,5,6,0,1,2,3,4,5,6,0,1,2,...pre zadané n a hodnotu prvého xi. Teda postupnosť môže začínať hociktorou z hodnôt 0,1,...,6.
pre vstup 10, 5 : n=10, xi=5 vypise 5,6,0,1,2,3,4,5,6,0
5. V knižnici je uložených n kníh rôznej veľkosti očíslovaných od 1. Zistite čísla kníh, ktoré sú vyššie ako ostatné v poradí za nimi.
30 20 5 25 20 5 10
pri takomto vstupe vypise 1,4,5,7
...a[i]:=5+random(26) ...pre náhodnú výšku kníh
|
|
Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9 |
luckysun píše: :cry: Ahojte. Mam 5 programov a neviem s nimi pohnut..ale je to surne...
1. Napíšte program, ktorý zistí, či sa slová S1 a S2 rýmujú t.j. či sa posledné tri alebo dve hlásky zhodujú.
tri alebo dve, znamená že stačí kontrolovať dve, ak sa zhodujú dve tak mi je jedno či aj tretia lebo slovo sa už rýmuje. Ak sa nerovnajú tak sa nerýmuje aj ak by sa tretia rovnala...
Kód: program rym;
var s1,s2:string;
zhoduju:boolean;
begin
zhoduju:=false;
write('Zadaj prve slovo: ');
readln(s1);
write('Zadaj druhe slovo: ');
readln(s2);
if (s1[length(s1)]=s2[length(s2)]) and (s1[length(s1)-1]=s2[length(s2)-1]) then
if (s1[length(s1)-2]=s2[length(s2)-2]) and (s1[length(s1)-3]=s2[length(s2)-3]) then zhoduju:=true;
if zhoduju then write('rymuje') else write('Nerymuje');
end. (zkontrolujem posledné 4 písmená, lebo ako hlásku rátam dve písmená.)
ostatné zajtra, idem spať. ale môžeš so mnou rátať, spravím ti to
|
|
Registrovaný: 14.02.07
Prihlásený: 01.01.11
Príspevky: 24
Témy: 9 |  Napísal autor témy luckysun: 14.02.2007 23:32 | |
|
Velmi pekne dakujem!!!! Si zlaty!!! Zechranil si ma!!! ..lebo 2 programy musim mat rano, takze uz len jeden... VDAKA!!!
|
|
Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9 |
Dvojka:
Kód: program hladaj;
var veta:string;
var slabika:string;
var pocet:integer;
begin
write('Zadaj hladanú slabiku: ');
readln(slabika);
veta:='Jak kukam, tak kukam, nic nevykukam!';
pocet:=0;
while (not(veta='')) do begin
if (pos(slabika,veta)>0) then begin
pocet:=pocet+1;
delete(veta,1,pos(slabika,veta));
end else veta:='';
end;
write(pocet);
write('koniec');
end.
|
|
Registrovaný: 14.02.07
Prihlásený: 01.01.11
Príspevky: 24
Témy: 9 | Napísal autor témy luckysun: 14.02.2007 23:42 | |
|
...vdaka...si pokladik...
|
|
Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9 |
.. a dokedy potrebuješ tie ostatné? lebo už sa mi chce spať a zajtra asi nebudem mať čas, lebo ráno mám školu a potom cestujem domov.. tak až večer alebo v piatok
|
|
Registrovaný: 14.02.07
Prihlásený: 01.01.11
Príspevky: 24
Témy: 9 | Napísal autor témy luckysun: 14.02.2007 23:49 | |
|
No ono by som ich mala mat vsetky zajtra, ale ja to ukecam, takze postacia tieto...a dalsie na piatok... Proste bieda...
|
|
Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9 |
luckysun píše: No ono by som ich mala mat vsetky zajtra, ale ja to ukecam, takze postacia tieto...a dalsie na piatok... Proste bieda... tak tu máš ešte tú trojku ten výtah ale už fakt končím.. sorry
Kód: program vytah;
var hmotnost,I,celkovo:integer;
begin
celkovo:=0;
for I:=1 to 5 do begin
write ('Napis hmotnost ',I,'. osoby: ');
readln(hmotnost);
celkovo:=celkovo+hmotnost;
if celkovo>=500 then begin
write('Vytah je pretazeny!!! Celkova vaha je: ',celkovo);
break;
end;
end;
if celkovo<500 then write('Nastupil maximalny pocet osob!!!');
end.
|
|
Registrovaný: 14.02.07
Prihlásený: 01.01.11
Príspevky: 24
Témy: 9 | Napísal autor témy luckysun: 15.02.2007 0:00 | |
|
Ake sorry? Ved si ma zachranil... mas to u mna... velmi velmi veeelmi pekne DAKUJEM!!! ..a zelam sladke snicky! Pa
|
|
Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9 |
Kód: program cisla;
var cislo,I,x,n:integer;
begin
write('Zadaj pocet cisel: ');
readln(n);
write('Zadaj prve cislo (0-6): ');
readln(x);
for I:=1 to n do begin
if x<=6 then write(x) else
begin
x:=0 ;
write(x);
end;
x:=x+1;
end;
end. kurnik to už je štvrtok? ja sa musím ešte pobaliť a na prednáške asi zaspím 
|
|
Registrovaný: 14.02.07
Prihlásený: 01.01.11
Príspevky: 24
Témy: 9 | Napísal autor témy luckysun: 15.02.2007 0:16 | |
|
...tebe to neda pokoj, ze? ....utekaj sa aspon trocha vyspat!!! ..a este raz vdaka!!!
|
|
Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9 |
nie, nedá.. mňa programko baví a toto mi nerobí problém lebo je to jednoduché tak som rád že môžem pomôcť. Spravím ešte ten posledný a bude sa nám obom spať. Ak máš chvýľku..
|
|
Registrovaný: 14.02.07
Prihlásený: 01.01.11
Príspevky: 24
Témy: 9 | Napísal autor témy luckysun: 15.02.2007 0:26 | |
|
Zartujes??? Ja tu budem asi do rana...Ale ty budes zajtra spat na prednaske... Co vlastne studujes? ..a ako sa ti za to odvdacim??? Ved si ma zachranil!!!
|
|
Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9 |
Prepáč, v noci mi padol net a potom som na teba zabudol
Tu máš ten posledný ak ti to ešte na niečo bude:
Kód: Program knihy;
const N=20;
var I,J:integer;
vyhovuje:boolean;
cislo:array[1..N] of integer;
begin
for I:=1 to N do cislo[I]:=5+random(26);
for I:=1 to N do write(cislo[I],' ');
writeln;
for I:=1 to N do begin
vyhovuje:=true;
for J:=N downto I do if cislo[J]>cislo[I] then vyhovuje:=false;
if vyhovuje then write(I,' ');
end;
end.
ak niečomu v niektorom nerozumieš, alebo som ho zle pochopil a treba prerobiť(vysvetliť) tak sa kľudne ozvi
|
|
Registrovaný: 14.02.07
Prihlásený: 01.01.11
Príspevky: 24
Témy: 9 | Napísal autor témy luckysun: 15.02.2007 23:53 | |
|
Velmi pekne dakujem... Dufam, ze si na mna v skole velmi nenadaval... Este raz vdaka...
|
|
| Stránka: 1 z 1
| [ Príspevkov: 15 ] | |
| Nemôžete zakladať nové témy v tomto fóre
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
|
|
