Programování

8._ledna_2008

2008-01-01T18:27:44+02:00

Plán cvičení 8. ledna 2008 * jak efektivně implementovat frontu

cteni_souboru_po_radcich

2007-12-03T16:04:11+02:00

Zadání Napište program, který vypíše všechny řádky souboru soubor.txt. Můžete předpokládat, že každý řádek souboru má nejvýše 255 znaků. Řešení var radek: String; soubor: text; begin assign(soubor, 'soubor.txt'); reset(soubor); while not eof(soubor) do begin readln(soubor, radek); writeln(radek); end; close(soubor); end.

delka_nejdelsiho_rostouciho_useku

2007-11-22T17:16:40+02:00

Zadání Ze standardního vstupu je zadána posloupnost 100 celých čísel. Určete délku nejdelšího souvislého rostoucího úseku, který je v ní obsažen. Tip: pamatujte si délku nejdelšího dosud přečteného souvislého rostoucího úseku a délku aktuálního souvislého rostoucího úseku.

dominance_dam

2008-02-05T00:45:06+02:00

Zadání Na prvním řádku standardního vstupu se nachází číslo M, na druhém řádku číslo N. Najděte nejmenší k takové, že lze na šachovnici o rozměrech MxN rozmístit k dam tak, aby ovládly celou šachovnici, a vypište všechna taková rozmístění k dam. Formát výstupu:

frekvence_zadanych_cisel

2007-11-22T14:58:28+02:00

Zadání Napište program, který bude v cyklu číst ze vstupu celá čísla z intervalu 1 až 9, dokud uživatel nezadá -1. Pak čtení skončí a program vypíše tabulku četností zadaných čísel, tj. něco jako: Cislo 1 jsi zadal(a) 2krat, Cislo 2 jsi zadal(a) 8krat,: : : Cislo 9 jsi zadal(a) 5krat.

index_podretezce

2007-12-14T20:54:42+02:00

function indexPodretezce(retezec, podretezec: string): integer; var zacatek: integer; indexRet, indexPodret: integer; nachaziSeTu: boolean; begin for zacatek := 1 to length(retezec) - length(podretezec) + 1 do begin indexRet := zacatek; indexPodret := 1; nachaziSeTu := true; while indexPodret <= length(podretezec) do begin if retezec[indexRet] <> podretezec[indexPodret] then nachaziSeTu := false; inc(indexRet); inc(inde…

kalendar

2007-12-26T16:31:33+02:00

const nazvy: array[1..12] of string = ('Leden', 'Unor', 'Brezen', 'Duben', 'Kveten', 'Cerven', 'Cervenec', 'Srpen', 'Zari', 'Rijen', 'Listopad', 'Prosinec'); const pocty: array[1..12] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); var charmap: array[1..36, 1..75] of char; procedure pridejMesic (nazev: string; …

kombinace

2007-12-14T20:46:38+02:00

procedure kombinace(zCeho: string; kolik: integer; prefix: string); var bezPrvniho: string; begin if kolik = 0 then begin writeln(prefix); end else if (length(zCeho) = kolik) then begin writeln(prefix, zCeho); end else begin bezPrvniho := zCeho; delete(bezPrvniho, 1, 1); kombinace(bezPrvniho, kolik - 1, concat(prefix, zCeho[1])); kombinace(bezPrvniho, kolik, prefix); end; end; var zCeho: string; kolik: integer; begin readln(zCeho); readln(kolik); komb…

latinske_ctverce

2008-01-07T21:18:53+02:00

const N = 13; type index = 1..N; type pozice = 1..N*N; var M: array[index, index] of 0..N; function mozno (a, x, y: index): boolean; var i: index; begin mozno := true; for i := 1 to N do if (M[x, i] = a) or (M[i, y] = a) then mozno := false; end; procedure najdiCtverec (odkud: pozice); var x, y: index; var i, j, k: index; begin if odkud > N*N then begin for i := 1 to N do begin for j := 1 to N do write (M[i, j]:3)…

operace_s_maticemi

2007-11-22T17:24:17+02:00

Zadání Definujte datový typ Matice jako dvojrozměrné pole o pevné velikosti reprezentující čtvercovou matici. Napište tyto procedury: * generuj(var m: Matice) – matici m naplní náhodně vygenerovanými prvky (využijte funkci Random(n) : Longint;, která generuje náhodné přirozené číslo). * transponuj(var m: Matice) – transponuje matici m * nasob(var m1, m2, m: Matice) – vynásobí matice m1 a m2 a výsledek uloží do m * secti(var m1, m2, m: Matice) – sečt…

orezany_prumer

2007-11-14T11:54:52+02:00

Zadání Napište program, který nejprve přečte z klávesnice kladné celé číslo n, které je alespoň 5. Poté přečte n čísel a vypíše jejich aritmetický průměr, do průměru však nezahrne dvě největší ani dvě nejmenší čísla. Příklad: je-li vstup 1 2 3 4 5 6 7, průměr bude počítat pouze z čísel 3, 4, 5 (čtyři krajní ignoruje), vypíše tedy číslo 4.

otoceni_posloupnosti

2007-11-22T17:59:48+02:00

Zadání Napište program, který přečte kladné celé číslo n, pak pak přečte hodnoty a1 až an nakonec vypíše přečtené hodnoty v opačném pořadí, tedy v pořadí an,... a1. Řešení const MAX = 100; {nejvyssi mozny pocet zadavanych cisel} var {pole, v nemz budeme uchovavat nactena cisla} pole: array[1..MAX] of integer; {citac v cyklu for} i, {delka posloupnosti} n: integer; begin repeat writeln('Zadejte pocet cisel (0 az ', MAX, ') :'); rea…

palindrom

2007-12-13T16:33:35+02:00

Zadání Zjistěte, zda je zadaný řetězec palindrom (zní stejně, at' se čte normálně či pozpátku). Pro jednoduchost předpokládejte, že obsahuje pouze malá písmena a neobsahuje interpunkční znaménka. Příklady řetězců, kdy by měl program vypsat ANO: „zeman seno dones na mez“, „v elipse spi lev“, „kuna nese nanuk“, „jelenovi pivo nelej“.

plocha_pod_grafem

2007-11-22T17:39:10+02:00

Zadání Napište program, který přečte meze intervalu, tj. čísla a a b, a spočítá plochu pod grafem funkce sin(5cosx), a to tak, že interval (a; b) rozdělí na spoustu malých podintervalů a aproximuje celkovou plochu jako součet ploch obdelníků které budou těmito podintervaly a grafem vytyčeny.

pravouhle_trojuhelniky_s_obvodem_10000

2007-12-26T16:21:15+02:00

pridavani_prvku_do_linearniho_spojoveho_seznamu_s_hlavou

2008-03-25T17:28:12+02:00

procedure pridejNaKonec(var hlava: UkPrvek; co: integer); var ukazovatko, novaKrabicka: UkPrvek; begin ukazovatko := hlava; while ukazovatko^.dalsi <> nil do ukazovatko := ukazovatko^.dalsi; new(novaKrabicka); novaKrabicka^.info := co; novaKrabicka^.dalsi := nil; ukazovatko^.dalsi := novaKrabicka; end;

prm044_prm045

2008-04-04T22:50:59+02:00

Toto je úložiště studijních materiálů pro cvičení z programování (PRM044, PRM045) pro (převážně) kruh 59 studijního programu matematika na MFF UK. Neváhejte a přidávejte sem nové a nové materiály. Přihlaste se pod uživatelským jménem cviceni a heslem, které je shodné s uživatelským jménem. (Pokud vám přijde, že heslo vůbec není tajné, máte pravdu. Slouží pouze jako obrana proti robotům, kteří rozesílají spamy. Byli bychom neradi, kdyby se nám tu mí…

rozlozeni_na_posledni_cislici_a_zbytek

2007-11-22T13:50:58+02:00

Zadání Triviální trivialita: Napište program, který přečte jedno celé číslo a rozloží ho na poslední číslici a zbytek. Pro číslo 3466 tedy vypíše po řadě 6 a 346, pro číslo 221 vypíše po řadě 1 a 22. Řešení var cislo: longint; begin writeln('Zadej cislo.'); read(cislo); writeln('Posledni cislice: ', cislo mod 10); writeln('Bez posledni cislice:', cislo div 10); end.

sifra_monte_christo

2008-02-04T11:52:53+02:00

program sifra; const N = 4; {velikost mrizky} const HVEZDICKA = '*'; const NULA = '0'; const JEDNA = '1'; type Mrizka = array [1..N, 1..N] of boolean; {true zde znamena otvor mrizky} type Sekvence = array[1..N*N] of char; {najednou zakoduje sekvenci tolika znaku, kolik se jich schova pod mrizku} var vstup, vystup: text; {pro vstupni a vystupni soubor} function zkontrolujMrizku (var m: Mrizka): boolean; var i, j: integer; {pocitani v cyklu for} var pocetJednicek: integer; {neni-li roven N, ch…

sifrovatko

2007-11-22T15:01:19+02:00

Zadání Napište jednoduché šifrovátko. Program přečte znak. Je-li tímto znakem a, napíše z, pro b vypíše y, pro c vypíše x, pro d vypíše w, pro e vypíše v, atd,... pro y vypíše b, a pro z vypíše a. Řešení const {kod znaku 'a' v tabulce znaku} KOD_A = ord('a'); {kod znaku 'z' v tabulce znaku} KOD_Z = ord('z'); var c, {uzivatelem zadany znak} c_sifr: char; {znak po zasifrovani} begin {precteme} writeln('Zadej male pismeno a…

skalarni_soucin

2007-11-22T18:12:38+02:00

Zadání Skalární součin vektorů (a1,... an) a (b1,... bn) je číslo a1*b1 + ... + an*bn. Napište program, který přečte kladné celé číslo n, které udává dimenzi použitých vektorů. Poté postupně přečte hodnoty a1,... an; b1,... bn (v tomto pořadí) a nakonec vypíše skalární součin. Pro jednoduchost předpokládejte, že n < = 100.

soucet_dlouhych_cisel

2008-01-11T12:00:47+02:00

{maximalni pocet cislic v dlouhem cisle} const MAX_CISLIC = 53; type Cislice = 0..9; {dlouhe cislo, je to pole cislic, na indexu 1 je nejmene vyznamny rad, na indexu MAX_CISLIC nejvice vyznamny rad} Cislo = array[1..MAX_CISLIC] of Cislice; {precte ze vstupu radek obsahujici cislo a hodnotu tohoto cisla vrati} function precti: Cislo; var radek: string; vysledek: Cislo; i: integer; begin {radek je pomocny retezec, do ktereho se cislo nacte} readln(radek); {nakopirujeme cisli…

spravne_uzavorkovani_-_jeden_druh_zavorek

2008-01-07T21:00:46+02:00

function spravne(s: string): boolean; var zanoreni, i: integer; begin zanoreni := 0; for i := 1 to length(s) do begin if (s[i] = '(') then begin zanoreni := zanoreni + 1; end else if (s[i] = ')') then begin zanoreni := zanoreni - 1; if (zanoreni < 0) then begin spravne := false; exit; end; end; end; spravne := (zanoreni = 0); end; var s: string; begin readln(s); writeln(spravne(s)); end.

spravne_uzavorkovani_-_vice_druhu_zavorek

2008-01-07T21:10:37+02:00

const max = 100; type Zasobnik = record data:array [1..max] of char; indexVrcholu:integer; end; var i: integer; z: zasobnik; s: string; function pop (var Z: Zasobnik): char; begin pop := z.data[z.indexVrcholu]; z.indexVrcholu := z.indexVrcholu - 1; end; procedure push (var z: Zasobnik; var co: char); begin z.indexVrcholu := z.indexVrcholu + 1; z.data[z.indexVrcholu] := co; end; function odpovidajiSi (oteviraci, uzaviraci: char):boolean; begin odpovidajiSi := fals…

test

2008-03-04T17:17:16+02:00

[fdsfsfsd]

treti_nejvetsi_cislo_z_deseti

2007-11-22T16:49:30+02:00

Zadání Program postupně přečte z klávesnice 10 čísel, poté vypíše třetí největší z nich. Tip: pamatujte si tři největší čísla. Řešení var i, {citac cyklu for} n, {promenna, do ktere ulozime nactene cislo} max1, {maximum z dosud prectenych cisel} max2, {2. nejvetsi z dosud prectenych cisel} max3: integer; {3. nejvetsi z dosud prectenych cisel} begin {nastavime promenne na takove hodnoty, ze po…

vsechny_permutace_retezce

2007-12-14T20:45:23+02:00

(* * Vypise vsechny retezce, ktere vzniknou zpermutovanim znaku retezce * "ceho", kazdy takovy retezec vypise na samostatnem radku a pripoji * pred nej retezec "prefix". *) procedure vypisPermutaceStep(ceho, prefix: string); var i: integer; zbyvaZpermutovat, novyPrefix: string; begin {permutace prazdne mnoziny = 1prvkova mnozina, prvkem prazdna posloupnost} if (length(ceho) = 0) then begin writeln(prefix); {jinak postupne fixujeme jednotlive prvky, rekurzivne…

zatrideni_prvku_do_usporadaneho_seznamu

2008-04-04T23:09:38+02:00

procedure zatrid(s: Seznam; co: integer); var novaKrabicka, ukazovatko: UkPrvek; begin {vytvoreni krabicky - budeme ji potrebovat za vsech okolnosti} new(novaKrabicka); novaKrabicka^.info := co; novaKrabicka^.next := nil; novaKrabicka^.prev := nil; {seznam je prazdny => vytvorime 1prvkovy seznam obsahujici jen novou krabicku} if s.zacatek = nil then begin s.zacatek := novaKrabicka; s.konec := novaKrabicka; {pridavany prvek je mensi ne…

zretezeni_dvou_cisel

2007-11-22T14:56:29+02:00

Zadání Triviální trivialita: Napište program, který přečte ze vstupu jedno libovolné celé číslo a pak jedno jednociferné číslo. Vrátí číslo, které vznikne ciferným zřetězením dvou zadaných čísel. Tedy pro čísla 5323 a 7 vrátí 53237, pro číslo 852 a 9 vrátí 8529.