Archiv článků
08.05.2009 16:38
trideni podle velikosti
program TRIDENI_PODLE_VELIKOSTI;
uses CRT;
const MAX=100;
var I,J,N,P: integer;
A: array[1..MAX] of integer;
begin
clrscr;
RANDOMIZE;
write('Zadej pocet cisel: ');
...
—————
08.05.2009 16:36
soustava rovnic
program SOUSTAVA_ROVNIC;
uses CRT;
var I: integer;
J,S1,S2,X1,X2: real;
A: array [1..2] of real;
B: array [1..2] of real;
C: array [1..2] of real;
begin
clrscr;
for I:= 1...
—————
08.05.2009 16:35
kvadraticka rovnice
program KVADRATICKA_ROVNICE;
uses CRT;
var A,B,C,D,X1,X2: real;
begin
clrscr;
write('Zadej A: ');
readln(A);
write('Zadej B: ');
readln(B);
...
—————
08.05.2009 16:35
matice
program MATICE;
uses CRT;
const RADKY=50;
SLOUPCE=50;
var I,J,M,N,SOUCET: integer;
A: array [1..RADKY,1..SLOUPCE] of integer;
begin
clrscr;
RANDOMIZE;
...
—————
08.05.2009 16:35
nejmensi prvek
program NEJMENSI_PRVEK;
uses CRT;
const MAX=100;
var M,N,I: integer;
A: array [1..MAX] of integer;
begin
clrscr;
RANDOMIZE;
writeln('Zadej pocet prvku (max. 100): ');
...
—————
08.05.2009 16:33
hod kostkou
program HOD_KOSTKOU;
uses CRT;
const MAX=6;
var N,I,J,M: integer;
A: array [1..MAX] of integer;
begin
clrscr;
for J:=1 to 6 do
begin
...
—————
08.05.2009 16:33
hod minci
program HOD_MINCI;
uses CRT;
var N,I,M,PANNA,OREL: integer;
begin
clrscr;
PANNA:=0;
OREL:=0;
RANDOMIZE;
writeln('Zadej pocet hodu:');
...
—————
08.05.2009 16:32
faktorial
program FAKTORIAL;
uses CRT;
var F: longint;
I,N: integer;
begin
clrscr;
write('Zadej cislo: ');
readln (N);
F:=1;
for I:=1 to N...
—————
08.05.2009 16:32
hanojska vez
program HANOJSKA_VEZ;
uses CRT;
var N: integer;
procedure HANOJ(N:integer; zdroj,pom,cil:integer);
begin
if N>1 then
begin
...
—————
08.05.2009 16:31
asci tabulka
program ASCII_TABULKA;
uses CRT;
var I: integer;
begin
clrscr;
for I:= 0 to 255 do
writeln(I,' - ',Chr(I));
repeat until keypressed;
end.