[ Príspevkov: 15 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 14.02.07
Prihlásený: 01.01.11
Príspevky: 24
Témy: 9 | 9
NapísalOffline : 14.02.2007 23:12 | Program v Pascale...surne..prosiiim..

: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ú.

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


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9 | 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


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 14.02.07
Prihlásený: 01.01.11
Príspevky: 24
Témy: 9 | 9
Napísal autor témyOffline : 14.02.2007 23:32 | Program v Pascale...surne..prosiiim..

Velmi pekne dakujem!!!! Si zlaty!!! Zechranil si ma!!! ..lebo 2 programy musim mat rano, takze uz len jeden... VDAKA!!!


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9 | 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.


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 14.02.07
Prihlásený: 01.01.11
Príspevky: 24
Témy: 9 | 9
Napísal autor témyOffline : 14.02.2007 23:42 | Program v Pascale...surne..prosiiim..

...vdaka...si pokladik...


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9 | 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


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 14.02.07
Prihlásený: 01.01.11
Príspevky: 24
Témy: 9 | 9
Napísal autor témyOffline : 14.02.2007 23:49 | Program v Pascale...surne..prosiiim..

No ono by som ich mala mat vsetky zajtra, ale ja to ukecam, takze postacia tieto...a dalsie na piatok... Proste bieda...


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9 | 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.


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 14.02.07
Prihlásený: 01.01.11
Príspevky: 24
Témy: 9 | 9
Napísal autor témyOffline : 15.02.2007 0:00 | Program v Pascale...surne..prosiiim..

Ake sorry? Ved si ma zachranil... mas to u mna... velmi velmi veeelmi pekne DAKUJEM!!! ..a zelam sladke snicky! Pa


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9 | 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 :oops:


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 14.02.07
Prihlásený: 01.01.11
Príspevky: 24
Témy: 9 | 9
Napísal autor témyOffline : 15.02.2007 0:16 | Program v Pascale...surne..prosiiim..

...tebe to neda pokoj, ze? ....utekaj sa aspon trocha vyspat!!! ..a este raz vdaka!!!


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9 | 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..


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 14.02.07
Prihlásený: 01.01.11
Príspevky: 24
Témy: 9 | 9
Napísal autor témyOffline : 15.02.2007 0:26 | Program v Pascale...surne..prosiiim..

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!!!


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9 | 9

Prepáč, v noci mi padol net a potom som na teba zabudol :oops:
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


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 14.02.07
Prihlásený: 01.01.11
Príspevky: 24
Témy: 9 | 9
Napísal autor témyOffline : 15.02.2007 23:53 | Program v Pascale...surne..prosiiim..

Velmi pekne dakujem... Dufam, ze si na mna v skole velmi nenadaval... Este raz vdaka...


 [ Príspevkov: 15 ] 


Program v Pascale...surne..prosiiim..



Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy.

Program ktory sleduje iny program

v Ostatné programy

1

827

25.02.2012 9:12

br4n0

V tomto fóre nie sú ďalšie neprečítané témy.

Program s názvom program

v Ostatné programy

4

797

07.10.2010 22:48

shiro

V tomto fóre nie sú ďalšie neprečítané témy.

program .zip.001 a program .zip.002 problem

v Ostatné programy

4

1619

15.06.2010 13:27

mack0

V tomto fóre nie sú ďalšie neprečítané témy.

Program Files vs Program Files/x86/

v Windows

1

1351

21.11.2010 17:38

_zero

V tomto fóre nie sú ďalšie neprečítané témy.

PROGRAM

v Backend

13

942

15.11.2009 16:22

shiro

V tomto fóre nie sú ďalšie neprečítané témy.

Program

v Sieťové programy

8

837

19.02.2008 15:44

Electrol

V tomto fóre nie sú ďalšie neprečítané témy.

Program

v Firewally a bezpečnosť

5

1120

23.04.2009 21:46

1daemon1

V tomto fóre nie sú ďalšie neprečítané témy.

program

v Audio programy

2

981

20.06.2010 18:07

CARMIQ

V tomto fóre nie sú ďalšie neprečítané témy.

program

v Audio programy

3

1009

30.05.2007 19:56

OmeGa

V tomto fóre nie sú ďalšie neprečítané témy.

program

v Ostatné programy

7

456

08.10.2013 18:00

radoDM

V tomto fóre nie sú ďalšie neprečítané témy.

program

v Elektronika

2

909

15.11.2007 19:32

bamby99

V tomto fóre nie sú ďalšie neprečítané témy.

Program

v Ostatné programy

4

1752

06.12.2007 21:44

alan

V tomto fóre nie sú ďalšie neprečítané témy.

program

v Ostatné

0

1090

02.12.2007 18:10

qwer0

V tomto fóre nie sú ďalšie neprečítané témy.

Program

v Ostatné programy

5

962

04.08.2007 20:20

fuco

V tomto fóre nie sú ďalšie neprečítané témy.

Program

v Ostatné

1

885

12.03.2008 16:09

snapshot

V tomto fóre nie sú ďalšie neprečítané témy.

Program

v Sieťové programy

0

476

18.04.2012 15:23

Ominous



© 2005 - 2026 PCforum, edited by JanoF