Algoritmy a programovanie 1

Upozornenie!

Tento predmet v tomto semestri buď nevyučujem, alebo používam na výmenu informácií so študentmi iný priestor (napr. MS Teams ). Ak sa do tohto priestoru v budúcnosti vrátim, tak informácie, ktoré s týmto predmetom súvisia môžu byť upravené alebo spresnené pred alebo tesne po začiatku semestra, v ktorom ho budem vyučovať, resp. v ktorom obnovím používanie tohto priestoru na výmenu informácií so študentmi.

Podrobnosti o podmienkach hodnotenia nájdete zverejnené v systéme MAIS. 

• Používanie univerzitných schránok elektronickej pošty

Odovzdávanie úloh

Poznámka: Na tejto časti stránky sa momentálne pracuje…

Úlohy neodovzdávajte mailom! 
Na presnom spôsobe sa dohodneme na prvých hodinách. 
Ďakujem. 
 

Ktoré súbory sú dôležité?

Najdôležitejšie sú tie súbory projektu, ktoré majú príponu *.pas a *.lfm. Tie totiž obsahujú Vaše riešenie!

Podrobnosti:

Aby ste videli prípony súborov, musíte sa ubezpečiť, že máte zapnuté ich zobrazovanie vo Vašom prieskumníkovi súborov – Zobraziť › Prípony názvov súborov:

Ďalej, ak nič nezmeníte počas vytvárania a ukladania projektu v Lazaruse, tak priečinok projektu bude obsahovať tieto štandardné súbory:

Poznámka: Tesne po uložení vznikne aj podpriečinok backup a po kompilácii podpriečinok lib a súbor project1.exe. Tie môžeme ignorovať úplne.

Ako bolo povedané, tak z uvedených súborov sú najdôležitejšie tie, ktoré majú príponu *.pas a *.lfm. Ostatné si dokážem vygenerovať, ale ak si nie ste istí, označte ich všetky (tie, ktoré sú v zozname, t. j. všetky okrem podpriečinkov a okrem súboru *.exe), uložte ich do balíčka (zip alebo 7­‑Zip  – pozri obrázky nižšie) a balíčky odovzdajte k prislúchajúcemu zadaniu.

V prípade otázok ma kontaktujte.

Kreslenie grafu

~

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
	Classes, SysUtils, Forms, Controls, Graphics, Dialogs;

type

	{ TForm1 }

	TForm1 = class(TForm)
		procedure FormCreate(Sender: TObject);
		procedure FormPaint(Sender: TObject);
	private

	public
		procedure Bar(BX: integer; BY: integer;
			BWidth: integer; BHeight: integer; BColor: TColor);

	end;

var
	Form1: TForm1;
	Data: array [1 .. 39] of integer;

implementation

{$R *.lfm}

procedure TForm1.Bar(BX: integer; BY: integer;
	BWidth: integer; BHeight: integer; BColor: TColor);
begin
	with Canvas do
	begin
		Brush.Color := BColor;
		Rectangle(BX, BY, BX + BWidth, BY + BHeight);
	end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
	Width := 800;
	Height := 600;

	Top :=  (Screen.Height - Height) div 2;
	Left := (Screen.Width - Width) div 2;

	for i := 1 to 39 do
	begin
		Data[i] := integer(Random(100));
	end;

	Data[30] := 100;
end;

procedure TForm1.FormPaint(Sender: TObject);
const leftGap = 4.0;
	rightGap = 4.0;
	topGap = 8.0;
	bottomGap = 0.0;
var i: integer;
	cx1, cx2, dx, dy: real;
begin
	with Canvas do
	begin
		Brush.Color := clWhite;
		Rectangle(10, 10, self.Width - 10, self.Height - 10);

		cx1 := 10.0 + leftGap;
		dx := (self.Width - 20.0 - leftGap - rightGap) / 39.0;
		cx2 := cx1 + dx;
		dy := (self.Height - 20.0 - topGap - bottomGap) / 100.0;

		for i := 1 to 39 do
		begin
			Bar(
				round(cx1 + leftGap),
				round(self.Height - 10 - bottomGap),
				round(cx2 - cx1 - leftGap - rightGap),
				round(-dy * Data[i]),
				clRed);
			cx1 := cx1 + dx;
			cx2 := cx2 + dx;
		end;
	end;
end;

end.

• Programovanie a algoritmy  (Pascal)

• Algoritmus a vlastnosti algoritmov; Spôsoby vyjadrovania algoritmov 724,26 kB (707,29 KiB), 12. 10. 2016
• Porovnanie základnej syntaxe jazykov Java a Pascal 447,48 kB (436,99 KiB), 12. 10. 2016

• Slovenská klávesnica 78,58 kB (76,73 KiB), 21. 1. 2010

• Ďalšie materiály

Informácie boli presunuté do samostatných článkov

• Inštalácia prostredia Lazarus

• Odporúčané nastavenia prostredia Lazarus

Iné

• Používanie univerzitných schránok elektronickej pošty