II. RF KMF DokuWiki inf-prog-fszi

inf-prog-fszi:a_beadando_programozasi_gyakorlati_fuezetenek_mintaja

Anonymous (anonymous@undisclosed.example.com) — 2017-06-23T17:51:45+00:00

A beadandó programozási gyakorlati füzetének mintája I. Elméleti ismeretek A sin() függvény a Pascal/C/C++/C# beépített matematikai függvénye. II. Programozási feladat Készítsen egy programot, amely kiszámolja a sin(x) függvény értékét a PI/2 pontban! A bemenetet billentyűzetről, az eredményt a konzolra írassa ki!

inf-prog-fszi:a_program_szerkezete

Anonymous (anonymous@undisclosed.example.com) — 2017-06-19T15:20:38+00:00

A program szerkezete. Kivitel, bevitel. Kifejezések. A Pascal program szerkezete A Pascalon írt forráskód legegyszerűbb szerkezete a következő: program program_neve; var változók deklarálása; begin parancsok, amit a program végrehajtson; end.

inf-prog-fszi:a_programozasi_gyakorlat_szerkezete

Anonymous (anonymous@undisclosed.example.com) — 2017-06-23T17:50:36+00:00

A programozási gyakorlat sikeres teljesítéséhez szükséges beadandó anyag szerkezete * Előadások jegyzete és/vagy órai munkafüzet * Beadandó füzet, kézzel írott és a következőkből áll: * A füzet meg van címezve: gyakorlati füzet, tanuló neve, szakja és iskolája neve

inf-prog-fszi:adattipusok_valtozok

Anonymous (anonymous@undisclosed.example.com) — 2017-06-17T14:02:10+00:00

Adattípusok. Állandók. Változók deklarálása. Összetett adattípusok. Rekord típus Állandók Az állandók deklarálás a const szakaszban történik. const azonosító = érték; Példa. const pi = 3.14; avogadro = 6.022E23; ev = 2017; nev = 'Marci'; megfelelt = true;

inf-prog-fszi:backtrack_-_visszalepeses_kereses

Anonymous (anonymous@undisclosed.example.com) — 2017-06-23T17:56:48+00:00

Backtrack - visszalépéses keresés Feladat: Adott N sorozat, amelyek rendre M(1), M(2), … elemszámúak. Ki kell választani mindegyikből egy-egy elemet úgy, hogy egyes sorozatokból való választások másokat befolyásolnak. A megoldást úgy kell elkészíteni, hogy ne kelljen az összes lehetőséget végignézni.

inf-prog-fszi:buborekos_rendezes

Anonymous (anonymous@undisclosed.example.com) — 2017-06-21T09:24:53+00:00

Buborékos rendezés Módszer lényege: Vektor végéről indulva minden elemet összehasonlítunk az előtte lévővel. Ha rossz a sorrend, akkor csere. (Cs=cserehely) Az első menet végére az első helyen a megfelelő elem áll. Ezt az elvet folytatjuk egyre kevesebb elemmel. (N-1 menet)

inf-prog-fszi:celloeveszet

Anonymous (anonymous@undisclosed.example.com) — 2017-06-19T10:06:38+00:00

Céllövészet program celloveszet; {2014.maj.ang.} var i,n,j,k,max,be,db,maxi:integer; t:text; sor:string[40]; lov:array[1..100] of string[40]; //4.feladathoz function loertek(sor:string):integer; var aktpont,ertek,i:integer; begin aktpont:=20; ertek:=0; for i:=1 to length(sor) do if (aktpont>0)and(sor[i]='-') then aktpont:=aktpont-1 else ertek:=ertek+aktpont; loertek:=ertek; end; begin writeln('1.feladat'); assign(t,'verseny.txt'); reset(t); read…

inf-prog-fszi:egydimenzios_toemboek

Anonymous (anonymous@undisclosed.example.com) — 2017-06-22T08:31:10+00:00

Egydimenziós tömbök Formátum type típus_megnevezése = array [felsorolás_típus] of adattípus; Példa type felsorolas_tipus = 1..50; tomb_tipus = array [felsorolas_tipus] of integer; Ugyan az, mint a type tomb_tipus = array [1..50] of integer;

inf-prog-fszi:egymasba_agyazott_ciklusok

Anonymous (anonymous@undisclosed.example.com) — 2017-06-21T07:38:21+00:00

Egymásba ágyazott ciklusok. Kétszeresen, háromszorosan stb. egymásba ágyazott ciklusok. Egymásba ágyazott ''For'' ciklusok for változó_1 := kezdő_érték_1 to [downto] végső_érték_1 do begin for változó_2 := kezdő_érték_2 to [downto] végső_érték_2 do begin utasítás(ok); end; end; $c_{i,j}=\displaystyle\sum_{k=1}^{n}a_{i,k}b_{k,j}; \;\; i = \overline{1,n}; j = \overline{1,n}.$

inf-prog-fszi:egyszeru_beilleszteses_rendezes

Anonymous (anonymous@undisclosed.example.com) — 2017-06-21T12:33:01+00:00

Egyszerű beillesztéses rendezés Módszer lényege: Mintha kártyáinkat egyesével felvéve sorba raknánk. (N-1 menet) Eljárás: Ciklus J = 2-től N-ig I := J - 1 A := A(J) Ciklus amíg I > 0 és A < A(I) A(I + 1) := A(I) I := I - 1 Ciklus vége A(I + 1) := A Ciklus vége Eljárás vége.

inf-prog-fszi:elagazas

Anonymous (anonymous@undisclosed.example.com) — 2017-06-17T17:26:43+00:00

Elágazás IF. Eldöntés CASE/SWITCH. Egymásba ágyazott feltételek Az elágazás: IF Az if/then (ha/akkor) feltételes utasítás if logikai_kifejezés then utasítások_ha_igaz; Az if/then utasítás blokkok használatával if logikai_kifejezés then begin utasítások_1; utasítások_2 end;

inf-prog-fszi:eldoentes_tetele

Anonymous (anonymous@undisclosed.example.com) — 2017-06-25T14:33:58+00:00

Eldöntés tétele N elemű sorozat és egy a sorozaton értelmezett T tulajdonság. Van-e a sorozatnak legalább egy T tulajdonságú eleme? Eljárás: I := 1 Ciklus amíg I <= N és A(I) nem T tulajdonságú I := I + 1 Ciklus vége VAN := I <= N Eljárás vége

inf-prog-fszi:eljarasok_es_fueggvenyek

Anonymous (anonymous@undisclosed.example.com) — 2017-06-22T14:21:34+00:00

Eljárások és függvények. Modulok és külső egységek. Paraméterek / Argumentumok eljárás(formális_paraméter_lista) függvény(formális_paraméter_lista) : visszatérési_típus formális_paraméter_lista ---> paraméter_csoport_1; ... ; paraméter_csoport_n //érték szerinti paraméterátadási mód paraméter_csoport ---> azonosító_1, ... , azonosító_n : adattípus //hivatkozás szerinti paraméterátadási mód var paraméter_csoport ---> azonosító_1, ... , azonosító_n : adattípus…

inf-prog-fszi:elotesztelos_ciklus

Anonymous (anonymous@undisclosed.example.com) — 2017-06-17T18:19:54+00:00

Ciklusok. Előtesztelős ciklus. While While ciklus Formátum While logikai_kifejezés do {ciklusmag ismétlése, amíg a logikai_kifejezés IGAZ}; Példa a := 2; while a < 6 do begin writeln (a); a := a + 1 end; Végtelen ciklus

inf-prog-fszi:emelt_szintu_erettsegi_programozasi_feladatok

Anonymous (anonymous@undisclosed.example.com) — 2017-06-23T17:52:33+00:00

Emelt szintű érettségi programozási feladatok * feladat: ; forrás: (txt) ; megoldás: Tesztverseny ; * feladat: ; forrás: (txt) ; megoldás: Fürdő ; * feladat: ; forrás: (txt) ; megoldás: Telefonos ügyfélszolgálat ; * feladat: ; forrás: (txt); megoldás:

inf-prog-fszi:expedicio

Anonymous (anonymous@undisclosed.example.com) — 2017-06-19T09:42:41+00:00

Expedíció program expedicio; const n = 160; type adas = record hetnapja: byte; ado: byte; uzenet: string[90]; end; var a:array[1..n] of adas; h:array[1..11] of byte; u:array[1..11] of string[90]; adb, i, j, hetnapja, radioamator, kif_db, koly_db:integer; uzenet:string[90]; kifejlett, kolykok: string[3]; t: text; function szame(szo:string):boolean; var valasz:boolean; begin valasz:=true; for i:=1 to length(szo) do if (szo[i]<'0') or (szo[i]>…

inf-prog-fszi:fej_vagy_iras

Anonymous (anonymous@undisclosed.example.com) — 2017-06-19T09:47:06+00:00

Fej vagy írás Megoldás fő adattároló tömb használata nélkül, ahogy az eredeti feladat kéri. program fejvagyiras_tomb_nelkul; const m=1000; var egymasutan,dobas,fej, maxindex,max,ffff,fffi, i,j,db,n:integer; a:array [1..4*m] of char; tipp,egydobas,dobott,d1,d2,d3,d4:char; relativ: real; f:text; begin randomize; writeln('1. feladat'); dobas:=random(2)+1; if dobas=1 then begin egydobas:='I'; writeln(egydobas) end else begin egydobas:='F'; writeln(egy…

inf-prog-fszi:futar

Anonymous (anonymous@undisclosed.example.com) — 2017-06-19T10:28:22+00:00

Futár program futar; type futaros=record nap: integer; fuvarsz: integer; km: integer; end; var i,j,k,l,n,kezd,veg,szabadnap,maxi, napmin,napmax,sum,ut,ar:integer; csere: futaros; T:array[1..1000] of futaros; f:text; function ut_ar(km:integer):integer; begin case km of 1..2: ut_ar:=500; 3..5: ut_ar:=700; 6..10: ut_ar:=900; 11..20: ut_ar:=1400; 21..30: ut_ar:=2000; else ut_ar:= -1; end; end; begin Assign(f,'tavok.txt'); …

inf-prog-fszi:helyjegy

Anonymous (anonymous@undisclosed.example.com) — 2017-06-19T10:30:30+00:00

Helyjegy program helyjegy; type busz=record hely,felsz,lesz:integer; end; var i,j,jegysz,vonhosz,fiz,n,osszeg,x,felszallo,leszallo, utolso_szamjegy,megalloszam,km:integer; //ert:string[5]; szam:word; cs:busz; t:text; a,b:array[1..200]of busz; felleszallas:array[0..200] of boolean; uleshely:array[1..48] of byte; begin //1.feladat assign(t,'eladott.txt'); reset(t); readln(t,jegysz,vonhosz,fiz); i:=0; while not eof(t) do begin inc(i); …

inf-prog-fszi:hivatkozasok

Anonymous (anonymous@undisclosed.example.com) — 2017-06-23T17:53:15+00:00

Hivatkozások * A jelen oldal linkje: * Pascal programozási linkek: * * [angol] * [angol] * Érettségi feladatok: * * Programozási környezetek: * Pascal * DevPas * FreePascal * C, C++ * Code::Blocks

inf-prog-fszi:inf-prog-gyak-fszi-17

Anonymous (anonymous@undisclosed.example.com) — 2017-06-23T17:53:59+00:00

Programozási gyakorlat, FSZI, 2017. * Programozási gyakorlat témakörei * Programozási gyakorlat gyakorlófeladatai * A programozási gyakorlat sikeres teljesítéséhez szükséges beadandó anyag szerkezete * A beadandó programozási gyakorlati füzetének mintája * Emelt szintű érettségi programozási feladatok * Programozási tételek * Hivatkozások

inf-prog-fszi:ipv6

Anonymous (anonymous@undisclosed.example.com) — 2017-06-19T10:03:01+00:00

Ipv6 program ipv6; var i,j,k,n,dok,glob,helyi,nulla,sorsz,maxind:integer; min,anullanelkul,megrovidebbip:string[39]; v:string[4]; van:boolean; a:array[1..500] of string[39]; ipk:array[1..8] of string[4]; db:array[1..8] of integer; f:text; begin assign(f,'ip.txt'); reset(f); i:=0; while not eof(f) do begin inc(i); readln(f,a[i]); end; n:=i; close(f); {for i:=1 to n do writeln(a[i]); } writeln('1. feladat'); writeln('Az adat…

inf-prog-fszi:karakterlancok_feldolgozasa

Anonymous (anonymous@undisclosed.example.com) — 2017-06-20T17:36:53+00:00

Karakterláncok feldolgozása Szöveges adattípusok var karakter : char; karakterlanc : string; Karakterláncok A string karakterláncok alap esetben 255 karakter hosszúságúak. A karakterláncok hossza korlátozható. var nev : string[25]; postai_cim : string[40];

inf-prog-fszi:kivalasztas_tetele

Anonymous (anonymous@undisclosed.example.com) — 2017-06-25T14:35:46+00:00

Kiválasztás tétele Adott egy N elemű sorozat, egy - a sorozat elemein értelmezett - T tulajdonság, és tudjuk, hogy a sorozatban van legalább egy T tulajdonságú elem. A feladat ezen elem sorszámának meghatározása. Eljárás: I:=1 Ciklus amíg A(I) nem T tulajdonságú I:=I+1 Ciklus vége SORSZ:=I Eljárás vége

inf-prog-fszi:kivalogatas_tetele

Anonymous (anonymous@undisclosed.example.com) — 2017-06-25T14:31:00+00:00

Kiválogatás tétele Egy N elemű sorozat összes T tulajdonságú elemét kell meghatározni. A kiválogatott elemek sorszámait egy B() vektorban gyűjtjük. Eljárás: J := 0 Ciklus I = 1-től N-ig Ha A(I) T tulajdonságú, akkor J := J + 1 B(J) := I Ha vége Ciklus vége Eljárás vége.

inf-prog-fszi:koezuti_ellenorzes

Anonymous (anonymous@undisclosed.example.com) — 2017-06-19T10:10:57+00:00

Közúti ellenőrzés program kozuti_ellenorzes; type jarmu=record ora,perc,mdp:integer; rendszam:string[7]; end; var i,j,k,n,x,max,kul,imax,vizsgkezd:integer; t,f:text; a:array[1..500]of jarmu; kat:array[1..3]of integer; keres:string; ch:char; begin //1.feladat assign(t,'jarmu.txt'); reset(t); i:=0; while not eof(t) do begin inc(i); read(t,a[i].ora); read(t,ch); read(t,a[i].perc); read(t,ch); read(t,a[i].mdp); read(t,ch); …

inf-prog-fszi:koezvetlen_kivalasztasos_rendezes

Anonymous (anonymous@undisclosed.example.com) — 2017-06-21T09:24:33+00:00

Közvetlen kiválasztásos rendezés Módszer lényege: Rendezendő számok az A vektor elemei. Első menetben az A(1)-et összehasonlítjuk az összes elemmel és ha kisebbet találunk nála, akkor felcseréljük. Így az első menet végére a legkisebb elem lesz az első helyen. Ezután ezt ismételjük az A(2)-es elemmel, stb. N-1 menet után rendezett lesz a sorozat.

inf-prog-fszi:latin_tancok

Anonymous (anonymous@undisclosed.example.com) — 2017-06-19T09:40:25+00:00

Latin táncok program latintancok; {2015. maj. ang.} const m=140; type latinos=record tanc,fiu,lany:string; end; var i,j,n,samba,k,l,f,maxk:integer; tancnev{,ref1,ref2}:string; van:boolean; vilma:array[1..20] of integer; a:array [1..m] of latinos; fiuindex,lanyindex: array [1..100] of integer; lany,fiu:array[1..100]of string[15]; t:text; begin Assign(t,'tancrend.txt'); reset(t); i:=0; while not eof(t) do begin inc(i); readln(t,a[i].tanc); …

inf-prog-fszi:linearis_kereses_tetele

Anonymous (anonymous@undisclosed.example.com) — 2017-06-25T15:05:29+00:00

Lineáris keresés tétele Általános feladat: N elemű sorozat; sorozat elemein értelmezett T tulajdonság. Van-e T tulajdonságú elem és ha van, akkor mi a sorszáma. (Eldöntés és kiválasztás együtt.) Eljárás: I := 1 Ciklus amíg I <= N és A(I) nem T tulajdonságú I := I + 1 Ciklus vége VAN := I <= N Ha VAN akkor SORSZ := I Eljárás vége.

inf-prog-fszi:logaritmikus_kereses_tetele

Anonymous (anonymous@undisclosed.example.com) — 2017-06-21T12:25:08+00:00

Logaritmikus keresés tétele Általános feladat: N elemű rendezett sorozat; egy keresett elem (X). Szerepel-e a keresett elem a sorozatban és ha igen, akkor mi a sorszáma. Kihasználjuk, hogy a sorozat rendezett, így el tudjuk dönteni, hogy a keresett elem az éppen vizsgált elemhez képest hol helyezkedik el.

inf-prog-fszi:matematikai_kifejezesek

Anonymous (anonymous@undisclosed.example.com) — 2017-06-20T17:27:41+00:00

Matematikai kifejezések programozása Beépített matematikai függvények A szabvány Pascal nyelvbe beépített matematikai függvények: Függvény Leírás Argumentum típusa Visszatérési típus abs abszolút érték $\left|x\right|$ valós vagy egész $\operatorname{arctg} x$$\cos x$$e^x$$\ln x$$\sin x$$x^2$$\sqrt{x}$$e$$e = e^1$$\pi$$\pi = 4\arctan\left(1\right)$\begin{eqnarray*} 1, & & \text{ ha } n \text{ páros, } \\ -1, & & \text{ ha } n \text{ páratlan. } \end{eqnarray*}$a$$\log_…

inf-prog-fszi:maximum_kivalasztas_tetele

Anonymous (anonymous@undisclosed.example.com) — 2017-06-21T12:37:12+00:00

Maximumkiválasztás tétele Sorozat legnagyobb elemének indexe. Eljárás: INDEX := 1 Ciklus I = 2-től N-ig Ha A(INDEX) < A(I) akkor INDEX := I Ciklus vége Eljárás vége. Pascal forráskód program maximum; const n = 10; var a:array [1..n] of integer; i,maxindex: integer; begin for i:=1 to n do write(i:2, ' '); writeln; randomize; a[1]:=10+random(90); write(a[1], ' '); maxindex:=1; for i:=2 to n do begin a[i]:=10+random(90); write(a[i], ' '); if a…

inf-prog-fszi:megszamlalas_tetele

Anonymous (anonymous@undisclosed.example.com) — 2017-06-25T14:36:53+00:00

Megszámlálás tétele Adott egy N elemű sorozat és egy - a sorozat elemein értelmezett - T tulajdonság. Feladat a T tulajdonsággal rendelkező elemek megszámolása. Eljárás: S := 0 Ciklus I = 1-től N-ig Ha A(I) T tulajdonságú akkor S := S + 1 Ciklus vége Eljárás vége.

inf-prog-fszi:metszetkepzes

Anonymous (anonymous@undisclosed.example.com) — 2017-06-21T12:17:21+00:00

Metszetképzés Általános feladat: Rendelkezésünkre áll egy N és egy M elemű halmaz az A() és a B() vektorban ábrázolva. Készítsük el a két halmaz metszetét a C() vektorba! Eljárás: CN:=0 Ciklus I=1-től N-ig J:=1 Ciklus amíg J<=M és A(I)<>B(J) J:=J+1 Ciklus vége Ha J<=M akkor CN:=CN+1 C(CN):=A(I) Ciklus vége Eljárás vége.

inf-prog-fszi:minimum_kivalasztas_tetele

Anonymous (anonymous@undisclosed.example.com) — 2017-06-21T12:36:58+00:00

Minimumkiválasztás tétele Sorozat legkisebb elemének értéke. Eljárás: ÉRTÉK := A(1) Ciklus I = 2-től N-ig Ha A(I) < ÉRTÉK akkor ÉRTÉK := A(I) Ciklus vége Eljárás vége. Pascal forráskód program minimum; const n = 10; var a:array [1..n] of integer; i,min: integer; begin randomize; a[1]:=10+random(90); min:=a[1]; write(a[1], ' '); for i:=2 to n do begin a[i]:=10+random(90); write(a[i], ' '); if a[i] < min then min:=a[i]; end; writeln; writeln('…

inf-prog-fszi:nezoter

Anonymous (anonymous@undisclosed.example.com) — 2017-06-19T10:00:28+00:00

Nézőtér program nezoter; const dbsor=15; dboszlop=20; type szek=record foglalt:char; kategoria:char; end; var i,j,sor,oszlop,jegyszam,egyeduli:integer; c, max_kategoria:char; t1,t2,t3:text; nezoter:array[1..dbsor,1..dboszlop]of szek; egysor:string[20]; kategoria_db:array['1'..'5'] of byte; begin //1.feladat writeln('1.feladat'); assign(t1,'foglaltsag.txt'); reset(t1); assign(t2,'kategoria.txt'); reset(t2); for i:=1 to dbsor do begin re…

inf-prog-fszi:oesszefuttatas

Anonymous (anonymous@undisclosed.example.com) — 2017-06-22T14:20:06+00:00

Összefuttatás Általános feladat: Két rendezett sorozat uniója úgy, hogy a rendezettség megmaradjon. Eljárás: I := 1 J := 1 K := 0 Ciklus amíg I <= N és J <= M K := K + 1 Elágazás A(I) < B(J) esetén C(K) := A(I) I := I + 1 A(I) = B(J) esetén C(K) := A(I) I := I + 1 J := J + 1 A(I) > B(J) esetén C(K) := B(J) J := J + 1 Elágazás vége Ciklus vége Ciklus amíg I <=…

inf-prog-fszi:oesszegzes_tetele

Anonymous (anonymous@undisclosed.example.com) — 2017-06-22T04:44:50+00:00

Összegzés tétele Adott egy N elemű számsorozat: A(N). Számoljuk ki az elemek összegét! Eljárás: S := 0 Ciklus I = 1-től N-ig S := S + A(I) Ciklus vége Eljárás vége. Pascal forráskód program osszeg; var a:array [1..10] of integer; i,sum:integer; begin sum:=0; for i:=1 to 10 do begin a[i]:=random(30); writeln('a[',i,']= ',a[i]); sum:=sum+a[i]; end; writeln('osszeg = ',sum); readln; end.

inf-prog-fszi:oetszaz

Anonymous (anonymous@undisclosed.example.com) — 2017-06-19T09:49:15+00:00

Ötszáz Program otszaz; {2016.május} Const nmax = 1000; mmax = 20; //6. feladat function ertek(darabszam: integer): integer; var i, osszeg: integer; Begin osszeg:=0; If darabszam>0 then For i:=1 to darabszam do case i of 1: osszeg:=osszeg+500; 2: osszeg:=osszeg+450; else osszeg:=osszeg+400; End; ertek:=osszeg; End; Var t: text; n, fiz, elsodb, vassorszam, vasdb, i, f, fu, arudb, m, j, fsora, fdb, fkezd, …

inf-prog-fszi:programozasi_gyakorlat_gyakorlofeladatai

Anonymous (anonymous@undisclosed.example.com) — 2017-06-23T17:49:17+00:00

Programozási gyakorlat gyakorlófeladatai * Készítsünk egy párbeszéd alapú programot! Például a számítógép megkérdezi a felhasználótól a nevét, amire az válaszol, majd megkérdezi a felhasználó korát, stb. Emeltebb nehézségű feladat: egy párbeszéd alapú quest (küldetéses feladatokkal bíró) játék készítése.$\gamma=\displaystyle\frac{ \sin\left(\displaystyle\frac{\pi+3,\!1}{2t-1}\right)-\displaystyle\frac{1+\log_2\left(5,\!4+t\right)}{3+\sqrt{\left| \arccos\left( 1 - \displaystyle\frac{\sin\left…

inf-prog-fszi:programozasi_gyakorlat_temakoerei

Anonymous (anonymous@undisclosed.example.com) — 2017-06-23T17:47:12+00:00

Programozási gyakorlat témakörei * A program szerkezete. Kivitel, bevitel. Kifejezések. * Adattípusok. Állandók. Változók deklarálása. Összetett adattípusok. Rekord típus. * Matematikai kifejezések programozása. Inverz trig. függv., hatvány, n-gyök, logaritmus, stb. * Elágazás IF. Eldöntés CASE/SWITCH. Egymásba ágyazott feltételek. * Ciklusok. Számlálós ciklus. For. * Ciklusok. Előtesztelős ciklus. While. * Ciklusok. Utótesztelő ciklus. Repeat-until/do-while. * …

inf-prog-fszi:programozasi_tetelek

Anonymous (anonymous@undisclosed.example.com) — 2017-06-23T17:53:54+00:00

Programozási tételek * Egy sorozathoz egy érték hozzárendelése * Összegzés tétele * Szorzás tétele * Eldöntés tétele * Kiválasztás tétele * Megszámlálás tétele * Keresések * Lineáris keresés tétele * Logaritmikus keresés tétele * Maximumkiválasztás tétele * Minimumkiválasztás tétele * Egy sorozathoz egy sorozat hozzárendelése * Kiválogatás tétele * Rendezések * Rendezés közvetlen kiválasztással * Rendezés minimum kiválasztással * Buboréko…

inf-prog-fszi:rajz_es_grafika

Anonymous (anonymous@undisclosed.example.com) — 2017-06-23T11:51:08+00:00

Rajz és grafika A grafikus program struktúrája 1. A grafikus könyvtár becsatolása uses graph; 2. A grafikus meghajtó (driver) változójának deklarálása var gd:integer; {smallint //DevPas} 3. Grafikus üzemmód változójának deklarálása

inf-prog-fszi:rekurzio

Anonymous (anonymous@undisclosed.example.com) — 2017-06-22T14:00:51+00:00

Rekurzió Rekurzió azt jelenti, hogy az alprogram meghívhatja saját magét mindaddig, amíg egy határértéket el nem ér. Rekurzív összeg function osszegzes (x : integer) : integer; begin if x = 1 then osszegzes := 1 else osszegzes := osszegzes(x - 1) + x end;

inf-prog-fszi:rendezes_minimum-maximum-kivalasztassal

Anonymous (anonymous@undisclosed.example.com) — 2017-06-23T17:55:51+00:00

Rendezés minimum- (maximum-) kiválasztással Módszer lényege: Felesleges cserék kiküszöbölése érdekében két segédváltozót vezetünk be (legkisebb elem értékének és indexének). Eljárás: Ciklus I = 1-től N - 1-ig INDEX := I ÉRTÉK := A(I) Ciklus J = I + 1-től N-ig Ha A(J) < ÉRTÉK akkor ÉRTÉK := A(J) INDEX := J Ciklus vége A(INDEX) := A(I) A(I) := ÉRTÉK Ciklus vége Eljárás vége.

inf-prog-fszi:szamlalos_ciklus

Anonymous (anonymous@undisclosed.example.com) — 2017-06-17T18:23:41+00:00

Ciklusok. Számlálós ciklus. For For-Do ciklus Formátum {növekményező ciklus} for ciklusváltozó := kezdőérték to végérték do {ciklusmag}; {csökkentményező ciklus} for ciklusváltozó := kezdőérték downto végérték do {ciklusmag};

inf-prog-fszi:szamok

Anonymous (anonymous@undisclosed.example.com) — 2017-06-19T10:26:27+00:00

Számok program szamok; type fajl=record q:string; v:longint; p:byte; t:string; end; var a:array[1..100] of fajl; b,c:array[1..100] of string; x:array[1..100] of integer; i,j,n,min,max,h,szum:longint; egy,ketto,harom,m:byte; kerdes:string; valasz:longint; pont:byte; f:text; ch:char; vel:word; //tant:array[1..10] of string; Begin //1 Writeln('1. feladat'…

inf-prog-fszi:szin-kep

Anonymous (anonymous@undisclosed.example.com) — 2017-06-19T10:27:30+00:00

Szín-kép program szinkep; {2012. okt.} const szinek:array[1..3] of string=('voros','zold','kek'); type szintipus=record r,g,b:byte; end; var i,j,k,n,sdb,odb,max:integer; balsor, baloszlop, jobbsor, jobboszlop:integer; a:array[1..50,1..50] of szintipus; egyszin:szintipus; van:boolean; maxszin:array[1..3] of word; f:text; begin writeln('1. feladat'); Assign(f,'kep.txt'); reset(f); k:=0; i:=0; j:=0; while not eof(f) do begin inc(k); if k…

inf-prog-fszi:szoeveges_allomanyok

Anonymous (anonymous@undisclosed.example.com) — 2017-06-23T11:55:48+00:00

Szöveges állományok 1. Fájl típusú változó deklarálása var t: text; 2. Fájl változó hozzárendelése a háttértáron lévő állományhoz Assign(t, 'fajl.txt'); 3. Fájl beviteli-kiviteli hibáinak vizsgálata fájlmegnyitásakor

inf-prog-fszi:szorzas_tetele

Anonymous (anonymous@undisclosed.example.com) — 2017-06-21T12:34:45+00:00

Szorzás tétele Adott egy N elemű számsorozat: A(N). Számoljuk ki az elemek szorzatát! Eljárás: P := 1 Ciklus I = 1-től N-ig P := P * A(I) Ciklus vége Eljárás vége. Pascal forráskód program szorzat; var a:array [1..10] of integer; i: integer; prod: longword; begin randomize; prod:=1; for i:=1 to 10 do begin a[i]:=random(30); writeln('a[',i,']= ',a[i]); prod:=prod*a[i]; end; writeln('szorzat = ',prod); readln; end.

inf-prog-fszi:tesztverseny

Anonymous (anonymous@undisclosed.example.com) — 2017-06-23T16:58:46+00:00

program tesztverseny; const valaszok_max = 500; type valasz = record kod: string[5]; felelet: string[14]; pont: byte; end; var a:array[1..valaszok_max] of valasz; i,j,k,n:integer; sor:string; helyes_felelet: string[14]; versenyzo_id: string[5]; versenyzo_valasz: string[14]; csak_helyes_valasz: string[14]; feladat_sorszama: byte; db_helyes: word; pontszam, pont: byte; cs: valasz; f: text; begin //1. feladat write('1. feladat: '); assign(f, 'valaszok.tx…

inf-prog-fszi:tipusos_allomanyok

Anonymous (anonymous@undisclosed.example.com) — 2017-06-22T05:17:21+00:00

Típusos állományok 1. Fájl típusú változó deklarálása var f: file of típus; 2. Fájl változó hozzárendelése a háttértáron lévő állományhoz assign (f, 'fajl.adat'); 3. Fájl beviteli-kiviteli hibáinak vizsgálata fájlmegnyitásakor

inf-prog-fszi:toebbdimenzios_toemboek

Anonymous (anonymous@undisclosed.example.com) — 2017-06-20T10:06:16+00:00

Többdimenziós tömbök Formátum type típus_megnevezése = array [felsorolás_típus_1, felsorolás_típus_2] of adattípus; Példa type felsorolas_tipus_1 = 1..50; felsorolas_tipus_2 = 3..62; tomb_tipus = array [felsorolas_tipus_1, felsorolas_tipus_2] of integer;

inf-prog-fszi:toertek

Anonymous (anonymous@undisclosed.example.com) — 2017-06-19T10:29:21+00:00

Törtek program tortek; {2012. majus, angol} type szamok=record s1,s2,n1,n2:integer; muv:char; end; var i,sz,n,sz1,nn1,ssz,sn,psz,pn,m:integer; a:array[1..100] of szamok; t:text; k:char; //2.feladathoz function lnko(a,b:integer):integer; begin if a=b then lnko:=a; if ab then lnko:=lnko(a-b,b); end; //5.feladathoz function lkkt(a,b:integer):integer; begin lkkt:=a*b div lnko(a,b); end; begin writeln('1.feladat'); write('Sz…

inf-prog-fszi:uniokepzes

Anonymous (anonymous@undisclosed.example.com) — 2017-06-22T14:17:28+00:00
Únióképzés Általános feladat: Rendelkezésünkre áll egy N és egy M elemű halmaz az A() és a B() vektorban ábrázolva. Készítsük el a két halmaz egyesítését a C() vektorba! Eljárás: Ciklus I=1-től N-ig C(I):=A(I) Ciklus vége CN:=N Ciklus J=1-től M-ig I:=1 Ciklus amíg I<=N és A(I)<>B(J) I:=I+1 Ciklus vége Ha I>N akkor CN:=CN+1 C(CN):=B(J) Ha vége Ciklus vége Eljárás vége.

inf-prog-fszi:utepites

Anonymous (anonymous@undisclosed.example.com) — 2017-06-19T10:31:12+00:00
Útépítés program utepites; type jarmuv=record o,p,m,ut:integer; varos:char; end; var i,j,n,x,c,akt,elozo:integer; t:text; k:char; cs:jarmuv; a:array[1..2000]of jarmuv; mas:array[1..2000]of jarmuv; ora:array[7..16]of record a,f:word;end; begin assign(t,'forgalom.txt'); reset(t); readln(t,n); for i:=1 to n do readln(t,a[i].o,a[i].p,a[i].m,a[i].ut,k,a[i].varos); close(t); writeln('1. feladat'); writeln(n,' db sort olvastam be'); writeln('2.f…

inf-prog-fszi:utotesztelo_ciklus

Anonymous (anonymous@undisclosed.example.com) — 2017-06-17T18:21:50+00:00
Ciklusok. Utótesztelő ciklus. Repeat-until/do-while Repeat ciklus Formátum repeat {ciklusmag ismétlődik, amíg a logikai_kifejezés HAMIS}; until logikai_kifejezés; Példa a := 2; repeat writeln(a); a := a + 1 until a >= 6;